#!/usr/bin/perl # Copyright 2001-2022 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. my %lex = ('Reset Attendance Reasons' => 'Reset Attendance Reasons', 'Main' => 'Main', 'Reset Date' => 'Reset Date', 'Name' => 'Name', 'Reason' => 'Reason', 'Period' => 'Period', 'Date' => 'Date', 'Continue' => 'Continue', 'Record(s) Updated' => 'Record(s) updated', 'Attendance' => 'Attendance', 'WD = Withdrawn' => 'WD = Withdrawn', 'Error' => 'Error', 'Not Found' => 'Not Found', ); my $self = 'attrsnreset.pl'; use DBI; use CGI; 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"; 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); $dbh->{mysql_enable_utf8} = 1; my $date; if ( not $arr{date} ) { $date = $currdate; } else { $date = $arr{date}; } # Main Page Header. my $title = $lex{'Reset Attendance Reasons'}; 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}; # Start of Page print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; showReasons(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; updateReason(); } #---------------- 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 showReasons { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } print qq{

$lex{'Reset Date'} $date

\n}; # Start of form setup. print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; my $sth = $dbh->prepare("select a.* from attend as a, studentall as s where s.studnum = a.studentid and a.absdate = ? order by s.lastname, s.firstname, a.period"); $sth->execute( $arr{date} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} print qq{\n}; # get name from student table or wd table my $sth1 = $dbh->prepare("select lastname,firstname from student where studnum = ?"); my $sth2 = $dbh->prepare("select lastname,firstname from studentwd where studnum = ?"); my ($currstud, $prevstud); 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 ) { # check in withdrawn student table. $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\n}; } print qq{
$lex{Name}$lex{Reason}$lex{Period}$lex{Date}
$lex{'WD = Withdrawn'}
$name ($studnum)$period$date
\n}; print qq{\n}; print qq{
\n}; exit; } # end of showReasons #--------------- sub updateReason { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Update Record my $sth = $dbh->prepare("update attend set reason = ? where attid = ?"); # Load Record my $sth1 = $dbh->prepare("select * from attend where attid = ?"); foreach my $attid ( keys %arr ) { # Load the record $sth1->execute( $attid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth1->fetchrow_hashref; my %r = %$ref; if ( $r{reason} eq $arr{$attid} ) { #skip if no change next; } # print "Changed: $arr{$attid} Original:$r{reason}
\n"; $sth->execute( $arr{$attid}, $attid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } if (not $DBI::errstr ) { print qq{

$lex{'Record(s) Updated'}

\n}; } else { print qq{

$lex{'Error'}: $DBI::errstr

\n}; } print qq{

[ $lex{Attendance} ]

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