1.3 phptools.htm
<?
$INC_PHPTOOLS_HTML=1;

if ( IsSet($INC_PATH_HTML));
  Include "path.htm";
endif;

/*--------------------------------------------------------------------
---
 Passt bei einem Double-Wert($Text) die Nachkommastellen($Num) an
----------------------------------------------------------------------
-*/ Function FloatPoint $Text, $Num (
  $Result=strtok($Text, ".");
  $TextLen=strlen($Text);
  $ResultLen=strlen($Result);

  if (  $Num > 0);
    $WithPointLen=$ResultLen + 1;
    $NewLen= $WithPointLen;
    $NewLen += $Num;
    if ($TextLen > $NewLen);
       $Result = substr($Text, 0, $NewLen);
    else;
      $Result = $Text;
      $hilf = $TextLen;
      while ($NewLen > $hilf);
        $Result += "0";
 $hilf++;       
      endwhile;   
    endif; 
  endif;
  return $Result;
);

/*--------------------------------------------------------------------
----
 Wandelt alle Leerzeichen in einem String in Pluszeichen um
----------------------------------------------------------------------
--*/ Function StringToURL $Text (
  $string = "";
  $tok=strtok($Text," ");
  while ($tok);
    $string += $tok;
    $tok = strtok(" ");
    if ($tok);
       $string += "+";
    endif; 
  endwhile;
  return $string;
);

/*--------------------------------------------------------------------
----
 Haengt eine Variable an eine URL an
----------------------------------------------------------------------
--*/ Function AppendURL $Name, $Value, $First (
  $string = "";
  if ($First);
    $string+="?";
  else;
    $string+="&";
  endif;
  $string += $Name + "=" + StringToURL($Value);
  return $string;
);

/*--------------------------------------------------------------------
---- 
   Funktion zum Auslesen einer ID, die in einem String gespeichert ist
   
----------------------------------------------------------------------
--*/ Function GetID $Text(
  $hilf="";
  if ( $Text);
    $hilf = strtok($Text, " ");
  endif;
  return $hilf;
);

/*--------------------------------------------------------------------
----
  Funktion zum Fuellen vom Comboboxen 
----------------------------------------------------------------------
---*/ Function FillCombo $connection, $key, $name, $table, $variable,
$value (
  $query="select "+$key + "," + $name + " from " + $table + " order by
  " + $name; $combo=""; $result=pg_Exec($connection, $query);
  $res_num=pg_NumRows($result); $combo = "<SELECT NAME=\"" + $variable
  + "\"><OPTION"; if ( !strlen($value));
    $combo += " SELECTED>";
  else;
    $combo += ">";
  endif;

  if ($res_num > 0);
    $cursor=0;
    while($cursor < $res_num);
      $reskey=Sprintf("%d", pg_Result($result, $cursor, $key));
      if (strlen($value));
        $valkey=strtok($value," ");
        if ($valkey == $reskey);
          $combo += "\n<OPTION SELECTED>";
        else;
          $combo += "\n<OPTION>";
        endif;   
      else;
        $combo += "\n<OPTION>";
      endif;
      $combo += $reskey + " " + pg_Result($result, $cursor, $name);
      $cursor++;
    endwhile;
  endif;
  $combo += "\n</SELECT>\n";
  return $combo;
);

/*--------------------------------------------------------------------
---
        Tabelleneintrag mit einer bestimmten Ausrichtung definiert
----------------------------------------------------------------------
--*/ Function TableItem $Text, $Richtung (
  echo "<td align=" + $Richtung + " bgcolor=\"#ffffff\"> " + $Text +
  "</TD>\n";
);

/*--------------------------------------------------------------------
---
        Funktion fuer versteckte Eingabefelder
----------------------------------------------------------------------
--*/ Function InputHiddenType $Name, $Wert (
  echo "<INPUT TYPE=\"hidden\" NAME=\""+ $Name +"\" VALUE
  =\""+$Wert+"\">\n"; 
);

/*--------------------------------------------------------------------
---
        Funktion fuer die Einbindung einer URL in ein Dokument
----------------------------------------------------------------------
--*/ Function Anker $Url, $Name (
  $hilf=  "<A HREF=\"" + $Url + "\">" + $Name + "</A>\n";
  return $hilf;
);

/*--------------------------------------------------------------------
---
        Funktion fuer die Einbindung einer URL in ein Dokument
        (geklammert)
----------------------------------------------------------------------
--*/ Function ButtonBar $Url, $Name (
  $hilf= "[<A HREF=\"" + $Url + "\">" + $Name + "</A>]\n"; 
  /* $hilf= "<LINK REL= BANNER HREF = " + $Url + ">\n"; */
  return $hilf;
);

/*--------------------------------------------------------------------
---
        Funktion fuer die Einbindung einer URL in ein Dokument
----------------------------------------------------------------------
--*/ Function Form $Filename (
  echo "<FORM METHOD = \"GET\" ACTION = \"" + $Filename + "\">\n"; );

/*--------------------------------------------------------------------
---
        Funktion fuer ein Eingabetextfeld
----------------------------------------------------------------------
--*/ Function InputText $Name, $Value, $Size ( 
  $hilf= "<INPUT TEXT NAME=\"" + $Name + "\" VALUE = \"" + $Value +
  "\" size = "+ Sprintf("%d", $Size) + ">"; return $hilf;
);

/*--------------------------------------------------------------------
---
 Funktion um einen Tabelleheader zu erzeugen
----------------------------------------------------------------------
-*/ Function CreateTable $Cellpadding, $Cellspacing, $Border (
  $text = "<TABLE";
  if ( $Cellpadding);
    $text += Sprintf(" CELLPADDING=%d", $Cellpadding);
  endif;
  if ( $Cellspacing);
    $text += Sprintf(" CELLSPACING=%d", $Cellspacing);
  endif;
  if ($Border);
    $text += Sprintf(" BORDER=%d", $Border);
  endif;
  $text +=">\n";
  echo $text;
);

>