[
$lex{Main}\n};
if ( not $teachermode ) { # show export page link
print qq{ |
$lex{Export} ]\n};
} else { print qq{ ]\n}; }
print qq{
$title
\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;
my $value;
if ( $arr{homeroom} ) {
$select = "where homeroom = ?";
$group = 'homeroom';
$value = $arr{homeroom};
} elsif ( $arr{grade} ) {
$select = "where grade = ?";
$group = 'grade';
$value = $arr{grade};
} else { # no selection
print qq{
No Selection. Please select a Grade or Homeroom
\n};
print qq{\n};
exit;
}
if ( $select and $arr{skipnopic} ) { # Skip if no picture
$select .= ' and pic is not NULL';
}
my @students;
if ( $select ) { # we have some grade/homeroom entered.
my $sth = $dbh->prepare("select studnum from student $select
order by lastname, firstname");
$sth->execute( $value );
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 qq{
$lex{'No Student(s) Found'}!
\n};
print qq{