#!/usr/bin/perl
# Copyright 2001-2024 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('No Subject Found' => 'No Subject Found',
'Erase Checked Records' => 'Erase Checked Records',
'Main' => 'Main',
'Report Card' => 'Report Card',
'Name' => 'Name',
'Delete' => 'Delete',
'Withdrawn' => 'Withdrawn',
'NOTE' => 'NOTE',
'There is NO confirmation checking' => 'There is NO confirmation checking',
'These records are deleted immediately upon clicking this button!' =>
'These records are deleted immediately upon clicking this button!',
'Error' => 'Error',
'Records' => 'Records',
'Deleted' => 'Deleted',
);
my $self = 'evalpwrdel.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 $subjsec = $arr{subjsec};
my $checked = $arr{checked};
# HTML Header
my $title = "$lex{Delete} Course Enrollment/Evaluation Records";
print qq{$doctype\n\n};
print qq{$title
$chartype\n\n};
print qq{[ $lex{Main} |\n};
print qq{$lex{'Report Card'} ]\n};
print qq{
$title
\n};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
$dbh->{mysql_enable_utf8} = 1;
if ( $arr{flag} ) {
delete $arr{flag};
deleteRecords();
}
# Find and print course name...
my $sth = $dbh->prepare("select description from subject where subjsec = ?");
$sth->execute( $subjsec );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $description = $sth->fetchrow;
print qq{
$description ($subjsec)
\n};
my $sth = $dbh->prepare("select distinct e.studnum, s.lastname, s.firstname,s.grade,s.homeroom
from eval as e
left outer join studentall as s on e.studnum = s.studnum
where e.subjcode = ? group by e.studnum
order by s.lastname, s.firstname");
$sth->execute( $subjsec );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
print qq{
$lex{'NOTE'}: $lex{'There is NO confirmation checking'} \n};
print qq{$lex{'These records are deleted immediately upon clicking this button!'}
\n};
# Table/Form start
print qq{\n};
print qq{\n};
#----------------
sub deleteRecords {
#----------------
my $subjsec = $arr{subjsec};
delete $arr{subjsec};
#foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Get Course Info
my $sth = $dbh->prepare("select * from subject where subjsec = ?");
$sth->execute( $subjsec);
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
my $cref = $sth->fetchrow_hashref;
my %c = %$cref; # course info now in %c hash.
my $sth = $dbh->prepare("delete from eval where studnum = ? and subjcode = ?");
foreach my $studnum ( keys %arr ) {
$sth->execute( $studnum, $subjsec );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
}
print qq{