#!/usr/bin/perl # Copyright 2001-2019 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 = ('Add' => 'Add', 'Eoy' => 'Eoy', 'Main' => 'Main', 'Type' => 'Type', 'Statutory Holiday' => 'Statutory Holiday', 'Inservice' => 'Inservice', 'Holiday' => 'Holiday', 'Other' => 'Other', 'Description' => 'Description', 'Day In Cycle' => 'Day In Cycle', 'No' => 'No', 'Yes' => 'Yes', 'Save' => 'Save', 'Date' => 'Date', 'Add Another' => 'Add Another', 'Contact' => 'Contact', 'Error' => 'Error', 'Fraction' => 'Fraction', 'Closed' => 'Closed', 'Record Stored' => 'Record Stored', 'School Closed' => 'School Closed', 'Record' => 'Record', 'Exists' => 'Exists', 'Continue' => 'Continue', 'Periods' => 'Periods', ); my $self = 'dateAdd.pl'; use DBI; use CGI; # Read Config variables 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 $title = "$lex{Add} $lex{Date} - $lex{'School Closed'}"; print qq{$doctype\n$title \n}; 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{Eoy} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; editDates(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeDates(); } #---------------- sub showStartPage { #---------------- print qq{

\n}; print qq{\n}; print qq{\n}; # Get the date print qq{\n}; print qq{\n}; # Type print qq{\n}; print qq{\n}; # Description print qq{\n}; print qq{\n}; # Day In Cycle print qq{\n}; print qq{\n}; # Fraction Closed print qq{\n}; print qq{\n}; # Copy more than one date. print qq{\n}; print qq{\n}; # Continue print qq{\n}; print qq{

$lex{Date}	\n}; print qq{
$lex{Type}
$lex{Description}
$lex{'Day In Cycle'}?
$lex{Fraction} $lex{Closed}	\n}; print qq{
Add Extra School Days in Sequence
	\n}; print qq{

\n}; print qq{

\n}; print qq{\n}; print qq{\n}; } #------------- sub editDates { #------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } use Time::JulianDay; # Check Date format. my $err = checkDate( $arr{date} ); if ( $err == 1 ) { print qq{

$lex{Error}: Date Outside School Year: $arr{tdate}

\n}; print qq{\n}; exit; } elsif ( $err ) { print qq{

Date Error. Must be in yyyy-mm-dd format

\n}; print qq{\n}; exit; } # Get Date and convert to jd, increment, my $jd = julian_day( split( '-', $arr{date} ) ); my $dow = day_of_week($jd); if ( $dow == 0 or $dow == 6 ) { print qq{

Cannot add weekend dates closed. They are already considered to be closed

\n}; print qq{\n}; exit; } # Get Attendance Periods. my %ppdData; foreach my $grade (keys %g_ppd ) { my $periods = $g_ppd{$grade}; $ppdData{$periods}{$grade} = 1; } =head # my $trackcount = keys %ppdData; # print "Track Count: $trackcount
\n"; foreach my $p ( keys %ppdData ) { print "Period:$p - "; foreach my $gr ( keys %{ $ppdData{$p} } ) { print "$gr "; } print "
\n"; } =cut my %periodgroup; # grade group with minimum and max for each attendance periods. foreach my $p ( keys %ppdData ) { @gr = sort {$a <=> $b} keys %{ $ppdData{$p} }; if ($ppdData{$p}{PK}) { $gr[0] = 'PK'; }; # since a K value will show instead. $val = "$gr[0]-$gr[-1]"; # print "P:$p VAL:$val
\n"; $periodgroup{$p} = $val; } # foreach my $p ( sort keys %periodgroup ) { # print "Periods:$p Group:$periodgroup{$p}
\n"; # } my $counter = $arr{extradays}; delete $arr{extradays}; # Start Form print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; foreach my $count (1..$counter) { my $date = join('-', inverse_julian_day($jd) ); my $dow = day_of_week($jd); # Date print qq{\n}; print qq{\n}; # Type print qq{\n}; print qq{\n}; # Description print qq{\n}; print qq{\n}; # Day In Cycle print qq{\n}; print qq{\n}; # Fraction Closed print qq{\n}; print qq{\n}; # Periods Closed print qq{\n}; foreach my $periods ( sort keys %periodgroup ) { my $group = $periodgroup{$periods}; print qq{\n}; } # spacer. print qq{\n}; # Update Julian Day do { $jd++; $dow = day_of_week($jd); } until ($dow != 0 and $dow != 6 ) } print qq{


$lex{Date}	\n}; print qq{$dowstd[$dow]
$lex{Type}
$lex{Description}
$lex{'Day In Cycle'}?
$lex{Fraction} $lex{Closed}	\n}; print qq{
$lex{Periods} $lex{Closed}	(if less than full day closed)
Grades $group	}; foreach my $p ( 1.. $periods ) { print qq{P$p }; } print qq{

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

\n}; print qq{\n}; exit; } #------------- sub writeDates { #------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # exit; # Add Any Periods to dates_periods foreach my $key ( keys %arr ) { my ($count, $field, $period ) = split(':', $key ); # print "Count:$count Field:$field Period:$period
\n"; if ( $period ) { # we have a period closed # print "Period:$period
\n"; # check for a partial day fraction closed; if ( $arr{"$count:dayfraction"} > 0.99 ) { # skip next; } # add a record and delete from hash. # $field contains the grade group. my $date = $arr{"$count:date"}; # Check for existing record my $sth = $dbh->prepare("select count(*) from dates_periods where date = ? and grades = ? and period = ?"); $sth->execute( $date, $field, $period ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $count = $sth->fetchrow; if ( $count ) { # Error, notify print qq{

}; print qq{$lex{Error}: Period Closed $lex{Record} $lex{Exists}:}; print qq{Date $date Grades $field Period $period

\n}; } else { # Add the record my $sth = $dbh->prepare("insert into dates_periods (date,grades,period) values(?,?,?)"); $sth->execute( $date, $field, $period ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } } delete $arr{$key}; } } foreach my $key ( keys %arr ) { my ($count, $field ) = split(':', $key ); # skip any fields but a date field. if ( $field ne 'date' ) { next; } my $date = $arr{$key}; # Check for existing record with same date. my $sth = $dbh->prepare("select count(*) from dates where date = ?"); $sth->execute( $date ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $dupcount = $sth->fetchrow; if ( $dupcount ) { print qq{

$lex{Error}: $lex{Record} $lex{Exists}: $arr{date}

\n}; next; } my %data; # create other keys and check for any blanks. $data{dayfraction} = $arr{"$count:dayfraction"}; $data{dayincycle} = $arr{"$count:dayincycle"}; $data{desc1} = $arr{"$count:desc1"}; $data{type} = $arr{"$count:type"}; my $missingflag; foreach my $dkey (keys %data ) { if ( not $data{$dkey} ) { print qq{

Missing Value for $key in Date $date

\n}; $missingflag = 1; } } if ( $missingflag ) { # delete the date flag hash entry, don't worry about the others. delete $arr{$key}; # the date field in a count set. next; } # Convert dayincycle to Yes = 1, No = 0 format. if ( $data{dayincycle} eq $lex{Yes} ) { $data{dayincycle} = '1'; } else { $data{dayincycle} = '0'; } # insert the record my $sth = $dbh->prepare("insert into dates (date, type, desc1, dayincycle, dayfraction ) values ( ?, ?, ?, ?, ? )"); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } $sth->execute( $date, $data{type}, $data{desc1}, $data{dayincycle}, $data{dayfraction}); if ( not $DBI::errstr ) { print qq{

$lex{'Record Stored'}
}; print qq{Date:$date Type:$data{type} Desc:$data{desc1} DayInCycle:$data{dayincycle} }; print qq{ Fraction Closed:$data{dayfraction}

\n}; } else { print qq{

$lex{Error}: $DBI::errstr

\n}; } } print qq{

[ $lex{Eoy} |\n}; print qq{ $lex{'Add Another'} $lex{Date} ]\n}; print qq{

\n}; exit; } #------------ sub checkDate { #------------ use Time::JulianDay; my $date = shift; my ($y,$m,$d) = split('-',$date); if ( not $d ) { return 255; } # wrong format. if ( $m > 12 or $m < 1 ) { return 255; } if ( $d > 31 or $d < 1 ) { return 255; } my $datejd = julian_day( $y, $m, $d ); my $startjd = julian_day( split('-', $schoolstart )); my $endjd = julian_day( split('-', $schoolend )); # print "DATE:$date - $datejd Start:$schoolstart - $startjd End:$schoolend - $endjd
\n"; if ( $datejd > $endjd or $datejd < $startjd ) { return 1; # different code for date outside of current year; } return 0; }