#!/usr/bin/perl
# Copyright 2001-2020 Leslie Richardson
# This file is part of Open Admin for Schools.
# Passed as "group": Accept Grade, Class, or All for group to
# find for attendance.
# Passed as "mode": Weekly or Biweekly Mode. (or Date Range?)
# Passed as "class": The value of the group: ie. 8c, 10.
my %lex = ( 'Add' => 'Add',
'Multi-Day' => 'Multi-Day',
'Attendance' => 'Attendance',
'Date' => 'Date',
'Name' => 'Name',
'Continue' => 'Continue',
'Error' => 'Error',
'Weekly' => 'Weekly',
'Select by' => 'Select by',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Weekly' => 'Weekly',
'Biweekly' => 'Biweekly',
'Continue' => 'Continue',
'Mode' => 'Mode',
'Blank=All' => 'Blank=All',
'Sort by' => 'Sort by',
'Separate with Spaces' => 'Separate with Spaces',
'No Student(s) Found' => 'No Student(s) Found',
'Start Date' => 'Start Date',
'Period' => 'Period',
'Reason' => 'Reason',
'Late' => 'Late',
'Subject' => 'Subject',
'Record(s) Stored' => 'Record(s) Stored',
'Contact' => 'Contact',
'Missing' => 'Missing',
'Reason' => 'Reason',
'Skipping' => 'Skipping',
'Save' => 'Save',
'Start Page' => 'Start Page',
'Previous Week' => 'Previous Week',
'Next Week' => 'Next Week',
'AM' => 'AM',
'PM' => 'PM',
'Show' => 'Show',
'Withdrawn' => 'Withdrawn',
'Students' => 'Students',
'WD' => 'WD',
'Perfect Attendance' => 'Perfect Attendance',
'Main' => 'Main',
);
my $self = 'attadd_multiday.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/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;
# Set Default 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 $title = "$lex{Add} $lex{Homeroom} $lex{Attendance} - $lex{'Multi-Day'}";
print qq{$doctype\n$title\n};
print qq{\n};
if ( not $arr{page} ) { # calendar popup is on start page.
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
}
print qq{$chartype\n\n};
print qq{[ $lex{Main} | $lex{Attendance} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
setPeriods();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
setReasons();
} elsif ( $arr{page} == 3 ) {
delete $arr{page};
writeRecords();
}
#-------------
sub setReasons {
#-------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# Form start
print qq{\n};
exit;
} # end of setReasons();
#---------------
sub writeRecords {
#---------------
#foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my $homeroom = $arr{homeroom};
delete $arr{homeroom};
# Get Userid from homeroom
my $sth = $dbh->prepare("select userid from staff_multi
where field_name = 'homeroom' and field_value = ?");
$sth->execute( $homeroom );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $userid = $sth->fetchrow;
# store the dates for attendance entry for teacher attendance.
my %tattendance;
my $first = 1;
my $grade; # for finding PPD (Attendance Periods per Day)
my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
foreach my $key ( keys %arr ) {
my ( $type,$studnum,$date,$period ) = split( ':',$key);
if ( $type eq 'PA' ) { # perfect attendance for that day.
my $date = $studnum; # studnum is really a date for this hash item.
$tattendance{$date} = 1;
next;
}
if ( $type eq 'L' or $type eq 'S' or not $period ) { next; }
# skip Late, Subject, and additional vars in loop
# Check for Missing Reason
if ( not $arr{$key} ) { # missing reason
print qq{
\n};
next;
}
# Check for an existing record.
my $sth = $dbh->prepare("select count(*) from attend
where studentid = ? and absdate = ? and period = ?");
$sth->execute( $studnum, $date, $period );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $count = $sth->fetchrow;
if ( $count ) { # we have an existing record
# Get Student Name
$sth1->execute( $studnum );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my ($lastname,$firstname ) = $sth1->fetchrow;
print qq{
};
print qq{Record exists for $firstname $lastname, $date, Period $period, };
print qq{$lex{Skipping}
\n};
next;
}
if ( $first ) { # get grade for this student to set PPD.
my $sth = $dbh->prepare("select grade from studentall where studnum = ?");
$sth->execute( $studnum );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
$grade = $sth->fetchrow;
}
$first = 0;
$tattendance{$date} = 1; # track teacher/admin attendance entry.
my $late;
my $lkey = "L:$studnum:$date:$period";
if ( $arr{$lkey} ) { $late = $arr{$lkey}; }
my $subject = qq{HR:$homeroom};
$sth = $dbh->prepare("insert into attend ( studentid, absdate, reason, period, late, subjsec )
values ( ?, ?, ?, ?, ?, ? )");
$sth->execute( $studnum, $date, $arr{$key}, $period, $late, $subject );
} # End of Record Entry loop
# print qq{Teacher Attendance: };
# foreach my $key ( sort keys %tattendance ) { print qq{K:$key V:$tattendance{$key} \n}; }
# Duplicate check.
my $sth1 = $dbh->prepare("select count(*) from tattend
where attdate = ? and subjects = ? and periods = ?");
# Teacher Attendance Records
if ( not $first ) {
my $periods = $g_ppd{$grade};
my $subject = qq{HR:$homeroom};
foreach my $date ( keys %tattendance ) {
foreach my $period (1..$periods ) {
# Check for existing...
$sth1->execute( $date, $subject, $period);
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $count = $sth1->fetchrow;
if ( $count ) { next; }
print qq{Teacher Attendance Entry Added - Date:$date Period:$period \n};
my $sth = $dbh->prepare("insert into tattend
( userid, attdate, currdate, subjects, periods )
values ( ?,?,now(),?,? )");
$sth->execute( $userid, $date, $subject, $period);
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
}
}
}
if ( not $DBI::errstr ) {
print qq{