#!/usr/bin/perl
# Copyright 2001-2018 Leslie Richardson
# This file is part of Open Admin for Schools.
# Open Admin for Schools is free software; you can redistribute it
# and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
# evaldelstud.pl - delete subject enrollments/gradebook records by student.
# NOTE: Gradebook (tests and scores) deletion is commented out! It will
# not erase these. This will not cause any problems since withdrawn
# students will not show up in gradebook...
my %lex = ('Student Course' => 'Student Course',
'Please search again' => 'Please search again',
'Main' => 'Main',
'Report Card' => 'Report Card',
'Last,First/Last/Initials/Studnum' => 'Last,First/Last/Initials/Studnum',
'Subject' => 'Subject',
'Withdraw' => 'Withdraw',
'No Student(s) Found' => 'No Student(s) Found',
'Withdraw from selected subjects' => 'Withdraw from selected subjects',
'No Course Enrollments' => 'No Course Enrollments',
'Search' => 'Search',
'Teacher' => 'Teacher',
'Student' => 'Student',
'Error' => 'Error',
'Enrollment' => 'Enrollment',
'Deleted' => 'Deleted',
'Withdraw' => 'Withdraw',
'View' => 'View',
'Yes' => 'Yes',
);
my $self = 'evaldelstud.pl';
use DBI;
use CGI;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $student = $arr{student};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Print Html Head
my $title = qq{$lex{'Student Course'} $lex{View}/$lex{Withdraw} };
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n\n};
print qq{[ $lex{Main} | $lex{'Report Card'} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
mkSearchError();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
searchStudent();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
deleteEvalRecords();
}
#----------------
sub searchStudent {
#----------------
# Setup the Search
if ( $student =~ /\d+/ ) { # we have a student number
$studentnumber = $student;
$sth = $dbh->prepare("select lastname, firstname, studnum
from studentall where studnum = ?");
$sth->execute( $student );
} else { # we have words hopefully 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.
$fi = substr($lastname,0,1). '%'; $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{
$lex{'No Student(s) Found'}
\n};
mkSearchError();
}
} # Last Else
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $rows = $sth->rows;
if ($rows < 1) {
print qq{
$lex{'No Student(s) Found'}
\n};
mkSearchError();
}
for ( 1..$rows ) {
my ($ln,$fn,$sn) = $sth->fetchrow;
push @students, qq{$ln:$fn:$sn};
}
my $sth1 = $dbh->prepare("select lastname, firstname from staff where userid = ?");
foreach my $s ( sort @students ) {
my ( $lastname, $firstname, $studnum) = split(/:/, $s);
print qq{
\n};
for ( 1..$rows ){ # Loop through all courses
my ($subjsec, $desc, $teacher, $startterm, $endterm) = $sth->fetchrow;
$sth1->execute( $teacher );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth1->fetchrow;
print qq{
$desc ($subjsec)
$firstname $lastname ($teacher)
};
print qq{
$startterm-$endterm
\n};
print qq{
\n};
}
print qq{
};
print qq{
\n};
print qq{\n};
} # end of student loop
mkSearchError();
print qq{\n};
exit;
} # end of searchStudent;
#----------------
sub mkSearchError {
#----------------
print qq{