#!/usr/bin/perl
# Copyright 2001-2020 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 = ('Main' => 'Main',
'Grade' => 'Grade',
'Not Found' => 'Not Found',
'Error' => 'Error',
'Continue' => 'Continue',
'Month' => 'Month',
'Set' => 'Set',
'Select' => 'Select',
'Update' => 'Update',
'Updated' => 'Updated',
'Deleted' => 'Deleted',
'Record' => 'Record',
'Added' => 'Added',
'Home Room' => 'Home Room',
'Missing' => 'Missing',
'Value' => 'Value',
'Homerooms' => 'Homerooms',
);
use DBI;
use CGI;
use CGI::Session;
use Time::JulianDay;
use Number::Format qw(:all);
use Cwd;
my $self = 'viewCycleDays.pl';
# Get current dir so know what path for config files.
my ($configpath, $teachermode );
if ( getcwd() =~ /tcgi/ ){ # we are in tcgi
$teachermode = 1;
$configpath = '..'; # go back one to get to etc.
} else {
$configpath = '../..'; # go back two to get to etc.
}
eval require "$configpath/etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Teachermode
if ( $teachermode ) { # running on teacher site
$css = $tchcss;
$homepage = $tchpage;
# $downloaddir = $tchdownloaddir; # not needed in this script.
# $webdownloaddir = $tchwebdownloaddir;
}
my $q = new CGI;
print $q->header(-charset, $charset );
my %arr = $q->Vars;
# my %periodmap = (1 => 'AM', 2 => 'PM');
my $title = "View Cycle Days";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} |\n};
print qq{ Eoy ]\n};
print qq{
$title
\n};
#foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
# Values passed: page, date, and then any school databases;
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showCycleDays();
}
#----------------
sub showCycleDays {
#----------------
#foreach my $key ( keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Passed: month
eval require "../../lib/libschedule.pl"; # has calcCycleDay
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
if ( not $arr{month} ) {
print qq{
$lex{Missing} $lex{Value}. Go Back to Previous Page
\n};
print qq{\n};
exit;
}
my $month = $arr{month};
my ($yr,$mo) = split('-', $arr{month});
if ( length( $mo ) == 1 ) { $mo = '0'. $mo; }
delete $arr{month};
# Find dow for first of the month; check that not before school start
my $startdate = "$yr-$mo-01";
my $startjd = julian_day( split('-', $startdate) );
my $startdow = day_of_week($startjd); # needed for correct calendar
my $schoolstartjd = julian_day( split('-', $schoolstart) );
if ( $startjd < $schoolstartjd ) {
$startjd = $schoolstartjd;
$startdate = join('-',inverse_julian_day($startjd));
}
my $startCycleDay = findDayInCycle( $startdate, $dbh );
# used to trigger first day of the calendar display of DIC.
while ( not $startCycleDay ) {
$startjd++;
$startdate = join('-',inverse_julian_day($startjd));
$startCycleDay = findDayInCycle( $startdate, $dbh );
}
my ($sy,$sm,$sd) = split('-',$startdate);
my $startday = $sd; # when we start the calendar fill for DayInCycle.
print qq{
Days per cycle: $g_DaysPerCycle
\n};
# print qq{
Cycle Day:$cycleDay
\n};
my %reset;
if ( %g_ResetCycleDate ) {
print qq{
\n};
}
# Find last day of the month (eomday)
my $nextmonth = $mo + 1;
my $tempyear = $yr;
if ( $nextmonth == 1 ) { $tempyear++; }
my $eomjd = julian_day($tempyear,$nextmonth,'1');
my @temp = inverse_julian_day( $eomjd - 1 );
my $eomday = $temp[2];
# Set number of rows in the calendar
my $rowcount = 5; # 5 rows in the calendar.
my $totalcells = $eomday + $startdow; # total cells required in calendar.
if ( $totalcells > 36 ) { $rowcount = 6; } # to accomodate all the dates in the month.
# Add Style settings for calendar
print qq{\n};
# Get the days closed (>0.999) in the month.
my %dayclosed;
my $sth = $dbh->prepare("select date, dayincycle from dates
where month(date) = ? and year(date) = ? and dayfraction > 0.999");
$sth->execute( $mo, $yr );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($date,$dic) = $sth->fetchrow ) {
$dayclosed{$date} = $dic; # $dic is whether is or isn't dayin cycle (0 or 1)
}
print qq{
\n};
print qq{
};
print qq{Day in Cycle $month[$mo], $yr
\n};
# Days of the Week Header
print qq{
};
foreach my $da (0..6) { # day 1 (Sunday) and 7 (Saturday) not used, of course.
print qq{
$dow[$da + 1]
};
}
print qq{
\n};
my ($calday, $caldate); # set and updated through the month.
foreach my $row (1..$rowcount) {
print qq{
};
foreach my $col (0..6) {
# Set the starting calendar day
if ($row == 1 and $col == $startdow ) {
# print qq{Row:$row COL:$col StartDOW:$startdow \n};
$calday = 1;
}
# Reset caldate from calday
my $tempday = $calday;
if ( length $tempday == 1 ) { $tempday = '0'. $tempday; }
if ( $calday ) { $caldate = qq{$yr-$mo-$tempday}; }
# print "CALDATE:$caldate \n";
# weekend or closed
if ( $col == 0 or $col == 6 or exists $dayclosed{$caldate} ) {
print qq{
};
print qq{$calday
\n};
if ( $dayclosed{$caldate} == 1 and $calday >= $startday ) {
$cyclecount++; # it IS a Day In cycle.
if ( $reset{$caldate} ) { # allow reset on this date, too.
$cyclecount = $reset{$caldate};
}
}
} else { # a week day
print qq{
$calday };
if ( $calday ) { # becomes undefined after end of month, etc.
if ( $calday > $startday ) { # First day we just use the current value
$cyclecount++;
} elsif ( $calday == $startday ) {
$cyclecount = $startCycleDay;
}
if ( $reset{$caldate} ) {
$cyclecount = $reset{$caldate};
}
# update count to remove excess cycledays
if ( $cyclecount > $g_DaysPerCycle ) {
$cyclecount = $cyclecount - $g_DaysPerCycle;
}
if ( $g_DaysPerCycle == 1 ) {
$cyclecount = 1; # always!
}
print qq{