\n};
print qq{\n};
exit;
}
#----------------
sub searchStudent {
#----------------
my $checked;
if ( $arr{check} ) {
$checked = q{checked = "checked"};
}
my $student = shift;
# Setup the Search
if ($student =~ /\d+/) { # we have a student number
$sth = $dbh->prepare("select lastname, firstname, studnum from studentall
where studnum = ?");
$sth->execute( $student );
} else { # we have words possibly with a comma
($lastname,$firstname) = split /\,/, $student;
$firstname =~ s/^\s*//;
$lastname =~ s/^\s*//;
if ($lastname and $firstname){ # both entered.
$sth = $dbh->prepare("select lastname, firstname, studnum from studentall
where lastname = ? and firstname = ?");
$sth->execute( $lastname, $firstname );
} elsif ($lastname and not $firstname){ # only lastname (no comma)
if (length($lastname) == 2){ # search by initials: fi, li.
my $fi = substr($lastname,0,1). '%';
my $li = substr($lastname,1,1). '%';
$sth = $dbh->prepare("select lastname, firstname, studnum from studentall
where lastname $sql{like} ? and firstname $sql{like} ?");
$sth->execute( $li, $fi );
} else {
$sth = $dbh->prepare("select lastname, firstname, studnum from studentall
where lastname = ? order by firstname");
$sth->execute( $lastname );
}
} else { # print an error....
print qq{