view release on metacpan or  search on metacpan

FormWizard/FileTemplate.pm  view on Meta::CPAN

	$self->{cor2}=shift||"white";
	$self->{cor3}=shift||"red";

	return $self;
}

sub header {
	my $self=shift;
	my $fname= $self->{base_dir}.$self->{template}."_header.html";
	open FH, $fname;
	$/="";
	my $header="";
	while (<FH>) {
		$header .= $_;
	}
	return $header;
}

sub form_header {
	my $self=shift;
	my $title=shift;

FormWizard/FileTemplate.pm  view on Meta::CPAN

	return
q(		</table>
		</form>
);
}

sub footer {
	my $self=shift;
	my $fname= $self->{base_dir}.$self->{template}."_footer.html";
	open FH,$fname;
	$/ = "";
	my $footer="";
	while (<FH>) {
		$footer .= $_;
	}
	return $footer;
}

1;