#!/usr/bin/perl # Copyright 2001-2022 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 = ('Dates' => 'Dates', 'Eoy' => 'Eoy', 'Main' => 'Main', 'Date' => 'Date', 'Edit' => 'Edit', 'Delete' => 'Delete', 'Error' => 'Error', 'Not Found' => 'Not Found', 'Closed' => 'Closed', 'Type' => 'Type', 'Continue' => 'Continue', 'Save' => 'Save', 'Day In Cycle' => 'Day In Cycle', 'Statutory Holiday' => 'Statutory Holiday', 'Inservice' => 'Inservice', 'Holiday' => 'Holiday', 'Other' => 'Other', 'Description' => 'Description', 'No' => 'No', 'Yes' => 'Yes', 'Periods' => 'Periods', 'School' => 'School', ); use DBI; use CGI; use Time::JulianDay; my $self = qq{dateDelEd.pl}; # Read config variables eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } 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); $dbh->{mysql_enable_utf8} = 1; print qq{$doctype\n$lex{Edit}/$lex{Delete} $lex{Dates}\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Eoy} ]\n}; print qq{

$lex{Edit}/$lex{Delete} $lex{Dates}

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; delEditDates(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; updateEdits(); } #---------------- sub showStartPage { #---------------- my $first = 1; my $sth = $dbh->prepare("select * from dates order by date"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } # Start the Form. print qq{
\n}; print qq{\n}; print qq{\n\n}; my $count = 1; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; # $id, $date, $type, $desc1, dayincycle # Find DOW; my $jd = julian_day( split('-', $r{date} )); my $dow = day_of_week( $jd ); # Put in a text month value. my @dt = split('-', $r{date}); $dt[1] = $s_month[$dt[1]]; my $newdate = join('-', @dt); if ( $first ) { print qq{\n}; print qq{}; print qq{}; print qq{\n}; $first = 0; } my $dayfracString = 'All Day'; if ( $r{dayfraction} eq '0.000' ) { $dayfracString = 'Partial'; } my $dayincycle = $lex{No}; if ( $r{dayincycle} == 1 ) { $dayincycle = qq{$lex{Yes}}; } print qq{}; print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; $count++; if ( $count % 20 == 0 ) { print qq{\n}; } } if ( $first ) { print qq{

$lex{Dates} $lex{'Not Found'}

\n}; } else { print qq{
$lex{Date}Week Day$lex{Description}$lex{Type}Day in
Cycle		$lex{Closed}EditDelete
$newdate$dowstd[$dow]$r{desc1}$r{type}$dayincycle$dayfracStringEditDelete
\n}; } print qq{\n\n}; print qq{
\n}; print qq{\n}; exit; } #---------------- sub delEditDates { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # exit; # Delete any records to start my $sth = $dbh->prepare("delete from dates where id = ?"); my $sth1 = $dbh->prepare("delete from dates_periods where date = ?"); my $sth2 = $dbh->prepare("select date from dates where id = ?"); # Delete any selected records foreach my $key ( keys %arr ) { my ($action, $id) = split(':', $key); if ( $action eq 'edit' ) { next; } # check for id if ( not $id ) { print qq{

Error: Record ID not found for deletion

\n}; print qq{\n}; exit; } # Get Date $sth2->execute( $id ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $date = $sth2->fetchrow; if ( not $date ) { print qq{

Error: Date not found for deletion

\n}; print qq{\n}; exit; } # Delete any periods for this date $sth1->execute( $date ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # Delete the main record $sth->execute( $id ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # Delete this entry from hash. delete $arr{$key}; print qq{

Date Closed record for $date deleted

\n}; } if ( not %arr ) { # end of any changes if only deletes. print qq{\n}; exit; } # Setup for Editing; Periods my $gpref = getGradesPeriod(); # uses g_ppd values. my %periodgroup = %$gpref; # grade group with minimum and max for each attendance periods. # Start Form for Edit print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; my $sth = $dbh->prepare("select * from dates where id = ?" ); my $sth1 = $dbh->prepare("select grades, period from dates_periods where date = ?"); foreach my $key ( sort keys %arr ) { my ($action, $id) = split(':', $key); if ( $action ne 'edit' ) { print qq{

Error: Edit action not found. Action is: $action

\n}; print qq{\n}; exit; } # Load the main record and any period records $sth->execute( $id ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; my $date = $r{date}; my $jd = julian_day( split('-', $date)); # Load any Periods; my %periods; $sth1->execute( $date ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ( $grades, $period ) = $sth1->fetchrow ) { $periods{$grades}{$period} = 1; } 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 # convert from 0/1 to No/Yes if ( $r{dayincycle} ) { $r{dayincycle} = $lex{Yes}; } else { $r{dayincycle} = $lex{No}; } print qq{\n}; print qq{\n}; # Fraction Closed my $checkdayfraction; if ( $r{dayfraction} eq '1.000' ) { $checkdayfraction = qq{checked="checked"}; } 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}; } # end of edit loop print qq{
$lex{Date}\n}; print qq{$dowstd[$dow]
$lex{Type}
$lex{Description}
$lex{'Day In Cycle'}?
$lex{Closed} All Day\n}; print qq{For All Students
$lex{Periods} $lex{Closed}(if NOT checked above)
Grades $group}; foreach my $p ( 1.. $periods ) { my $checked; if ( $periods{$group}{$p} ) { # we have a record for this... $checked = qq{checked="checked"}; } print qq{P$p }; } print qq{
}; print qq{
\n}; print qq{\n}; exit; } #-------------- sub updateEdits { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Update Date Records my $sth1 = $dbh->prepare("update dates set dayfraction = '0' where id = ?"); my @dates; foreach my $key ( sort keys %arr ) { my ($id, $field, $period ) = split(':', $key ); if ( $period ) { # skip this record if we have 3 values next; } # Capture Date if ( $field eq 'date' ) { push @dates, "$arr{$key}:$id"; # Check for day fraction (since now a checkbox field) missing and delete value my $dayfractionkey = qq{$id:dayfraction}; if ( not $arr{$dayfractionkey} ) { # it's been unchecked. $sth1->execute( $id ); if ( $DBI::errstr ) { print qq{

Error Deleting Day Fraction! $DBI::errstr

\n}; } } } # Convert dayincycle to Yes = 1, No = 0 format. if ( $field eq 'dayincycle' ) { if ( $arr{$key} eq $lex{Yes} ) { $arr{$key} = '1'; } else { $arr{$key} = '0'; } } # update the record my $sth = $dbh->prepare("update dates set $field = ? where id = ?"); $sth->execute( $arr{$key}, $id); if ( not $DBI::errstr ) { print qq{
Updated $field to $arr{$key} RecId:$id
}; } else { print qq{

$lex{Error}: $DBI::errstr

\n}; } delete $arr{$key}; } # print "
Dates:
"; # foreach my $date (@dates) { print qq{Date:$date
\n}; } # Now loop again and update dates_periods records my $sth = $dbh->prepare("select id, grades, period from dates_periods where date = ?"); my $sth1 = $dbh->prepare("delete from dates_periods where date = ? and grades = ? and period = ?"); my $sth2 = $dbh->prepare("insert into dates_periods (date,grades,period) values(?,?,?)"); foreach my $key ( @dates ) { my ($date, $dateid) = split(':',$key); my %pdata; $sth->execute( $date ); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ($id, $grades,$period ) = $sth->fetchrow ) { $pdata{"$period:$grades"} = $id; } foreach my $key ( keys %arr ) { my ($id, $grades, $period ) = split(':', $key ); if ( $id != $dateid ) { next; } # skip those for a different date # print "ID:$id Grades:$grades Period:$period
\n"; if ( $pdata{"$period:$grades"} ) { # we have a match. # print qq{
Match! - $grades - $period
\n}; delete $arr{$key}; delete $pdata{"$period:$grades"}; } } # Delete Period Recs foreach my $key ( sort keys %pdata ) { my ($period,$grades) = split(':', $key); $sth1->execute($date,$grades,$period); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } print qq{
Deleted Periods Closed - Date:$date - Grades:$grades - Period:$period
\n}; } # Add Period Recs. foreach my $key ( sort keys %arr ) { my ($id, $grades, $period ) = split(':', $key ); if ( $id != $dateid ) { next; } # skip those for a different date $sth2->execute($date,$grades,$period); if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } print qq{
Added Periods Closed - Date:$date - Grades:$grades - Period:$period
\n}; } } # end of dates loop print qq{

[ $lex{Eoy} |\n}; print qq{ $lex{Edit} $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; }