[######################################################################### 
# 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 '')) {
*]		
  <TR>
   <TD vAlign="center" colspan=3>
	    <table width="100%" cellPadding=0 border=0  cellSpacing=0><tr>  
	    <td vAlign="center" align="left" width=7 bgcolor="#ffffff">
			<img align="left" src="images/form_t_l.gif" border=0  hspace=0 vspace=0></td>  
		<td class="formTitle" vAlign="center" align="left" width="100%">
		<IMG title="[+ 'Form:' . $title +]" 

src="images/formlgnew.gif" border=0 vspace="0" hspace="1" align="absmiddle">
		[+ $title +]</td>
        <td vAlign="center" align="right" bgcolor="#ffffff" width=22>
<a href="javascript:history.go(-1)">
		<img align="right" title="Previous Page" src="images/back-blue_r.gif" border=0 hspace=0 vspace=0></a></td>
        <td vAlign="center" align="right" bgcolor="#ffffff" width=22>
<a href="main.epl">
		<img  align="right" title="Main Page" src="images/home-blue_r.gif" border=0 hspace=0 vspace=0></a></td>
		</tr>
		</table>
	</TD> 
  </TR>
[* 		} *]  
  <form name="[+ $name +]" action="[+ $script +]" enctype="multipart/form-data" method="post" 
onsubmit="return val_[+ $form_name +]()">
[* } *]

[######################################################################## 
 # 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 ; 
*] 
 </form>
[* 
	vspace($height); 
  	if ($lineh > 0) {
*]
 <TR>
    <TD height="[+ $lineh +]"></TD> 
 </TR>
[*
	}
}	
*]

. . .


##</code><code>##

[# Import all functions from the controls library into script #]
[* Execute ({ inputfile => '_controls_lib.epl', import => 1 }) *]

[# Call functions from the library #]
[*
	begin_form('MyFormTitle', 'my_form_name', 'action_script_name');
	textinput('Username', 'user', 140, 0, 'User Name');
	password('Password', 'pass', 140, 0, 'User password');
	form_buttons();
	end_form();
*]

##</code><code>##

package LibControls;
 
use Apache::Reload;
use Embperl;
use Exporter;
use vars qw( @ISA @EXPORT_OK );

BEGIN {
	@ISA = qw ( Exporter );
	Embperl::Execute({inputfile => $path_to_lib, import => 1, package =>__PACKAGE__});
	@EXPORT_OK = qw( begin_form textinput password ... end_form );
}

1;

##</code><code>##

[!	use LibControls qw( begin_form, textinput, form_buttons, end_form ) !]

[*
	begin_form('MyFormTitle', 'my_form_name', 'action_script_name');
	textinput('Username', 'user', 140, 0, 'User Name');
	form_buttons();
	end_form();
*]
<