#!/usr/bin/perl # Copyright 2001-2026 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}; # Explanation print qq{\n}; print qq{\n}; print qq{
For Late Entries simply put the number in the late column
For Normal entries select values from the Day Part\n}; print qq{and the Reason.\n}; print qq{If no appropriate reason, put a value in the Other column
\n}; print qq{
\n}; # Table print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; UID: 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 $g_StaffAbsPos{$pos} ) { next UID;} 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 Page

\n}; my $date = $arr{date}; delete $arr{date}; # Check Date for not in future (more than 7 days) 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; } # Done date checking. my %data; # assemble data into records. foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { next; } # skip if no value my ( $type, $userid ) = split(':', $key); $data{$userid}{$type} = $arr{$key}; } # Testing # print qq{
Date:$date
\n}; # foreach my $userid ( sort keys %data ) { # foreach my $type ( sort keys %{ $data{$userid}} ) { # print qq{Userid:$userid Type:$type Value:$data{$userid}{$type}\n}; # } # } my %nextdata; # data passed to the next page; # Check for existing record my $sth1 = $dbh->prepare("select count(*) from staff_absent where adate = ? and userid = ?"); # Get Staff Name my $sth2 = $dbh->prepare("select lastname, firstname from staff where userid = ?"); foreach my $userid ( sort keys %data ) { # Get Name, in case we need it. $sth2->execute($userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth2->fetchrow; # Checking for existing records. (Daypart removed since too # complex. They can edit if they want) $sth1->execute($date, $userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; if ( $count ) { # skip print qq{
Record exists. Skipping $firstname $lastname ($userid) $date
\n}; next; # userid } if ( not $data{$userid}{'L'} ) { # no late value then check for other fields filled. # Late value means we don't care about other values; may be present or not. if ( not $data{$userid}{'F'} ) { # daypart print qq{

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

\n}; next; # userid } # Can't use this since they can remove the 'Other' reason. # if ( $data{$userid}{'R'} eq 'Other (specify)' and not $data{$userid}{'O'} ) { # print qq{

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

\n}; # next; # } } # IF we're here, we add to the next data hash. foreach my $userid ( sort keys %data ) { foreach my $type ( keys %{ $data{$userid}} ) { $nextdata{$userid}{$type} = $data{$userid}{$type}; } } } # end of userid loop # Testing # print qq{
Date:$date
\n}; # foreach my $userid ( sort keys %nextdata ) { # foreach my $type ( sort keys %{ $nextdata{$userid}} ) { # print qq{Userid:$userid Type:$type Value:$nextdata{$userid}{$type}\n}; # } # } # Start Form print qq{
\n}; print qq{\n}; # We can now pass %nextdata to next page. my %typemap = ( 'R' => 'Reason', 'L' => 'Late', 'O' => 'Other Reason', 'F' => 'Day Part'); # Write the hidden values for next page print qq{

Date: $date

\n}; print qq{\n}; foreach my $userid ( sort keys %nextdata ) { foreach my $type ( sort keys %{$nextdata{$userid}} ) { my $name = qq{$userid:$type}; my $value = $nextdata{$userid}{$type}; print qq{\n}; print qq{

Userid:$userid Type:$typemap{$type} Value:$value

\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; } # again, wrap into data structure my %data; # assemble data into records. foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { next; } # skip if no value my ( $userid, $type ) = split(':', $key); # note reversed from start page $data{$userid}{$type} = $arr{$key}; } # Testing # print qq{
Date:$date
\n}; # foreach my $userid ( sort keys %data ) { # foreach my $type ( sort keys %{ $data{$userid}} ) { # print qq{
Userid:$userid Type:$type Value:$data{$userid}{$type}
\n}; # } # } # These now map type to a field name my %typemap = ( 'R' => 'reason', 'L' => 'late', 'O' => 'other', 'F' => 'daypart'); 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 $userid ( sort keys %data ) { # Get Name $sth1->execute( $userid ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; # Date my (@fields, @values, @qst); push @fields, 'adate'; # populate adate field. push @qst, '?'; push @values, $date; # Userid push @fields, 'userid'; # populate adate field. push @qst, '?'; push @values, $userid; # Name fields; push @fields, 'lastname'; push @qst, '?'; push @values, $lastname; push @fields, 'firstname'; push @qst, '?'; push @values, $firstname; foreach my $type ( sort keys %{ $data{$userid}} ) { my $field = $typemap{$type}; push @fields, $field; push @qst, '?'; push @values, $data{$userid}{$type}; } my $fields = join(',',@fields); my $qst = join(',',@qst); # values stay as array @values # print qq{Fields:$fields QST:$qst VAL:@values
\n}; my $sth = $dbh->prepare("insert into staff_absent ( $fields ) values( $qst )"); $sth->execute( @values ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{
$lex{'Record Stored'}: $firstname $lastname / $date / }; print qq{ $data{$userid}{'F'}
\n}; } # end of userid loop # 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; }