#!/usr/bin/perl # Copyright 2001-2022 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Update' => 'Update', 'Edit' => 'Edit', 'Attendance' => 'Attendance', 'Student' => 'Student', 'Date' => 'Date', 'Reason' => 'Reason', 'Record(s) Updated' => 'Record(s) Updated', 'Contact' => 'Contact', 'Another' => 'Another', 'Today' => 'Today', 'Yesterday' => 'Yesterday', 'All' => 'All', 'Period' => 'Period', 'Subject-Section' => 'Subject-Section', 'min' => 'min', 'Late' => 'Late', 'Main' => 'Main', 'Error' => 'Error', 'Delete' => 'Delete', 'Grade' => 'Grade', ); my $self = 'atted.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 $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; my $sth = $dbh->prepare("select * from attend where attid = ?"); $sth->execute( $arr{id} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($attid, $studnum, $absdate, $reason, $period, $subjsec, $late) = $sth->fetchrow; # Print Page Head. my $title = "$lex{Edit} $lex{Attendance}"; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} | \n}; print qq{$lex{Attendance} ]\n}; print qq{

$title

\n}; if ( $arr{page} ) { delete $arr{page}; updateRecord(); } # Print Form Header print qq{
\n}; # Get Student Name $sth = $dbh->prepare("select lastname, firstname, grade from studentall where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $grade ) = $sth->fetchrow; my $ppd = $g_ppd{$grade}; if ( not $ppd ) { print qq{

$lex{Error}: Periods per Day not defined for $lex{Grade} $grade

\n}; } # Name and Student Number print qq{\n}; print qq{\n}; print qq{\n}; # Date print qq{\n}; print qq{\n}; # Reason print qq{\n}; # Period print qq{\n}; print qq{\n}; # Subjsec print qq{\n\n}; # Late print qq{\n\n}; print qq{
$lex{Student}$firstname $lastname ($studnum)
$lex{Date}
$lex{Reason}}; print qq{
$lex{Period}
$lex{'Subject-Section'}}; print qq{
$lex{Late} ($lex{min})}; print qq{

\n}; print qq{

\n}; #--------------- sub updateRecord { #--------------- my $sth = $dbh->prepare("update attend set absdate = ?, reason = ?, period = ?, subjsec = ?, late = ? where attid = ?"); if ( not $arr{late} ) { $arr{late} = undef; } if ( not $arr{subjsec} ) { $arr{subjsec} = undef; } $sth->execute( $arr{absdate}, $arr{reason}, $arr{period} , $arr{subjsec}, $arr{late}, $arr{attid} ); if ( not $DBI::errstr ) { print qq{

$lex{'Record(s) Updated'}

}; } else { print qq{

$lex{Error}: $DBI::errstr
\n}; print qq{$lex{Contact} $adminname }; print qq{$adminemail

\n }; } print qq{

[ $lex{Attendance} ]

\n}; # Another Form print qq{

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

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