\n";
print "\n";
exit;
}
#--------------
sub setupReport {
#--------------
#foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my $mode;
if ( $arr{output} eq $lex{PDF} ) {
$mode = 'pdf';
} else {
$mode = 'html';
}
if ( $arr{group} eq $lex{Grade} or $arr{group} eq $lex{Homeroom} ) {
if ( $arr{group} eq $lex{Grade} ) {
$group = 'grade';
} else {
$group = 'homeroom';
}
# Do the selects first; first find students from grouping
my @groups = split /\s/, $arr{groupid};
if ( not @groups ) { # select all students
my $sth = $dbh->prepare("select lastname, firstname, studnum, $group from student
order by lastname, firstname");
$sth->execute;
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my ( $lastname, $firstname, $studnum, $grp ) = $sth->fetchrow ) {
push @students, $studnum;
$students{$studnum} = "$lastname, $firstname ($grp)";
}
} else { # we have groups of students
my $sth = $dbh->prepare("select lastname, firstname, studnum, $group from student
where $group = ? order by lastname, firstname");
foreach my $grp ( @groups ) {
$sth->execute( $grp );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my ( $lastname, $firstname, $studnum, $grp ) = $sth->fetchrow ) {
push @students, $studnum;
$students{$studnum} = "$lastname, $firstname ($grp)";
}
} # done loop through @groups
}
# We now have student @students and %students, now get their lockers.
# Find the student's lockers (may be more than 1 student per locker)
$sth = $dbh->prepare("select locker_num from lok_rlink where studnum = ?");
foreach my $studnum ( @students ) {
$sth->execute( $studnum );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
$locker_num = $sth->fetchrow;
if ( $locker_num ) {
push @lockers, $locker_num;
}
}
} else { # find lockers by location.
my @locations = split /\s/, $arr{groupid};
if ( not @locations ) { # select all lockers
my $sth = $dbh->prepare("select locker_num from lok_rlink order by locker_num");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
while ( my $locker_num = $sth->fetchrow ) {
push @lockers, $locker_num;
}
} else { # we have groups of lockers by location
my $sth = $dbh->prepare("select link.locker_num from lok_rlink as link,
lok_locker as l
where link.locker_num = l.locker_num and l.location = ?");
foreach my $location ( @locations ) {
$sth->execute( $location );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
while ( my $locker_num = $sth->fetchrow ) {
push @lockers, $locker_num;
}
} # done loop through @locations
} # done location
} # we now have locker_num in @lockers
if ( not @lockers ) { # no lockers found
print "