inc/FormHandler.php

   1 <?php
   2 class Field
   3 {
   4   var $type;
   5   var $name;
   6   var $prompt;
   7   var $seq;
   8   var $x;
   9   var $y;
  10   var $select;
  11   var $default;
  12   var $current;
  13
  14   function Field( $type, $name, $prompt, $seq = 50, $default = "", $current = "", $inextra = "" ) {
  15     $this->type = $type;
  16     $this->seq = $seq;
  17     $this->name = $name;
  18     $this->prompt = $prompt;
  19     $this->default = $default;
  20     $this->current = $current;
  21
  22     if ( isset($this->{"new_$type"}) && function_exists($this->{"new_$type"}) ) {
  23       $this->{"new_$type"}( $inextra );
  24     }
  25     else if ( is_array($inextra) ) {
  26       $this->attributes = $inextra;
  27     }
  28     else {
  29     }
  30
  31     return $this;
  32
  33   }
  34
  35   function new_lookup( $inextra ) {
  36     $this->attributes = $inextra;
  37   }
  38
  39   function BuildHTML( $stub = "fh_" ) {
  40     global $sysname;
  41     error_log( "$sysname DBG: Building HTML for field $this->name" );
  42     if ( substr($this->type, 0,4) == "btn_" ) {
  43       $type = substr($this->type, 4);
  44       $h = "<tr><td class=\"fprompt\">&nbsp;</td><td class=\"fdata\"><input type=\"$type\" name=\"$stub$this->name\" value=\"".$this->prompt."\"></td></tr>\n";
  45     }
  46     else {
  47       $h = "<tr><th class=fprompt>$this->prompt</th>";
  48       $r = "<";
  49       switch ( $this->type ) {
  50         case "select":
  51           $r .= "select name=\"$this->name\"%%attributes%%>";
  52           reset( $this->attributes );
  53           while( list($k,$v) = each( $this->attributes ) ) {
  54             if ( substr($k, 0, 1) != '_' ) continue;
  55             $k = substr($k,1);
  56             $r .= "<option value=\"".htmlentities($k)."\"";
  57             if ( "$this->current" == "$k" ) $r .= " selected";
  58             $r .= ">$v</option>\n" ;
  59           }
  60           $r .= "</select>\n";
  61           break;
  62
  63         case "lookup":
  64           $r .= "select name=\"$this->name\"%%attributes%%>";
  65           if ( isset($this->attributes["_sql"]) ) {
  66             $qry = new PgQuery( $this->attributes["_sql"] );
  67           }
  68           else {
  69             $qry = new PgQuery( "SELECT lookup_id, lookup_description FROM lookups WHERE lookup_type = ? ORDER BY lookup_type, lookup_seq, lookup_id", $this->attributes['_type'] );
  70           }
  71           error_log( "$sysname DBG: lookup $this->name via: $qry->querystring" );
  72           $r .= $qry->BuildOptionList( $this->current, "rndr:$this->name" );
  73           $r .= "</select>\n";
  74           break;
  75
  76         case "multiselect":
  77           $r .= "select multiple name=\"$this->name" . "[]\"%%attributes%%>";
  78           if ( isset($this->attributes["_sql"]) ) {
  79             $qry = new PgQuery( $this->attributes["_sql"] );
  80           }
  81           else {
  82             $qry = new PgQuery( "SELECT lookup_id, lookup_description FROM lookups WHERE lookup_type = ? ORDER BY lookup_type, lookup_seq, lookup_id", $this->attributes['_type'] );
  83           }
  84           error_log( "$sysname DBG: lookup $this->name via: $qry->querystring" );
  85           $r .= $qry->BuildOptionList( $this->current, "rndr:$this->name" );
  86           $r .= "</select>\n";
  87           break;
  88
  89         case "radio":
  90     $r = "";
  91           $fmt .= "<label><input type=\"radio-set\" name=\"$this->name\" value=\"%s\"%s%%attributes%%>&nbsp;%s&nbsp; </label>";
  92           if ( isset($this->attributes["_values"]) ) {
  93       foreach( $this->attributes["_values"] as $k => $v ) {
  94         $selected = ($this->current == $k ? " selected" : "" );
  95         $r .= sprintf( $fmt, $k, $selected, $v );
  96       }
  97     }
  98     else {
  99             if ( isset($this->attributes["_sql"]) ) {
 100               $qry = new PgQuery( $this->attributes["_sql"] );
 101             }
 102             else {
 103               $qry = new PgQuery( "SELECT lookup_id, lookup_description FROM lookups WHERE lookup_type = ? ORDER BY lookup_type, lookup_seq, lookup_id", $this->attributes['_type'] );
 104             }
 105             error_log( "$sysname DBG: lookup $this->name via: $qry->querystring" );
 106             $r .= $qry->BuildRadioSet( $fmt, $this->current, "rndr:$this->name" );
 107     }
 108           break;
 109
 110         case "date":
 111           if ( !isset($this->attributes['size']) || $this->attributes['size'] == "" ) $size = " size=12";
 112           $r .= "input type=\"text\" name=\"$this->name\"$size value=\"".htmlentities($this->current)."\"%%attributes%%>\n";
 113           break;
 114
 115         case "textarea":
 116           $r .= "textarea type=\"$this->type\" name=\"$this->name\" %%attributes%%>$this->current</textarea>\n";
 117           break;
 118
 119         default:
 120           $r .= "input type=\"$this->type\" name=\"$this->name\" value=\"".htmlentities($this->current)."\"%%attributes%%>\n";
 121           break;
 122       }
 123
 124       // Now process the generic attributes
 125       if ( is_array($this->attributes) || is_object($this->attributes) ) {
 126         reset( $this->attributes );
 127         $attribute_values = "";
 128         while( list($k,$v) = each( $this->attributes ) ) {
 129           if ( substr($k, 0, 1) == '_' ) continue;
 130           $attribute_values .= " $k=\"".htmlentities($v)."\"";
 131         }
 132         $r = str_replace( '%%attributes%%', $attribute_values, $r );
 133       }
 134
 135       $h .= "<td class=fdata>$r</td></tr>\n";
 136
 137     }
 138     return $h;
 139   }
 140 }
 141
 142
 143 class Form
 144 {
 145   var $phase = 'display';
 146
 147   var $action = "";
 148   var $target = "";
 149   var $method = "";
 150   var $record = "";
 151
 152   var $fields;
 153
 154   function Form( $name = "fh", $rec = false ) {
 155     $this->name = $name;
 156     $this->record = $rec;
 157     $this->fields = array();
 158   }
 159
 160   function AddField( $type, $name, $prompt, $seq = 50, $default = "", $extra = "" ) {
 161     if ( is_object($this->record) ) {
 162       $current = $this->record->{$name};
 163     }
 164     else {
 165       $current = "";
 166     }
 167     if ( isset($this->fields[$name]) ) {
 168       $this->fields[$name]->type = $type;
 169       $this->fields[$name]->seq  = $seq;
 170       $this->fields[$name]->name = $name;
 171       $this->fields[$name]->prompt = $prompt;
 172       $this->fields[$name]->default = $default;
 173       $this->fields[$name]->current = $current;
 174       $this->fields[$name]->attributes = $extra;
 175     }
 176     else {
 177       $this->fields[$name] = new Field( $type, $name, $prompt, $seq, $default, $current, $extra );
 178     }
 179   }
 180
 181   function AddButton( $type, $name, $label, $seq = 50 ) {
 182     $type = "btn_$type";
 183     $name = "btn_$name";
 184     $prompt = $label;
 185     $this->fields[$name] = new Field( $type, $name, $prompt, $seq );
 186   }
 187
 188   function BuildHTML( ) {
 189     global $sysname;
 190     $fst = sprintf( "<form action=\"%s\" target=\"%s\" method=\"%s\">\n", $this->action, $this->target, $this->method);
 191
 192     $fst .= "<table>";
 193     while( list($k,$v) = each($this->fields) ) {
 194       $fst .= $v->BuildHTML();
 195     }
 196     $fst .= "</table></form>";
 197     return $fst;
 198   }
 199 }
 200
 201 ?>