#!/usr/bin/perl
# Copyright 2001-2024 Leslie Richardson
# This file is part of Open Admin for Schools.
# Delete Any writing scores
my %lex = ('Main' => 'Main',
'Error' => 'Error',
'Scores' => 'Scores',
'Delete' => 'Delete',
'Continue' => 'Continue',
'Name' => 'Name',
'Date' => 'Date',
'Record(s) Deleted' => 'Record(s) Deleted',
'Admin Password' => 'Admin Password',
'Not Allowed' => 'Not Allowed',
'Grade' => 'Grade',
'Author' => 'Author',
'Close' => 'Close',
);
use DBI;
use CGI;
my $self = 'wrDelete.pl';
my @time = localtime(time);
my $year = $time[5] + 1900;
my $month = $time[4] + 1;
my $currdate = "$year-$month-$time[3]";
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $self: $@
\n";
die $lex{Error}. "$self: $@\n";
}
my $q = new CGI;
print $q->header( -charset, $charset);
my %arr = $q->Vars;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Check for WR access code
my $sth = $dbh->prepare("select field_value from staff_multi
where field_name = 'access' and userid = ?");
$sth->execute( $userid );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $accessWR;
while ( my $val = $sth->fetchrow ) {
if ( uc $val eq 'WR' ) { $accessWR = 1; }
}
# Page Header
my $title = "$lex{Delete} Writing $lex{Scores}";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{$title
\n};
if ( not $arr{page} ) {
selectScore();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
deleteScore();
}
#-------------
sub selectScore {
#-------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; }
my $id = $arr{id};
# Get Writing Record
my $sth = $dbh->prepare("select * from write_scores where id = ?");
$sth->execute( $id );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $ref = $sth->fetchrow_hashref;
my $tauthor = $ref->{tauthor};
=head
# Access Controls
my $failflag;
if ( not $allow_author and not $allow_wr ) { $failflag = 1; } # nobody deletes
elsif ( $allow_author and $tauthor ne $userid ) { $failflag = 1; } # not author
if ( $allow_cma and $accesscma ) { $failflag = 0; } # allow dra override of author failure
if ( $adminpassword eq $arr{adminpassword} ) { $failflag = 0; } # allow admin override
if ( $failflag ) {
print qq{$lex{Delete} $lex{'Not Allowed'}
\n};
print qq{\n};
print qq{\n};
exit;
}
=cut
# Get Student Name
my $sth1 = $dbh->prepare("select lastname, firstname, grade from studentall where studnum = ?");
$sth1->execute( $ref->{studnum} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ( $lastname, $firstname,$grade ) = $sth1->fetchrow;
# print qq{Name: $lastname $firstname
\n};
# Print Form Heading
print qq{