#!/usr/bin/perl # Copyright 2001-2022 Leslie Richardson # This file is part of Open Admin for Schools. use DBI; use CGI; my %lex = ('Power Delete Attendance' => 'Power Delete Attendance', 'Name' => 'Name', 'Subject' => 'Subject', 'Period' => 'Period', 'Reason' => 'Reason', 'Date' => 'Date', 'Delete' => 'Delete', 'Selected Records' => 'Selected Records', 'There will be no confirmation of deletion.' => 'There will be no confirmation of deletion.', 'Record(s) Deleted' => 'Record(s) Deleted', 'Error' => 'Error', 'Main' => 'Main', 'Attendance' => 'Attendance', 'WD = Withdrawn' => 'WD = Withdrawn', 'Not Found' => 'Not Found', 'Continue' => 'Continue', ); eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # Get Date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = "$year-$month-$day"; my $currdate1 = "@month[$month] $day, $year"; $dsn = "DBI:$dbtype:dbname=$dbase"; $dbh = DBI->connect($dsn,$user,$password); my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; # Print Page Head my $title = $lex{'Power Delete Attendance'}; print qq{$doctype\n$title\n}; print qq{\n}; if ( not $arr{page} ) { print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Attendance} ]\n}; my $date; if ( not ($arr{date} =~ m/[-]/) ){ #We have a date, check for "-" presence $day = substr($arr{date},4,2); $month = substr($arr{date},2,2); $year = "20".substr($arr{date},0,2); $date = "$year-$month-$day"; # Date to reset } else { $date = $arr{date}; } print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; showRecords(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; deleteRecords(); } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{Attendance} $lex{Date}\n}; print qq{
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; exit; } #-------------- sub showRecords { #-------------- if ( not $date ) { print qq{

$lex{Date} $lex{'Not Found'}

\n}; print qq{\n}; exit; } print qq{

Date $date

\n}; # Setup Form print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
}; print qq{$lex{'There will be no confirmation of deletion.'}
\n}; $sth = $dbh->prepare("select a.* from attend as a, studentall as s where absdate = ? and a.studentid = s.studnum order by s.lastname, s.firstname, studentid, period"); $sth->execute( $date ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; my $sth1 = $dbh->prepare("select lastname,firstname from student where studnum = ?"); $currstud = -1; while ( my ($attid, $studnum, $absdate, $reason, $period, $subjsec,$late) = $sth->fetchrow ) { my $wd; # Get the Name from Student $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my ( $lastname, $firstname ) = $sth1->fetchrow; if ( not $lastname ){ my $sth2 = $dbh->prepare("select lastname,firstname from studentwd where studnum = ?"); $sth2->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} ( $lastname, $firstname ) = $sth2->fetchrow; if ( not $lastname ) { $lastname = $lex{'Not Found'}; } $wd = qq{WD}; } my $name = "$wd $lastname, $firstname"; $prevstud = $currstud; $currstud = $studnum; if ($currstud != $prevstud){ # reset color if ( $color eq 'blue' ){ $color = 'gray'; } else { $color = 'blue';} } print qq{\n}; print qq{\n}; print qq{\n}; } print qq{
$lex{'WD = Withdrawn'}
$lex{Name}$lex{Subject}$lex{Period}$lex{Reason}$lex{Date}$lex{Delete}
$name ($studnum)$subjsec$period$reason$absdate}; print qq{
\n}; print qq{\n}; print qq{
\n}; print qq{
}; print qq{$lex{'There will be no confirmation of deletion.'}
\n}; print qq{\n}; exit; } #--------------- sub deleteRecords { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } foreach my $key ( keys %arr ) { #print qq{Key: $key Value: $arr{$key}
\n} ; $sth = $dbh->prepare("delete from attend where attid = ?"); $sth->execute( $key ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } if ( not $DBI::errstr ) { print qq{

$lex{'Record(s) Deleted'}

}; } else { print qq{

$lex{Error}: $DBI::errstr

\n}; } print qq{

[ $lex{Attendance} ]

\n}; print qq{\n}; exit; }