HTML::Template example

use CGI qw/:standard :delete_all :escapeHTML :html3 :all/; use HTML::Template; print header; my $item = "CONTINUE"; my ($item1_val, $item2_val, $item3_val ) = 0; if ($item eq "SELECT") { $item1_val = 1; } elsif ($item eq "CONTINUE") { $item2_val = 1; } elsif ($item eq "DENIED"){ $item3_val = 1; } my $template = HTML::Template->new( filename => 'template4.tmpl' ); $template->param( item1 => $item1_val ); $template->param( item2 => $item2_val ); $template->param( item3 => $item3_val ); print $template->output(); ##

##




HTML::Template example









Please Select  an Item








Item Selected: Car
 


(Please click to continue)
 










Item Selected: Mini Van
 


Access to this Item is denied
 






##

##

use CGI qw/:standard :delete_all :escapeHTML :html3 :all/;
use HTML::Template; 

print header; 

my $item = "CONTINUE";

if ($item eq "SELECT") {
   $html_output = ......
}
elsif ($item eq "CONTINUE") {
   $html_output = ......
}
elsif ($item eq "DENIED"){
   $html_output = ......
}

my $template = HTML::Template->new( filename => 'template4.tmpl' ); 

$template->param( html_output => $html_output );

print $template->output();

##

##




HTML::Template example