#!/usr/bin/perl # Copyright 2001-2022 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Delete' => 'Delete', 'Assessment Items' => 'Assessment Items', 'GB Main' => 'GB Main', 'Main' => 'Main', 'Date' => 'Date', 'Name' => 'Name', 'Description' => 'Description', 'Group' => 'Group', 'No Course Found' => 'No Course Found', 'Error' => 'Error', 'Please Log In' => 'Please Log In', 'Scores' => 'Scores', ); use DBI; use CGI; use CGI::Session; my $self = 'gbTestDelete.pl'; my $q = new CGI; my %arr = $q->Vars; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@
\n"; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Get Session Information... my $session = new CGI::Session("driver:mysql;serializer:FreezeThaw", undef,{Handle => $dbh}) or die CGI::Session->errstr; my $logged_in = $session->param(logged_in); if ( not $logged_in ) { print $q->header( -charset, $charset ); print qq{[ $lex{'GB Main'} ]\n}; print qq{

$lex{'Please Log In'}

\n}; exit; } my $subjsec = $session->param('subjsec'); print $q->header( -charset, $charset ); # Load Course Info my $sth = $dbh->prepare("select description from subject where subjsec = ?"); $sth->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr:$!\n";} my $desc = $sth->fetchrow; my $title = qq{$lex{Delete} $lex{'Assessment Items'}}; print qq{$doctype\n$title\n}; print qq{ $chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{'GB Main'} ]\n}; print qq{

$title - $desc

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; deleteTests(); } #---------------- sub showStartPage { #---------------- if ( not $subjsec ){ print qq{

$lex{'No Course Found'}

\n}; print qq{\n}; exit; } # Load Tests Info $sth = $dbh->prepare("select id, tdate, name, description, grp from gbtest where subjsec = ? order by tdate, grp"); $sth->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $sth1 = $dbh->prepare("select count(*) from gbscore where testid = ?"); # Start Form print qq{
\n}; print qq{\n}; print qq{\n}; # print qq{
\n}; my $first = 1; while ( my ($id, $tdate, $name, $desc, $grp) = $sth->fetchrow ){ # Table if ( $first ) { print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; $first = 0; } # Get Score Count $sth1->execute( $id ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $scount = $sth1->fetchrow; print qq{\n}; print qq{}; if ( not $scount ) { print qq{\n}; } else { print qq{\n}; } } if ( $first ) { # no test items print qq{

No Assessment Items!

\n}; print qq{\n}; exit; } else { print qq{
}; print qq{Only Assessments with no scores can deleted
$lex{Name}$lex{Description}$lex{Date}$lex{Group}$lex{Scores}$lex{Delete}
$name$desc$tdate$grp$scount
\n}; } print qq{
\n}; print qq{

No Confirmation of Deletion is Done!

\n}; print qq{
\n}; exit; } #-------------- sub deleteTests { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key VAL:$arr{$key}
\n}; } my $subjsec = $arr{subjsec}; delete $arr{subjsec}; my $sth1 = $dbh->prepare("select * from gbtest where id = ?"); my $sth = $dbh->prepare("delete from gbtest where id = ?"); foreach my $id ( sort keys %arr ) { # first get data about item to delete. $sth1->execute( $id ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth1->fetchrow_hashref; my %r = %$ref; $sth->execute( $id ); if ( $DBI::errstr ){ print qq{
Delete $lex{Error} - $r{name} - $r{description} - $DBI::errstr
\n}; exit; } else { print qq{
Deleted $r{name} - $r{description}
\n}; } } print qq{\n}; exit; }