\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showTemplate();
}
#-----------------
sub showTemplate {
#-----------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Get Master Record
my $sth = $dbh->prepare("select * from pwalk_mst where id = ?");
$sth->execute( $arr{id} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $mref = $sth->fetchrow_hashref;
my %mst = %$mref;
my $mstid = $mst{id};
# Loop through all template records
my $sth = $dbh->prepare("select * from pwalk_tpl where mstid = ?");
$sth->execute( $mstid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
print qq{
$mst{title} - $mst{category}
\n};
print qq{
\n};
print qq{
$lex{Description}
$lex{Category}
$lex{Sequence}
\n};
while ( my $ref = $sth->fetchrow_hashref ) {
%r = %$ref;
print qq{
$r{description}
};
print qq{
$r{category}
$r{sequence}
\n};
}
print qq{
\n};
print qq{\n};
print qq{\n};
exit;
} # end of showTemplate
#----------------
sub showStartPage {
#----------------
=head
# Start Form
print qq{