#!/usr/bin/perl
# Copyright 2001-2023 Leslie Richardson
# This file is part of Open Admin for Schools.
# confperiods_teacher.pl - manage periods for a teacher
my %lex = ('Error' => 'Error',
'Continue' => 'Continue',
'Main' => 'Main',
'Edit' => 'Edit',
'Add' => 'Add',
'New' => 'New',
'Set' => 'Set',
'Please Log In' => 'Please Log In',
'User Id' => 'User Id',
'Password' => 'Password',
'Cookie Duration' => 'Cookie Duration',
'Not Found' => 'Not Found',
'Ending Time' => 'Ending Time',
'Length' => 'Length',
'Number of' => 'Number of',
'Period' => 'Period',
'Periods' => 'Periods',
'Start' => 'Start',
'Starting Time' => 'Starting Time',
'Times' => 'Times',
'Periods' => 'Periods',
'Select' => 'Select',
);
my $self = 'confperiods_teacher.pl';
my $defaultEtcPath = '../../etc';
use DBI;
use CGI;
use Data::Dumper;
use Time::JulianDay;
use CGI::Session;
$Data::Dumper::Purity = 1;
$Data::Dumper::Indent = 0;
eval require "../../etc/admin.conf.root";
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 $dbtype = 'mysql';
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Load Configuration
my $sth = $dbh->prepare("select datavalue from conf_system where dataname = ?");
foreach my $var ( qw( doctype chartype tchcss tchpage g_jquery_url g_jquery_ui_url
g_AttendanceEntryMethod g_JqueryUiCss tchpage g_DaysPerCycle g_PeriodTime g_PeriodMap )) {
$sth->execute( $var );
my $datavalue = $sth->fetchrow;
eval $datavalue;
if ( $@ ) {
print "$lex{Error}: $@ \n";
die "$lex{Error}: $@\n";
}
}
my $userid = $ENV{'REMOTE_USER'};
my $sth = $dbh->prepare("select lastname, firstname from staff where userid = ?");
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($ln,$fn) = $sth->fetchrow;
# Page Header
my $title = qq{$lex{Set} $lex{Period} $lex{Times}};
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} | $fn $ln ($userid)\n};
print qq{
$title
\n};
my $cycletext;
if ( $g_DaysPerCycle == 1 ) {
$cycletext = "( Every Day is the same. )";
} elsif ( $g_DaysPerCycle == 5 or $g_DaysPerCycle eq 'w' or $g_DaysPerCycle eq 'W' ) {
$cycletext = "( Weekly Cycle - Each monday the same, each tuesday, etc. )";
}
print qq{
Days in a School Cycle - $g_DaysPerCycle
\n};
if ( $cycletext ) {
print qq{$cycletext\n};
}
# foreach my $key ( keys %arr ) { print "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();
}
#----------------
sub showStartPage {
#----------------
# load existing timesets (period groups), including this user. If no userid
# mapped timeset, then display these to allow teacher to select
# one as a starting point.
my %timedata;
# Check for a user timeset.
my $sth = $dbh->prepare("select timeset from period_map where timetype = 'userid' and timeval = ?");
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $usertimeset = $sth->fetchrow;
# print "usertimeset: $usertimeset \n";
my $sth1 = $dbh->prepare("select period,starttime,endtime from period_data where timeset = ?");
# if we have a timeset for this user, then allow for an edit.
if ( $usertimeset ) {
my (%pstart,%pend);
# Load this period data
$sth1->execute( $usertimeset );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($per,$st,$et) = $sth1->fetchrow ) {
my ($h,$m,$s) = split(':', $st);
$st = qq{$h:$m};
my ($h,$m,$s) = split(':', $et);
$et = qq{$h:$m};
# print qq{Per:$per ST:$st ET:$et };
$pstart{$per} = $st;
$pend{$per} = $et;
}
print qq{
Remove Start/End times to delete a period. Only
remove periods from the end (highest numbered ) periods,
unless you want "holes" in your period group.
\n};
print qq{
\n};
print qq{
Your Periods };
print qq{(Timeset $usertimeset)};
print qq{
\n};
} else { # add a new timeset (period group)
# Load Any Values in period_data
$sth = $dbh->prepare("select * from period_data");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
$timedata{ $r{timeset} }{ $r{period} } = { start => $r{starttime}, end => $r{endtime} };
}
print qq{
Select A Period Group or make your own
\n};
print qq{\n};
# Display current values, floated
foreach my $timeset ( sort keys %timedata ) {
my %r = %{ $timedata{$timeset}};
print qq{
\n};
print qq{
Period Group $timeset
\n};
print qq{
$lex{Period}
$lex{Times}
$lex{Length}
\n};
foreach my $period ( sort {$a <=> $b} keys %{ $timedata{$timeset} } ) {
my $stime = conv24to12($r{$period}{start});
my $etime = conv24to12($r{$period}{end});
my ($shr,$smin) = split(':', $r{$period}{'start'} );
$smin = $shr * 60 + $smin;
my ($ehr,$emin) = split(':', $r{$period}{'end'} );
$emin = $ehr * 60 + $emin;
my $length = $emin - $smin;
print qq{
$period
};
print qq{$stime - $etime
$length
\n};
}
print qq{
\n};
} # end of display current timeset for selection
# select a Timeset to copy
print qq{\n};
} # end of add new timeset.
print qq{\n};
exit;
} # end of showStartPage
#-------------
sub setPeriods {
#-------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my $periods = $arr{periods}; # passed in %arr if no records yet.
my $timeset = $arr{timeset};
if ( not $timeset and not $periods ) {
print qq{