#!/usr/bin/perl # Copyright 2001-2025 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. # confTeacherPeriods.pl - configure the period times for each teacher # for their homeroom. Stored in the periods filed in their staff # record. my %lex = ('Eoy' => 'Eoy', 'Periods' => 'Periods', 'Error' => 'Error', 'Set' => 'Set', 'Tracks' => 'Tracks', 'Number of' => 'Number of', 'Terms' => 'Terms', 'Start Date' => 'Start Date', 'End Date' => 'End Date', 'Continue' => 'Continue', 'Grades' => 'Grades', 'Separate with Spaces' => 'Separate with Spaces', 'Term Block' => 'Term Block', 'Term' => 'Term', 'Start' => 'Start', 'End' => 'End', 'Default' => 'Default', 'Track' => 'Track', 'Main' => 'Main', 'Description' => 'Description', 'Map' => 'Map', 'Desc' => 'Desc', 'File' => 'File', 'Updated' => 'Updated', 'Record(s) Stored' => 'Record(s) Stored', 'Save' => 'Save', 'Illegal' => 'Illegal', 'later than' => 'later than', 'Date' => 'Date', 'Sequence' => 'Sequence', 'Duplicate' => 'Duplicate', 'Missing' => 'Missing', 'Outside' => 'Outside', 'Period' => 'Period', 'Times' => 'Times', 'Timetable' => 'Timetable', 'for' => 'for', 'Values' => 'Values', 'Starting Time' => 'Starting Time', 'Ending Time' => 'Ending Time', 'Grade' => 'Grade', 'Group' => 'Group', 'Update' => 'Update', 'Edit' => 'Edit', 'Add' => 'Add', 'New' => 'New', 'Delete' => 'Delete', 'Deleted' => 'Deleted', 'Record Updated' => 'Record Updated', 'Length' => 'Length', ); my $self = 'confTeacherPeriods.pl'; my $defaultEtcPath = '../../etc'; use DBI; use CGI; use Data::Dumper; use Time::JulianDay; $Data::Dumper::Purity = 1; $Data::Dumper::Indent = 0; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } # Set Path to etc directory if ( not $g_EtcPath ) { $g_EtcPath = $defaultEtcPath; } my $q = CGI->new; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $userid = $ENV{REMOTE_USER}; # override the userid #$userid = 'kristab'; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header my $title = qq{$lex{Set} Custom $lex{Period} $lex{Times} - for Your Homeroom}; print qq{$doctype\n$title\n}; print qq{\n}; if ( $arr{page} == 1 ) { # load jQuery libs for setPeriods print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n\n}; print qq{[ $lex{Main} | $lex{Eoy} |\n}; print qq{$lex{Start} ]\n}; print qq{

$title

\n}; #foreach my $key ( keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; setPeriods(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeRecords(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; deletePeriods(); } #---------------- sub deletePeriods { #---------------- foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } exit; my $sth = $dbh->prepare("update staff set dbkperiods = NULL where userid = ?"); $sth->execute( $userid ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } print qq{

Periods Removed

\n}; print qq{

[ $lex{Start} ]

\n}; print qq{\n}; exit; } # end of deletePeriods #---------------- sub showStartPage { #---------------- # Load current periods values, if any. # load staff record for this user and get periods field, then eval it. my $sth = $dbh->prepare("select dbkperiods from staff where userid = ?"); $sth->execute( $userid ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $periods = $sth->fetchrow; # print "PERIODS:$periods
\n"; eval $periods; if ( $@ ) { print $lex{Error}. " for Teacher Periods: $@
\n"; exit; } # Test Data # foreach my $period ( sort keys %periods ) { # foreach my $key ( sort keys %{ $periods{$period} } ) { # print "P:$period Time:$key - $periods{$period}{$key}
\n"; # } # } if ($periods) { print qq{}; print qq{\n}; foreach my $period ( sort keys %periods ) { my %r = %{ $periods{$period} }; my $stime = conv24to12( $r{s} ); # start = s my $etime = conv24to12( $r{e} ); # end = e my ($shr,$smin) = split(':', $r{s} ); $smin = $shr * 60 + $smin; my ($ehr,$emin) = split(':', $r{e} ); $emin = $ehr * 60 + $emin; my $length = $emin - $smin; print qq{}; print qq{\n}; } print qq{
$lex{Period}$lex{Times}$lex{Length}
$period$stime - $etime$length
\n}; # Edit these periods print qq{
\n}; print qq{\n}; print qq{
\n}; # Delete this Period Group # print qq{
\n}; # print qq{\n}; # print qq{\n}; # print qq{
\n}; # print qq{
\n}; } else { print qq{

No Period Times Defined

\n}; } # Update Period Numbers (larger/smaller); print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{\n}; print qq{$lex{Timetable} $lex{Periods}\n}; print qq{ (More/Less)
\n}; print qq{\n}; exit; } # end of showStartPage #------------- sub setPeriods { #------------- # print qq{
Set Periods
\n}; # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $newperiods = $arr{newperiods}; delete $arr{newperiods}; # load staff record for this user and get periods field, then eval it. my $sth = $dbh->prepare("select dbkperiods from staff where userid = ?"); $sth->execute( $userid ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $periods = $sth->fetchrow; # print "PERIODS:$periods
\n"; eval $periods; if ( $@ ) { print $lex{Error}. " for Teacher Periods: $@
\n"; exit; } # foreach my $period ( sort keys %r ) { # print qq{Per:$period S:$r{$period}{s} E:$r{$period}{e}
\n}; # } # Convert to 12 hour clock. foreach my $period ( sort keys %periods ) { $periods{$period}{s} = conv24to12( $periods{$period}{s} ); $periods{$period}{e} = conv24to12( $periods{$period}{e} ); } if ( $periods < 0 or $periods > 15 ) { print qq{

$lex{Error} - $lex{Periods}:$periods

\n}; print qq{\n}; exit; } # Form / Table Start print qq{
\n}; print qq{\n}; # to write print qq{\n}; print qq{}; print qq{\n}; my $maxperiods = keys %periods; if ( $maxperiods != $newperiods and $newperiods ) { $maxperiods = $newperiods; } # foreach my $period ( sort keys %periods ) { foreach my $period ( 1..$maxperiods ) { my %r = %{ $periods{$period} }; # print "R:", %r, "
\n"; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{\n}; print qq{
$lex{Period}$lex{'Starting Time'}$lex{'Ending Time'}
$lex{Period} $period\n}; print qq{\n}; print qq{
}; print qq{
\n}; print qq{\n}; exit; } #--------------- sub writeRecords { #--------------- # print qq{Write:
\n}; # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my (%periods,%check); foreach my $key ( keys %arr ) { my $time = conv12to24( $arr{$key} ); my ($type, $per) = split(':', $key); # type is start 's' or end 'e'. $periods{$per}{$type} = $time; # print qq{Time:$time
\n}; my ($h,$m) = split(':', $time); my $minutes = $h * 60 + $m; if ( not $minutes ) { next; } # not checking blanks. my $idx = $per; if ( $type eq 'e' ) { # add on .5 $idx += 0.5; } $check{$idx} = $minutes; # these will be total minutes from start of the day. } =head # Display values for periods foreach my $period ( sort keys %periods ) { foreach my $type ( sort keys %{ $periods{$period} } ) { print qq{Period:$period Type:$type Val:$periods{$period}{$type}
\n}; } } =cut # Check values for length, sequence, and overlap. my ($curr, $prev); foreach my $key ( sort {$a <=> $b} keys %check ) { $prev = $curr; $curr = $key; if ( $prev ) { # not at first; if ( $check{$curr} < $check{$prev} ) { # error; my ($currerr, $preverr ); $currerr = "Start"; if ( $curr =~ m/\./ ) { # is it a decimal value, if so, an end time $currerr = "End"; $curr =~ s/\..+//g; } $currerr = "Period $curr ". $currerr; $preverr = "Start"; if ( $prev =~ m/\./ ) { # is it a decimal value, if so, an end time $preverr = "End"; $prev =~ s/\..+//g; } $preverr = "Period $prev ". $preverr; print qq{

$lex{Error}: $currerr < $preverr

\n}; print qq{\n}; exit; } } # print qq{K:$key V:$check{$key}
\n}; } # Now get period lengths. my %lengths; # of periods in minutes. print qq{}; print qq{\n}; foreach my $period ( sort {$a <=> $b} keys %periods ) { my ($shr,$smin) = split(':', $periods{$period}{'s'} ); $smin = $shr * 60 + $smin; my ($ehr,$emin) = split(':', $periods{$period}{'e'} ); $emin = $ehr * 60 + $emin; my $length = $emin - $smin; $lengths{$period} = $length; if ( not $length ) { next; } print qq{}; print qq{}; print qq{\n}; } print qq{
$lex{Period}$lex{Times}$lex{Length}
$period$periods{$period}{s} - $periods{$period}{e}$length
\n}; # we now have %periods{ period }{s or e} = val; my $PeriodTimeEnc = setScalar('*periods', \%periods); # print qq{PeriodTime: $PeriodTimeEnc
\n}; # Save the records into staff table dbkperiods field for this user; my $sth = $dbh->prepare("update staff set dbkperiods = ? where userid = ?"); $sth->execute( $PeriodTimeEnc, $userid ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } print qq{

Period Times Stored

\n}; print qq{

[ $lex{Start} ]

\n}; print qq{\n}; exit; } #------------ sub setScalar { #------------ my ($dataname, $datavalue) = @_; my $name_ref = [ ]; my $value_ref = [ ]; push @$name_ref, $dataname; push @$value_ref, $datavalue; my $d = Data::Dumper->new( $value_ref, $name_ref ); return $d->Dump; } #------------- sub conv12to24 { #------------- my $time = shift; if ( not $time ) { return } $time =~ s/(AM|PM|am|pm|\s+)//g; # strip am/pm or spaces # $ampm = $1; # $ampm = uc $ampm; # uppercase value # print "12to24: $time
\n"; # we don't care if it's got AM/PM values. We will go with hour # values. If It is 12 or greater it is PM othersie it's an AM # value. If < 7 we just add on 12. This will only work from 7am # on. Should be safe. my ($hr, $min) = split(':', $time); # if ( $ampm eq 'PM' and $hr < 12 ) { if ( $hr < 7 ) { # ie. 1 to 6 $hr += 12; } if ( $hr > 24 or $hr < 0 or $min < 0 or $min > 60 ) { print qq{

$lex{Error}: $time

\n}; print qq{\n}; exit; } return qq{$hr:$min}; } #------------- sub conv24to12 { #------------- my $time = shift; if ( not $time ) { return } $time =~ s/\s+|am|pm|AM|PM//; # just in case. my ($hr, $min) = split(':', $time); my $ampm = 'AM'; if ( $hr == 12 ) { $ampm = 'PM'; } if ( $hr == 0 ) { $hr = 12; }; if ( $hr > 12 ) { $hr -= 12; $ampm = 'PM'; } return qq{$hr:$min $ampm}; }