source: www/www/_new/kernel/units/pg.php@ 1

<?php
/******************************************************************************/
/* PHP-MWS: Module Web Site V.1.01.001 (http://mws.zde.cz) - themes           */
/* Copyright 2002 (C) BOMI software group (http://bomi.zde.cz, bomi@zde.cz)   */
/******************************************************************************/

// Distributed as free software under GNU/GPL v.2 license!
// file: pg.php, ver: 1.000, date: 2003-01-14
// PHP-MWS Basic kernel - read ".info.php" for more info

// Generátor stránky
if (!function_exists('import')) exit;

function prepend($input) {
  $style = @$GLOBALS['style'];
  if (!$style) $style = 'default';
  if (!is_array($input)) $input=func_get_args();
  $i=0;
  while (@$input[$i]) {
    if (!function_exists('theme_'.$style.'_'.$input[$i])) {
      if (!include '../themes/'.$style.'/pg/'.$input[$i]._EXT) { goerror('prepend - '.@$style.':'.$input[$i],5); }
    }
    $i++;
  }
}

function dopg($input) {
  $style = @$GLOBALS['style'];
  $out = '';
  if (!$style) $style = 'default';
  $i=0;
  while (isset($input[$i])) {
    if (is_array($input[$i])) {
      $item = $input[$i];
      $my = array_shift($item);
      prepend($my);
      $my_func = 'theme_'.$style.'_'.$my;
      $out.=$my_func($item);
    } else { $out.=$input[$i]; }
    $i++;
  }
  return $out;
}

function pg() {
  return dopg(func_get_args());
}

// Vlo¾ení vlastností tagu analýzou parametrù
function paramins($check,$input) {
  if (!@is_array($input)) {
    unset($input);
    $input=func_get_args();
    array_shift($input);
  }
  $index=0;
  $out = '';
  while (@$input[$index]) {
    if (@$check[$input[$index]]) $out.=' '.@$input[$index].'="'.@$check[$input[$index]].'"';
    $index++;
  }
  return $out;
}

// Vlo¾ení konstantní vlastností analýzou logických hodnot
function paramref($check,$input) {
  $out = '';
  if (!is_array($input)) {
    unset($input);
    $input=func_get_args();
    array_shift($input);
  }
  $index=0;
  while (@$input[$index]) {
    if (@$check[$input[$index]]) $out.=' '.@$input[$index].'="'.$input[$index].'"';
    $index++;
  }
  return $out;
}

function paramalt($check,$input) {
  if (!is_array($input)) {
    unset($input);
    $input=func_get_args();
    array_shift($input);
  }
  $index=0;
  while ((@$input[$input[$index]])&&(@$input[$input[$index+1]])) {
    $out.=' '.$input[$index].'="';
    if ($check[$input[$index]]) { $out.=$input[$input[$index]].'"'; } else
     $out.=$input[$input[$index]+1].'"';
    $index+=2;
  }
  return $out;
} 

function setempty($input,$count) {
  $i=0;
  while ($i<$count) {
    if (!isset($input[$i])) {
      $input[$i]='';
    }
    $i++;
  }
  return $input;
}

function pgcall($inc, $op) {
  $optemp=$GLOBALS['op'];
  $GLOBALS['op']=$op;
  include $inc;
  $GLOBALS['op']=$optemp;
}

 // Spojení souborù
function pgmerge($input) {
  $index=1;
  while ($input[$index]) {
    $work=$input[$index];
    if ($work['include']) { pg_call($work['include'],$work['use']); } else include $input['page'];
    if ($work['table']) pg_call($work['table'],$work['use']);
    $index++;
  }
}

 // Standardní tabulka
function pgscheme($input) {
  $index=1;
  if ($input[1]) {
    echo '<table border="0" cellpadding="0" cellspacing="0" width="100%"';
    if ($input['color']) { echo ' bgcolor="'.$input['color'].'"'; }
    echo '>'._CR.'  <tr>';
    while ($input[$index]) {
      $work=$input[$index];
      echo '<td';
      echo paramins($work,'width','height','colspan','rowspan','valign');
      if ($work['color']) { echo ' bgcolor="'.$work['color'].'"'; }
      echo '>'._CR;
      if ($work['text']) { echo $work['text']; } else {
        if ($work['include']) { pg_call(gendir($work['include']),$work['op']);
        } else {
          $work['op']=$GLOBALS['op'];
          pg_call(gendir($input['page']),$work['op']);
        }
      }
      echo '  </td>';
      if ($work['nextrow']) echo '</tr>'._CR.'  <tr>';
      $index++;
    }
  echo'</tr>'._CR.'</table>'._CR;
  }
}

prepend('page');
?>