#!/usr/bin/perl # Copyright 2001-2023 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', 'Error' => 'Error', 'Closed' => 'Closed', 'School Closed' => 'School Closed', 'Continue' => 'Continue', 'Periods' => 'Periods', 'School' => 'School', ); 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"; } # Library to provide grade groups based on g_ppd values. (ie. K-4) eval require "../../lib/libDate.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 $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}; # Day Fraction Closed print qq{\n}; 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{Closed} All Day\n}; print qq{ for All Students
Set Fraction Closed to Zero (0) if using Periods Closed }; # print qq{on next page
}; # print qq{OR using Homerooms (homeroom) for varying cohorts/homerooms
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; my $checkdayfraction; if ( $arr{dayfraction} ) { $checkdayfraction = qq{checked="checked"}; } # 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; } my $gpref = getGradesPeriod(); # uses g_ppd values. my %periodgroup = %$gpref; # grade group with minimum and max for each attendance periods. # Key is periods, value is the groups of grades. 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}; # Closed All Day (or not) - Day Fraction print qq{\n}; print qq{\n}; # Periods Closed print qq{}; 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{Closed} All Day for All Students
$lex{Periods} $lex{Closed}(if NOT checked above)
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}; } # Passed: date, dayincycle,desc1,type, then grade groupings:Period my (%info,%grade); foreach my $key ( keys %arr ) { my ($count, $field, $period ) = split(':', $key ); if ( $period ) { # this is a grade closed record; $grade{$count}{$field}{$period} = 1; } else { # just a date closed record $info{$count}{$field} = $arr{$key}; # value significant } } =head # Show values in %info - goes into normal dates field. foreach my $count ( sort keys %info ) { foreach my $field ( sort keys %{ $info{$count} } ) { print qq{INFO Count:$count Field:$field Value:$info{$count}{$field}
\n}; } } # Show values in %grade foreach my $count ( sort keys %grade ) { foreach my $grade ( sort keys %{ $grade{$count} } ) { foreach my $period ( sort keys %{ $grade{$count}{$grade}} ) { print qq{
GRADE Count:$count Grades:$grade Period:$period
\n}; } } } =cut Daycount: foreach my $idx ( sort keys %info ) { # loop over all indexes. Called count above # Do error checking here for each record passed. # If we have closed all day but have grades values, mistake, skip if ( $info{$idx}{dayfraction} == 1 and %{ $grade{$idx}} ) { # print "Partial Grades Inside:$idx - ", %grade, "
\n"; print qq{

Error: Day closed all day but Partial Grades closed!

\n}; print qq{
Skipping...
\n}; next; # idx } if ( not $info{$idx}{dayfraction} and not %{ $grade{$idx}} ) { print qq{

Error: NOT Day closed all day but No Grades closed!

\n}; print qq{
Skipping...
\n}; next; # idx } # Logicallly incorrect. If only one group of grades are closed all # doesn't mean all grade groups are. So this test is wrong. Skip =head # Test if closed all day via periods closed, but not using dayfraction. if ( not $info{$idx}{dayfraction} and %{ $grade{$idx}} ) { # Get first grade / only grade my ($start,$end) = split('-', $grades); my $ppd = $g_ppd{$start}; my $periodcount; foreach my $grades ( keys %{ $grade{$idx}} ) { # Key is 2-4 type; # Get first grade / only grade my ($start,$end) = split('-', $grades); my $ppd = $g_ppd{$start}; my $periodcount; foreach my $period ( sort keys %{ $grade{$idx}{$grades}} ) { $periodcount++; } print "GR:$grades PPD:$ppd Count:$periodcount
\n"; if ( $ppd == $periodcount ) { print qq{

Day $idx: Please close day by selecting closed all day

\n}; next Daycount; # idx } } # grades loop } =cut if ( not $info{$idx}{dayfraction} ) { # no dayfraction passed if zero/null $info{$idx}{dayfraction} = '0'; } my %rec = %{ $info{$idx} }; my $date = $rec{date}; # check for existing dates record, skip if found. my $sth = $dbh->prepare("select count(*) from dates where date = ?"); $sth->execute( $date ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $datecheck = $sth->fetchrow; if ( $datecheck ) { print qq{

Error: Day Closed Record exists for this date - $date !

\n}; print qq{
Skipping...
\n}; next; # idx } # Check for existing Grades error my $sth = $dbh->prepare("select count(*) from dates_periods where date = ?"); $sth->execute( $date ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $gradecheck = $sth->fetchrow; if ( $gradecheck ) { print qq{

Error: Grades Closed Record exists for this date - $date !

\n}; print qq{
Skipping...
\n}; next; # idx } # Convert dayincycle to Yes = 1, No = 0 format. if ( $rec{dayincycle} eq $lex{Yes} ) { $rec{dayincycle} = '1'; } else { $rec{dayincycle} = '0'; } my (@fields,@values,@qst); foreach my $key ( keys %rec ) { push @fields, $key; push @values, $rec{$key}; push @qst, '?'; } my $qst = join(',',@qst); my $fields = join(',',@fields); # insert the 'dates' table record my $sth = $dbh->prepare("insert into dates ( $fields ) values ( $qst )"); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } $sth->execute( @values ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } print qq{
Date Record Added
\n}; # if we have any grades closed, add record to dates_periods my $sth = $dbh->prepare("insert into dates_periods ( date, grades, period ) values (?,?,?)"); foreach my $grades ( keys %{ $grade{$idx} } ) { foreach my $period ( keys %{ $grade{$idx}{$grades}} ) { $sth->execute( $date, $grades, $period ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } print qq{
Period Closed Added $date / Grades $grades / Period $period
\n}; } } # print qq{
$date record written
\n}; } print qq{

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

\n}; exit; }