#!/usr/bin/perl
# Copyright 2001-2019 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);
$dbh->{mysql_enable_utf8} = 1;
# 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'};
# 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} ]\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 };
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, 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 qq{
If the School Wide period times
agree with what you want for numbers of periods and period times
for your homeroom, no addition of periods is required
here. Otherwise you can set your own period times for use with
your daybook.
\n};
# Display School wide Period Times.
my @tmp = keys %g_PeriodTime;
if ( @tmp ) {
my %p = %{ $g_PeriodTime{$tmp[0]} }; # only use the first ID for period mapping.
foreach my $period ( keys %p ) {
$ptime{$period}{starttime} = conv24to12( $p{$period}{s} );
$ptime{$period}{endtime} = conv24to12( $p{$period}{e} );
}
print qq{
\n};
}
# 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} };
}
# Display current values, floated
foreach my $timeset ( sort keys %timedata ) {
my %r = %{ $timedata{$timeset}};
print qq{
\n};
print qq{
Time Set $timeset
\n};
print qq{
$lex{Period}
$lex{Times}
$lex{Length}
\n};
foreach my $period ( sort 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};
}
# Edit this Time Set
print qq{
};
print qq{\n};
print qq{
\n};
print qq{
\n};
} # end of display current timeset for editing
# Display Any Values in period_map
# Get Staff Name
my $sth1 = $dbh->prepare("select lastname, firstname from staff where userid = ?");
my $first = 1;
$sth = $dbh->prepare("select timeset, timeval from period_map order by timeset, timeval");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($set,$uid) = $sth->fetchrow ) {
# Get Staff Name
$sth1->execute($uid);
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth1->fetchrow;
if ( $first ) {
print qq{
\n};
print qq{
Timeset
User Id
\n};
$first = 0;
}
print qq{
$set
$firstname $lastname ($uid)
\n};
}
if ( not $first ) {
print qq{
\n\n};
}
# Add new Time Set
print qq{\n};
print qq{\n};
exit;
} # end of showStartPage
#------------
sub setPeriods {
#------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my $periods; # passed in %arr if no records yet.
my $timeset = $arr{id};
my %timedata;
if ( $timeset ) {
# Load Periods
my $sth = $dbh->prepare("select * from period_data where timeset = ?");
$sth->execute( $timeset );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
$timedata{ $r{period} } = { start => $r{starttime}, end => $r{endtime}, id => $r{id} };
}
$periods = (keys %timedata );
} else {
$periods = $arr{periods};
}
# foreach my $period ( sort keys %timedata ) {
# print "Per:$period S:$timedata{$period}{start} E:$timedata{$period}{end} ID:$timedata{$period}{id} \n";
# }
# Convert to 12 hour clock.
foreach my $period ( sort keys %timedata ) {
$timedata{$period}{start} = conv24to12( $timedata{$period}{start} );
$timedata{$period}{end} = conv24to12( $timedata{$period}{end} );
}
# Check Periods value
if ( not $periods or ( $periods < 0 or $periods > 10 )) {
print qq{