\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showEvaluation();
}
#-----------------
sub showEvaluation {
#-----------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Get Master Record
my $sth = $dbh->prepare("select * from pwalk_eval 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_score where mstid = ? order by sequence");
$sth->execute( $mstid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
print qq{
\n};
while ( my $ref = $sth->fetchrow_hashref ) {
%r = %$ref;
print qq{
$r{description} ($r{category})
\n};
print qq{
Score
$r{score}
\n};
print qq{
$lex{'Areas of Strength'}
$r{strengths}
\n};
print qq{
$lex{'Areas for Improvement'}
$r{weaknesses}
\n};
}
print qq{
General Comments
$mst{comment}
\n};
print qq{
\n};
print qq{\n};
exit;
} # end of showTemplate
#----------------
sub showStartPage {
#----------------
# Get Staff Member Name
my $sth = $dbh->prepare("select lastname, firstname from staff where userid = ?");
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth->fetchrow;
print qq{
$firstname $lastname
\n};
# Get the Evaluations
my $sth = $dbh->prepare("select * from pwalk_eval where tuserid = ?
order by adatetime desc");
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $first = 1;
while ( my $ref = $sth->fetchrow_hashref ) {
if ($first ) {
# Start Form
print qq{\n};
print qq{