#!/usr/bin/perl # Copyright 2001-2026 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 = ('View' => 'View', 'Staff' => 'Staff', 'Absences' => 'Absences', 'Main' => 'Main', 'Eoy' => 'Eoy', 'No Records Found' => 'No Records Found', 'Error' => 'Error', 'Edit' => 'Edit', 'Delete' => 'Delete', ); my $self = 'staffabsview.pl'; use DBI; use CGI; use Cwd; use Time::JulianDay; my $self = 'staffabsview.pl'; my $editscript = 'staffabsEdit.pl'; my $deletescript = 'staffabsDelete.pl'; 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; if ($arr{showall} ) { $showall = $arr{showall}; } 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"; my $currjd = julian_day( split('-', $currdate)); my $prevjd = $currjd - 30; # 30 days previous my $prevdate = join('-',inverse_julian_day($prevjd)); #my $startjd = julian_day( split('-', $schoolstart)); # global var #my $datejd = julian_day( split('-', $date)); # Print Page Header my $title = "$lex{View} $lex{Staff} $lex{Absences}"; print qq{$doctype\n$title \n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; showReport(); } #---------------- sub showStartPage { #---------------- # Get userids and dates of absences # my $sth1 = $dbh->prepare("select * from staff_absent where userid = ?"); # in case we need months my $sth1 = $dbh->prepare("select count(*) from staff_absent where userid = ?"); my $sth2; if ( $showall ) { $sth2 = $dbh->prepare("select * from staff_absent order by adate desc"); } else { $sth2 = $dbh->prepare("select * from staff_absent where to_days(adate) > to_days('$prevdate') order by adate desc"); } # Check if withdrawn. my $sth3 = $dbh->prepare("select count(*) from staffwd where userid = ?"); print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; my %status; # staff who are withdrawn will have a 1 value; current will be 0; # Display the current months records. $sth2->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my $ref = $sth2->fetchrow_hashref ) { my %r = %$ref; my $userid = $r{userid}; # cache list of staff status if ( not $status{ $userid } ) { # add them to the list $sth3->execute( $userid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $wdcount = $sth3->fetchrow; $status{ $userid } = $wdcount; } else { # already in the list if ( $status{ $userid } and not $showall ) { # a 1 value means withdrawn. next; } } my $date = $r{adate}; my $datejd = julian_day(split('-',$date)); my $weekday = day_of_week($datejd) + 1; if ( $first ) { # start table print qq{\n}; print qq{}; print qq{\n}; $first = 0; } my $wd; if ( $status{$userid} ) { # withdrawn $wd = qq{WD}; } print qq{}; print qq{}; print qq{\n}; } print qq{
DateStaff MemberReasonDay PartOtherLateComment
$wd $dow[$weekday] $r{adate}$r{lastname}, $r{firstname} $r{reason}$r{daypart}$r{other}$r{late}$r{comment}
\n}; # Test #print qq{
Status
\n}; #foreach my $key (sort keys %status ) { # print qq{
$key - VAL:$status{$key}
\n}; #} my $sth = $dbh->prepare("select distinct userid, lastname, firstname from staff_absent order by lastname, firstname"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my ($userid,$ln,$fn) = $sth->fetchrow ) { if ( $first ) { # start table print qq{\n}; print qq{\n}; $first = 0; } my $wd; if ( $status{$userid} ) { # withdrawn $wd = qq{WD}; } # Get a record count $sth1->execute($userid); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $rcount = $sth1->fetchrow; print qq{}; print qq{\n}; } print qq{
Staff MemberAbsent
Count
$wd $ln, $fn ($userid)$rcount
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{\n}; exit; } #-------------- sub showReport { #-------------- # print qq{
Show Report
\n}; # foreach my $key ( sort keys %arr ) { print qq{K:$key VAL:$arr{$key}
\n}; } # Only passed userid my $sth = $dbh->prepare("show columns from staff_absent"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while (my @cols = $sth->fetchrow ) { if ( $cols[0] eq 'id' or $cols[0] eq 'comment' ) { next; } push @fields, $cols[0]; } $sth = $dbh->prepare("select * from staff_absent where userid = ? order by adate desc, lastname, firstname"); $sth->execute( $arr{userid}); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } $rows = $sth->rows; if ($rows < 1 ) { print qq{

$lex{'No Records Found'}

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

[ Back to Start Page ]

\n}; print qq{\n}; print qq{}; foreach my $fld (@fields ) { print qq{\n}; } print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; print qq{\n}; foreach my $field ( @fields ) { print qq{}; } # Edit Button print qq{}; # Delete Button print qq{}; print qq{\n}; } print qq{
$fld
$r{$field}
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{

[ $lex{Main} | \n}; print qq{Start Page ]\n}; print qq{\n}; exit; }