[######################################################################### # Begins a new form # Param#1: Form title (if undef or '' the no title is displayed) # Param#2: Name of the form # Param#3: Script to be called upon post request #########################################################################] [* sub begin_form { ($title, $name, $script) = @_; captions_colwidth($capt_width); $form_name = $name; $valtext=''; if (defined($title) and ($title ne '')) { *]
[+ $title +]
[* } *]
[* } *] [######################################################################## # Ends a form # Param#1: Number of pixel to live as empty space before closing the # form(def=0) # Param#2: Number of pixel to live as empty space after closing the # form(def=3) ########################################################################] [* sub end_form { $height = shift; $lineh = defined($_[0]) ? shift : 3 ; *]
[* vspace($height); if ($lineh > 0) { *] [* } } *] . . .