#!/usr/bin/perl
# Copyright 2001-2023 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 = ('Error' => 'Error',
'Main' => 'Main',
'Attendance' => 'Attendance',
'Attendance Date' => 'Attendance Date',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Attendance Entry' => 'Attendance Entry',
'Periods per Day' => 'Periods per Day',
'Submit Attendance' => 'Submit Attendance',
'Reason' => 'Reason',
'Student' => 'Student',
'Per' => 'Per',
'Period(s)' => 'Period(s)',
'Period' => 'Period',
'Late' => 'Late',
'None' => 'None',
'More' => 'More',
'Records Stored' => 'Records Stored',
'Attendance Reasons' => 'Attendance Reasons',
'Skipping' => 'Skipping',
'Not Found' => 'Not Found',
'Missing' => 'Missing',
'Today' => 'Today',
'Day In Cycle' => 'Day In Cycle',
);
my $self = 'attaddall.pl';
my $adminuser = 'admin';
use DBI;
use CGI;
use Time::JulianDay;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
eval require "../../lib/libschedule.pl";
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);
# Set Date
my @tim = localtime(time);
my $year = @tim[5] + 1900;
my $month = @tim[4] + 1;
my $day = @tim[3];
my $currdate = "$year-$month-$day";
my $currjd = julian_day(split('-',$currdate));
my $dow = day_of_week($currjd);
if ( $dow == 6 ) { # Saturday
$currjd = $currjd - 1; # make it Friday.
my ($year,$month,$day) = inverse_julian_day($currjd);
$currdate = "$year-$month-$day";
}
if ( $dow == 0 ) { # Sunday
$currjd = $currjd - 2; # make it Friday.
my ($year,$month,$day) = inverse_julian_day($currjd);
$currdate = "$year-$month-$day";
}
$dow = day_of_week($currjd); # just in case it was updated.
my $currdate1 = "$month[$month] $day, $year";
my $title = $lex{'Attendance Entry'};
print qq{$doctype\n$title\n};
print qq{\n};
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{ $lex{Attendance} ] $currdate1\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
doHomeroomAttendance();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
doCourseAttendance();
} elsif ( $arr{page} == 3 ) {
delete $arr{page};
writeRecords();
}
#----------------
sub showStartPage {
#----------------
# Select distinct homerooms and then find teachers for those homerooms (and do homeroom attendance)
my %hroom;
my $sth = $dbh->prepare("select distinct homeroom, grade from student");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($hr, $gr) = $sth->fetchrow ) {
if ( not $hr ) { next; }
# skip any homerooms that do subject attendance, anyway.
if ( $g_AttendanceEntryMethod{$gr} eq 'subject' ) { next; }
$hroom{$hr}{$gr} = 1;
}
my %homeroomteacher, %teacherHR;
my $sth = $dbh->prepare("select userid from staff_multi where field_name = 'homeroom'
and field_value = ?");
foreach my $hr ( keys %hroom ) {
$sth->execute($hr);
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $userid = $sth->fetchrow; # only one teacher per homeroom.
$homeroomteacher{$hr} = $userid; # teachers per homeroom are unique.
$teacherHR{$userid} = 1; # just that they teach a homeroom for duplicate checking below
}
# Find subject/course teachers
my %teacherCRS;
my $sth = $dbh->prepare("select distinct teacher, subjsec, grade from subject");
my $sth1 = $dbh->prepare("select count(*) from eval where subjcode = ?");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while (my ($userid, $subjsec, $grade) = $sth->fetchrow ) {
# Skip, if course is a grade with homeroom attendance
if ( $g_AttendanceEntryMethod{$grade} eq 'homeroom' ) { next; }
# check for any course enrollments;
$sth1->execute( $subjsec );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $enrolcount = $sth1->fetchrow;
# Skip, if no enrollments
if (not $enrolcount ) { next; }
$teacherCRS{$userid} = 1;
}
# Get Teachers Name, setup sorting.
my $sth = $dbh->prepare("select lastname, firstname from staff where userid = ?");
my (%tchName, %sortCRS, %sortHR);
foreach my $userid ( keys %teacherCRS ) {
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth->fetchrow;
$tchname{$userid} = qq{$lastname, $firstname};
$sortCRS{"$lastname$firstname$userid"} = $userid;
}
foreach my $userid ( keys %teacherHR ) {
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth->fetchrow;
$tchname{$userid} = qq{$lastname, $firstname};
$sortHR{"$lastname$firstname$userid"} = $userid;
}
# Teacher Homeroom Entry
# Start Homeroom Form.
print qq{\n};
} else {
# Show Date
print qq{