\n};
# Setup Query
my $sth = $dbh->prepare("select lastname, firstname, grade, homeroom from studentall where studnum = ?");
my $sth1 = $dbh->prepare("select id, trans_date, trans_type, name, description, total,
paid_id, receipt from fees_jrl
where studnum = ? and to_days(trans_date) >= to_days('$startdate') order by trans_date, id");
my $sth2 = $dbh->prepare("select sum(total) from fees_jrl where studnum = ?");
my $sth3 = $dbh->prepare("select count(*) from fees_jrl where paid_id is NULL and studnum = ?");
# create sorting structure.
my %students;
foreach my $studnum ( keys %arr ) {
$sth->execute( $studnum );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my ( $lastname, $firstname, $grade, $homeroom ) = $sth->fetchrow;
$students{"$lastname$firstname$studnum"} = { 'lastname' => $lastname,
'firstname' => $firstname,
'studnum' => $studnum,
'grade' => $grade,
'homeroom' => $homeroom
};
};
foreach my $key ( sort keys %students ) {
my $ref = $students{$key};
my %r = %$ref;
my $studnum = $r{studnum};
# Check for error with zero balance and some unmarked paid_id values.
$sth2->execute( $studnum );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $balance = $sth2->fetchrow;
my $pcount;
if ( $balance == 0 ) { # check for blank paid_id
$sth3->execute( $studnum );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
$pcount = $sth3->fetchrow;
}
if ( $pcount ) { # if we have zero balance and some unmarked paid_id fields, show form
print qq{\n};
}
# Table Header
print qq{