#!/usr/bin/perl # Copyright 2001-2023 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Staff' => 'Staff', 'Preregistration' => 'Preregistration', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Staff Member' => 'Staff Member', 'User Id' => 'User Id', 'Home' => 'Home', 'Room' => 'Room', 'Course' => 'Course', 'Edit' => 'Edit', 'Delete' => 'Delete', 'Error' => 'Error', 'Grade' => 'Grade', 'Access' => 'Access', 'Position' => 'Position', 'Count' => 'Count', 'Red' => 'Red', 'Absence' => 'Absence', 'Reason' => 'Reason', 'Day' => 'Day', 'Part' => 'Part', 'Save' => 'Save', 'Date' => 'Date', 'AM' => 'AM', 'PM' => 'PM', 'All Day' => 'All Day', 'Record Exists' => 'Record Exists', 'Skipping' => 'Skipping', 'Record Stored' => 'Record Stored', 'Absent' => 'Absent', 'Continue' => 'Continue', 'No Entry' => 'No Entry', 'Out of Range' => 'Out of Range', 'Invalid Date' => 'Invalid Date', 'Missing' => 'Missing', 'Other' => 'Other', 'Late' => 'Late', ); my $self = 'staffabsadd.pl'; my @dayparts; # put in translated values, if necessary. foreach my $dp ( 'AM', 'PM', 'All Day' ) { push @dayparts, $lex{$dp}; } use DBI; use CGI; use Time::JulianDay; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # Load audit write function eval require "../../lib/libaudit.pl"; 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); my @tim = localtime(time); my $year = $tim[5] + 1900; my $month = $tim[4] + 1; my $day = $tim[3]; if (length($month) == 1){ $month = "0".$month;} if (length($day) == 1){ $day = "0".$day;} my $currdate = "$year-$month-$day"; # Print Page Header my $title = "Add $lex{Staff} $lex{Absence}"; print qq{$doctype\n$title $chartype\n}; if ( not $arr{page} ) { # date function print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{\n[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; confirmEntry(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeRecords(); } #---------------- sub showStartPage { #---------------- my $sth1 = $dbh->prepare("select field_value from staff_multi where field_name = ? and userid = ?"); # select values from staff/prereg_staff table. $sth = $dbh->prepare("select id, lastname, firstname, userid from staff order by lastname, firstname"); $sth->execute; if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } # Start Form print qq{
\n}; print qq{\n}; # Get the date print qq{\n}; print qq{
$lex{Absent} $lex{Date}\n}; print qq{\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; while ( my ( $id, $lastname, $firstname, $userid ) = $sth->fetchrow) { # Load Positions (Jobs) $sth1->execute( 'position', $userid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $positions; my $first = 1; while ( $pos = $sth1->fetchrow ) { if ( not $first ) { $positions .= ', '; } else { $first = 0; } $positions .= $pos; } print qq{\n}; # Day Parts print qq{\n}; # Absence Reasons print qq{\n}; # Other Reason print qq{}; # Late Minutes print qq{}; print qq{\n}; } print qq{\n}; print qq{
$lex{'Staff Member'}$lex{'User Id'}$lex{Position}$lex{Day}
$lex{Part}		$lex{Reason}$lex{Reason}
$lex{Other}		$lex{Late}
(minutes)
$lastname, $firstname$userid$positions
\n}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage #--------------- sub confirmEntry { #--------------- #foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } print qq{

Absence Confirmation

\n}; my $date = $arr{date}; delete $arr{date}; # Check Date for not in future and within current school year, and validity. if ( not checkdate( $date ) ) { print qq{

$lex{'Invalid Date'}

\n}; print qq{\n}; exit; } my $currjd = julian_day( split('-', $currdate)); my $startjd = julian_day( split('-', $schoolstart)); # global var my $datejd = julian_day( split('-', $date)); if ( $datejd > $currjd + 7 or $datejd < $startjd ) { print qq{

$lex{Error}: $lex{Date} $lex{'Out of Range'}

\n}; print qq{\n}; exit; } # Checking for existing records. my $sth1 = $dbh->prepare("select count(*) from staff_absent where adate = ? and daypart = ? and userid = ?"); # Get Staff Name my $sth2 = $dbh->prepare("select lastname, firstname from staff where userid = ?"); my $first = 1; foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { next; } # skip if no value my ( $type, $userid ) = split(':', $key); if ( $type ne 'R' ) { next; } # skip if not a reason field my $latekey = qq{L:$userid}; my $otherkey = qq{O:$userid}; my $daypartkey = qq{F:$userid}; my $daypart = $arr{$daypartkey}; my $other = $arr{$otherkey}; my $late = $arr{$latekey}; # Get Name $sth2->execute( $userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth2->fetchrow; # Check each userid group for completeness if ( not $daypart ) { print qq{

$lex{Error}: $lex{Missing} $lex{Day} $lex{Part}; $firstname $lastname

\n}; next; } if ( $arr{$key} eq 'Other (specify)' and not $other ) { print qq{

$lex{Error}: $lex{Missing} $lex{Reason}: $firstname $lastname

\n}; next; } # Check for an existing record for this userid for this date and for this day part. $sth1->execute($date, $lex{AM}, $userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $amcount = $sth1->fetchrow; $sth1->execute($date, $lex{PM}, $userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $pmcount = $sth1->fetchrow; $sth1->execute($date, $lex{'All Day'}, $userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $alldaycount = $sth1->fetchrow; # print qq{AM:$amcount PM:$pmcount ALL DAY:$alldaycount
\n}; # not efficient but easier to understand. if ( $daypart eq $lex{AM} and ($amcount or $alldaycount) ) { print qq{

$lex{Error}: $lex{'Record Exists'}; }; print qq{$date - $userid - $daypart; $lex{Skipping}

\n}; next; } if ( $daypart eq $lex{PM} and ($pmcount or $alldaycount) ) { print qq{

$lex{Error}: $lex{'Record Exists'}; }; print qq{$date - $userid - $daypart; $lex{Skipping}

\n}; next; } if ( $daypart eq $lex{'All Day'} and ($amcount or $alldaycount or $pmcount) ) { print qq{

$lex{Error}: $lex{'Record Exists'}; }; print qq{$date - $userid - $daypart; $lex{Skipping}

\n}; next; } if ( $first ) { print qq{\n}; print qq{}; print qq{\n}; $first = 0; } print qq{}; print qq{\n}; } if ( $first ) { print qq{

$lex{'No Entry'}

\n}; print qq{\n}; exit; } else { print qq{
$lex{'Staff Member'}$lex{Date}$lex{Day}
$lex{Part}		$lex{Reason}
$firstname $lastname ($userid)$date$daypart$arr{$key}
\n}; } # Start Form print qq{
\n}; print qq{\n}; # Write the hidden values for next page print qq{\n}; foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { next; } # skip if no value print qq{\n}; } print qq{\n}; print qq{
\n}; print qq{\n}; exit; } #--------------- sub writeRecords { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $date = $arr{date}; delete $arr{date}; if ( not $date ) { print qq{
Error: Missing Date
\n}; print qq{\n}; exit; } my $fields = qq{userid, lastname, firstname, adate, reason, daypart, other, late, comment}; my $qst = "?,?,?,?,?,?,?,?,?"; my $sth = $dbh->prepare("insert into staff_absent ( $fields ) values( $qst )"); my $sth1 = $dbh->prepare("select lastname, firstname from staff where userid = ?"); my $sth2 = $dbh->prepare("select * from staff_absent where userid = ? and adate = ?"); foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { next; } # skip if no value my ( $type, $userid ) = split(':', $key); if ( $type ne 'R' ) { next; } # skip if not a reason field my $latekey = qq{L:$userid}; my $otherkey = qq{O:$userid}; my $daypartkey = qq{F:$userid}; my $daypart = $arr{$daypartkey}; my $other = $arr{$otherkey}; my $late = $arr{$latekey}; # Get Name $sth1->execute( $userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; # Insert Record ( staff absent ) $sth->execute( $userid, $lastname, $firstname, $date, $arr{$key}, $daypart, $other, $late, NULL ); # no comment yet. if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{
$lex{'Record Stored'}: $firstname $lastname - $date - $daypart
\n}; # Load Current Record for audit $sth2->execute( $userid,$date ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $startref = $sth2->fetchrow_hashref; my $recid = $startref->{id}; my %r = %$startref; # print "StartREF:$startref\n"; #foreach my $key ( sort keys %r ) { # print "K:$key VAL:$r{$key}
\n"; #} my %audit; $audit{userid} = $ENV{REMOTE_USER}; $audit{ipaddr} = $ENV{REMOTE_ADDR}; $audit{scriptname} = $self; $audit{tablename} = 'staff_absent'; $audit{tableid} = $startref->{id}; #$audit{startval} = $startref; # nothing to start, data to end $audit{endval} = $startref; addAudit( \%audit, $dbh ); # print qq{

$lex{Audit} $lex{'Record Stored'}

\n}; } print qq{

[ $lex{Main} | \n}; print qq{ $title ]

\n}; print qq{\n}; exit; } # End of writeRecords #------------ sub checkdate { # check date for validity #------------ my @mdays = (0,31,28,31,30,31,30,31,31,30,31,30,31); my $maxyear = 2100; my $val = shift; if ( not $val =~ m/-/ ) { # fail if no hyphens return undef; } # Strip Spaces $val =~ s/^\s+//g; $val =~ s/\s+$//g; my ( $year, $month, $day) = split(/-/, $val); # Check for non-digits if ($year =~ m/\D/) { return undef; } if ($month =~ m/\D/) { return undef; } if ($day =~ m/\D/) { return undef; } # reset Feb max days, if leap years if ($month == 2) { if ($year % 4 != 0) { $mdays[2] = 28; } elsif ($year % 400 == 0) { $mdays[2] = 29; } elsif ($year % 100 == 0) { $mdays[2] = 28; } else { $mdays[2] = 29; } } # check ranges if ( $day < 0 or $day > $mdays[$month] ) { # days out of range return undef; } elsif ( $month < 0 or $month > 12 ) { # month error return undef; } elsif ( $year < 0 or $year > $maxyear ) { return undef; } return $val; }