\n";
# Get values
if ( not $arr{page} ) {
showStartPage();
} else {
delete $arr{page};
selectStudents();
}
#-----------------
sub selectStudents {
#-----------------
my $select;
my $tableheader; # = "$arr{groupname} $arr{groupvalue}";
my $group;
if ( $arr{groupname} eq $lex{Homeroom} and $arr{groupvalue} ) {
$select = "where homeroom = ?";
$group = 'homeroom';
} elsif ( $arr{groupname} eq $lex{Grade} and $arr{groupvalue} ){
$select = "where grade = ?";
$group = 'grade';
} elsif ( $arr{groupname} eq $lex{Homeroom} or $arr{groupname} eq $lex{Grade} ) {
$group = $arr{groupname}; # no value passed,
} else { # should never happen unless attempted hack.
print $lex{Error}. " $arr{groupname}\n";
print "\n";
exit;
}
my @students = ();
if ( $select ) { # we have some group value entered.
my @groups = split / /, $arr{groupvalue};
my $sth = $dbh->prepare("select studnum from student $select
order by lastname, firstname");
foreach my $grp ( @groups ) {
$sth->execute( $grp );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $stud = $sth->fetchrow ) {
push @students, $stud;
}
}
} else { # just get all students
my $sth = $dbh->prepare("select studnum from student
order by lastname, firstname");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $stud = $sth->fetchrow ) {
push @students, $stud;
}
}
if ( not @students ){ # No students found...
print '