Platform  3.1
PHP API documentation
 All Data Structures Namespaces Files Functions Variables Pages
Class.Form.php
Go to the documentation of this file.
1 <?php
2 /*
3  * @author Anakeen
4  * @license http://creativecommons.org/licenses/by-nc-sa/2.0/fr/ Anakeen - licence CC
5  * @package FDL
6 */
7 /**
8  * Generated Header (not documented yet)
9  *
10  * @author Anakeen 2000
11  * @version $Id: Class.Form.php,v 1.2 2003/08/18 15:46:42 eric Exp $
12  * @license http://creativecommons.org/licenses/by-nc-sa/2.0/fr/ Anakeen - licence CC
13  * @package FDL
14  * @subpackage CORE
15  */
16 /**
17  */
18 // ---------------------------------------------------------------------------
19 // anakeen 2000 - Marianne Le Briquer
20 // ---------------------------------------------------------------------------
21 // This program is free software; you can redistribute it and/or modify
22 // it under the terms of the GNU General Public License as published by
23 // the Free Software Foundation; either version 2 of the License, or (at
24 // your option) any later version.
25 //
26 // This program is distributed in the hope that it will be useful, but
27 // WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
28 // or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
29 // for more details.
30 //
31 // You should have received a copy of the GNU General Public License along
32 // with this program; if not, write to the Free Software Foundation, Inc.,
33 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
34 // ---------------------------------------------------------------------------
35 // $Id: Class.Form.php,v 1.2 2003/08/18 15:46:42 eric Exp $
36 // $Log: Class.Form.php,v $
37 // Revision 1.2 2003/08/18 15:46:42 eric
38 // phpdoc
39 //
40 // Revision 1.1 2002/01/08 12:41:34 eric
41 // first
42 //
43 // Revision 1.2 2001/02/11 10:53:33 marianne
44 // Ajout Img + maj diverses
45 //
46 // Revision 1.9 2000/08/21 10:55:13 marianne
47 // Ajout Newline et Hr
48 //
49 // Revision 1.8 2000/07/29 10:27:15 marc
50 // Ajout attr wrap dans textarea
51 //
52 // Revision 1.7 2000/06/21 18:10:37 yannick
53 // Pas de lignes blanches
54 //
55 // Revision 1.6 2000/06/06 15:12:42 marianne
56 // Nouvelles fonctions...
57 //
58 // Revision 1.1 2000/05/29 08:36:51 yannick
59 // Creation
60 //
61 // ---------------------------------------------------------------------------
62 $CLASS_FORM_PHP = '$Id';
63 
64 class Form
65 {
66 
67  var $cell_class;
68  var $label_class;
69  var $titre_class;
70 
71  function Form($ClassLabel = "label3", $ClassTitre = "titre3", $ClassCell = "tab1")
72  {
73  $this->cell_class = $ClassCell;
74  $this->label_class = $ClassLabel;
75  $this->titre_class = $ClassTitre;
76  return TRUE;
77  }
78 
79  function Hidden($name, $value = '')
80  {
81  $src = "<INPUT TYPE=\"hidden\" NAME=\"$name\" VALUE=\"$value\">\n";
82  return $src;
83  }
84  function Img($src, $alt = "", $border = 0, $vspace = 0, $hspace = 0)
85  {
86  $walt = "";
87  if ($alt != "") $walt = "ALT=\"$alt\"";
88  $src = "<IMG SRC=\"$src\" BORDER=\"$border\" $walt VSPACE=$vspace HSPACE=$hspace>\n";
89  return $src;
90  }
91  function Table($border = 0, $width = "100%", $align = "", $space = 0, $padd = 0)
92  {
93  $walign = "";
94  if ($align != "") $walign = "ALIGN=\"$align\"";
95  $src = "<TABLE BORDER=\"$border\" WIDTH=\"$width\" $walign CELLSPACING=\"$space\" CELLPADDING=\"$padd\">\n";
96  return $src;
97  }
98 
99  function Hr($width = "100%", $align = "")
100  {
101  $walign = "";
102  if ($align != "") $walign = "ALIGN=\"$align\"";
103  $src = "<HR WIDTH=\"$width\" $walign>\n";
104  return $src;
105  }
106 
107  function NewLine($class = "")
108  {
109  if ($class == "") {
110  return "</TR>\n<TR>\n";
111  } else {
112  return "</TR>\n<TR CLASS=\"$class\" >\n";
113  }
114  return $src;
115  }
116 
117  function LibCell($libelle, $value, $class = "", $align = "LEFT", $span = 1)
118  {
119  $src = "\t<TD CLASS=\"{$this->label_class}\" ALIGN=\"$align\" COLSPAN=$span>$libelle\n";
120  if ($class == "") {
121  $src.= "\t<DIV CLASS=\"{$this->titre_class}\" >&nbsp;$value</DIV></TD>\n";
122  } else {
123  $src.= "\t<DIV CLASS=\"$class\" >&nbsp;$value</DIV></TD>\n";
124  }
125  return $src;
126  }
127  function LibCells($libelle, $value, $classval = "", $classlib = "", $align = "LEFT")
128  {
129  if ($classlib == "") $classlib = $this->label_class;
130  if ($classval == "") $classval = $this->cell_class;
131  $src = "\t<TD CLASS=\"$classlib\" ALIGN=\"$align\">$libelle</TD>\n";
132  $src.= "\t<TD CLASS=\"$classval\" ALIGN=\"$align\">$value</TD>\n";
133  return $src;
134  }
135  function Cell($value, $class = "", $align = "LEFT", $span = 1)
136  {
137  if ($align == "") {
138  $align = "LEFT";
139  }
140  if ($class == "") {
141  $src = "\t<TD CLASS=\"{$this->cell_class}\" ALIGN=\"$align\" COLSPAN=$span>&nbsp;$value</TD>\n";
142  } else {
143  $src = "\t<TD CLASS=\"$class\" ALIGN=\"$align\" COLSPAN=$span>&nbsp;$value</TD>\n";
144  }
145  return $src;
146  }
147 
148  function TCell($value, $span = 1, $class = "", $align = "LEFT", $width = "")
149  {
150  $wwidth = "";
151  if ($width != "") {
152  $wwidth = " width=\"$width\"";
153  }
154  if ($class == "") {
155  $src = "\t<TD NOWRAP $wwidth CLASS=\"{$this->titre_class}\" COLSPAN=$span>$value</TD>\n";
156  } else {
157  $src = "\t<TD NOWRAP CLASS=\"$class\" COLSPAN=$span>$value</TD>\n";
158  }
159  return $src;
160  }
161 
162  function CellTextArea($CREATION, $libelle, $rows = 5, $cols = 55, $name, $entite, $span = 1)
163  {
164  if (!$CREATION) {
165  $value = $entite->$name;
166  } else {
167  $value = '';
168  };
169  $src = "\t<TD CLASS=\"{$this->label_class}\" COLSPAN=$span>$libelle\n";
170  $src.= "<DIV CLASS=\"finput\"><FONT SIZE=\"-1\">" . "<TEXTAREA WRAP=\"virtual\" ROWS=$rows COLS=$cols NAME=\"p_$name\">";
171  if (!$CREATION) {
172  $src.= "$value";
173  }
174  $src.= "</TEXTAREA></FONT></TD>\n";
175  return $src;
176  }
177 
178  function CellInput($CREATION, $libelle, $max, $size, $name, $entite, $span = 1)
179  {
180  if (!$CREATION) {
181  $value = $entite->$name;
182  } else {
183  $value = '';
184  };
185  $src = "\t<TD CLASS=\"{$this->label_class}\" COLSPAN=$span>$libelle\n";
186  $src.= "<DIV CLASS=\"finput\"><FONT SIZE=\"-1\">" . "<INPUT MAXLENGTH=$max SIZE=$size NAME=\"p_$name\"";
187  if ($CREATION) {
188  $src.= ">\n";
189  } else {
190  $src.= " VALUE=\"$value\">\n";
191  }
192  $src.= "</FONT></TD>\n";
193  return $src;
194  }
195  function CellInputId($CREATION, $libelle, $max, $size, $name, $id, $entite, $span = 1)
196  {
197  if (!$CREATION) {
198  $value = $entite->$id;
199  } else {
200  $value = '';
201  };
202  $src = "\t<TD CLASS=\"{$this->label_class}\" COLSPAN=$span>$libelle\n";
203  $src.= "<FONT SIZE=\"-1\">" . "<INPUT MAXLENGTH=$max SIZE=$size NAME=\"p_$name\"";
204  if ($CREATION) {
205  $src.= ">\n";
206  } else {
207  $src.= " VALUE=\"$value\">\n";
208  }
209  $src.= "</FONT></TD>\n";
210  return $src;
211  }
212  function CellInputNoDiv($CREATION, $libelle, $max, $size, $name, $entite, $span = 1)
213  {
214  if (!$CREATION) {
215  $value = $entite->$name;
216  } else {
217  $value = '';
218  };
219  $src = "\t<TD CLASS=\"{$this->label_class}\" COLSPAN=$span>$libelle\n";
220  $src.= "<FONT SIZE=\"-1\">" . "<INPUT MAXLENGTH=$max SIZE=$size NAME=\"p_$name\"";
221  if ($CREATION) {
222  $src.= ">\n";
223  } else {
224  $src.= " VALUE=\"$value\">\n";
225  }
226  $src.= "</FONT></TD>\n";
227  return $src;
228  }
229 
230  function Input($CREATION, $libelle, $max, $size, $name, $entite, $span = 1)
231  {
232  if (!$CREATION) {
233  $value = $entite->$name;
234  } else {
235  $value = '';
236  };
237  $src = "<DIV CLASS=\"finput\"><FONT SIZE=\"-1\">" . "<INPUT MAXLENGTH=$max SIZE=$size NAME=\"p_$name\"";
238  if ($CREATION) {
239  $src.= ">\n";
240  } else {
241  $src.= " VALUE=\"$value\">\n";
242  }
243  $src.= "</FONT>\n";
244  return $src;
245  }
246  function InputSimple($max, $size, $name, $value, $span = 1)
247  {
248  $src = "<FONT SIZE=\"-1\">" . "<INPUT MAXLENGTH=$max SIZE=$size NAME=\"p_$name\"";
249  $src.= " VALUE=\"$value\">\n";
250  $src.= "</FONT>\n";
251  return $src;
252  }
253 
254  function Select($libelle, $name, $name_id, $name_lib, $entite, $liste, $vide = "vide")
255  {
256  reset($liste);
257  if (isset($entite->$name) && ($entite->$name == "")) unset($entite->$name);
258  $src = "\t<TD CLASS=\"{$this->label_class}\">$libelle\n";
259  $src.= "<DIV CLASS=\"{$this->titre_class}\">\n";
260  $src.= "<SELECT NAME=\"p_$name\" SIZE=1>\n";
261  if ($vide == "vide") {
262  if (!isset($entite->$name)) {
263  $src.= "<OPTION SELECTED VALUE=\"\">-- vide --\n";
264  } else {
265  $src.= "<OPTION VALUE=\"\">-- vide --\n";
266  }
267  }
268  if (sizeof($liste) > 0) {
269  while (list($k, $v) = each($liste)) {
270  if ((isset($entite->$name)) && ($entite->$name == $v->$name_id)) {
271  $src.= "<OPTION SELECTED VALUE=\"" . $v->$name_id . "\">" . $v->$name_lib . "\n";
272  } else {
273  if (($vide != "vide") && (!isset($entite->$name)) && ($vide == $v->$name_lib)) {
274  $src.= "<OPTION SELECTED VALUE=\"" . $v->$name_id . "\">" . $v->$name_lib . "\n";
275  } else {
276  $src.= "<OPTION VALUE=\"" . $v->$name_id . "\">" . $v->$name_lib . "\n";
277  }
278  }
279  }
280  }
281  $src.= "</SELECT></DIV></TD> \n";
282  return $src;
283  }
284 
285  function SelectConcat($libelle, $name, $name_id, $name_lib1, $name_lib2, $entite, $liste, $vide = "vide")
286  {
287  reset($liste);
288  if (isset($entite->$name) && ($entite->$name == "")) unset($entite->$name);
289  $src = "\t<TD CLASS=\"{$this->label_class}\">$libelle\n";
290  $src.= "<DIV CLASS=\"{$this->titre_class}\">\n";
291  $src.= "<SELECT NAME=\"p_$name\" SIZE=1>\n";
292  if (($vide == "vide") && (!isset($entite->$name))) {
293  $src.= "<OPTION SELECTED VALUE=\"\">-- vide --\n";
294  }
295  if (sizeof($liste) > 0) {
296  while (list($k, $v) = each($liste)) {
297  if ((isset($entite->$name)) && ($entite->$name == $v->$name_id)) {
298  $src.= "<OPTION SELECTED VALUE=\"" . $v->$name_id . "\">" . $v->$name_lib1 . " " . $v->$name_lib2 . "\n";
299  } else {
300  if (($vide != "vide") && (!isset($entite->$name)) && ($vide == $v->$name_lib1)) {
301  $src.= "<OPTION SELECTED VALUE=\"" . $v->$name_id . "\">" . $v->$name_lib1 . " " . $v->$name_lib2 . "\n";
302  } else {
303  $src.= "<OPTION VALUE=\"" . $v->$name_id . "\">" . $v->$name_lib1 . " " . $v->$name_lib2 . "\n";
304  }
305  }
306  }
307  }
308  $src.= "</SELECT></DIV></TD> \n";
309  return $src;
310  }
311 
312  function SelectListeSimple($libelle, $name, $entite, $liste, $vide = "OUI")
313  {
314 
315  reset($liste);
316  $src = "\t<TD CLASS=\"{$this->label_class}\">$libelle\n";
317  $src.= "<DIV CLASS=\"{$this->titre_class}\">\n";
318  $src.= "<SELECT NAME=\"p_$name\" SIZE=1>\n";
319  if ($vide == "OUI") {
320  if (!isset($entite->$name)) {
321  $src.= "<OPTION SELECTED VALUE=\"\">-- vide --\n";
322  }
323  if ((isset($entite->$name)) && ($entite->$name == '')) {
324  $src.= "<OPTION SELECTED VALUE=\"\">-- vide --\n";
325  }
326  }
327  if (sizeof($liste) > 0) {
328  while (list($k, $v) = each($liste)) {
329  if ((isset($entite->$name)) && ($entite->$name == $v)) {
330  $src.= "<OPTION SELECTED VALUE='$v'>$v\n";
331  } else {
332  $src.= "<OPTION VALUE='$v'>$v\n";
333  }
334  }
335  }
336  $src.= "</SELECT></DIV></TD> \n";
337  return $src;
338  }
339 }
340 ?>
← centre documentaire © anakeen - published under CC License - Dynacase