#!/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',
'Error' => 'Error',
'Weekly' => 'Weekly',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Biweekly' => 'Biweekly',
'Continue' => 'Continue',
'Mode' => 'Mode',
'No Student(s) Found' => 'No Student(s) Found',
'Start Date' => 'Start Date',
'Period' => 'Period',
'Late' => 'Late',
'Contact' => 'Contact',
'Reason' => 'Reason',
'Skipping' => 'Skipping',
'Save' => 'Save',
'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',
'Record' => 'Record',
'Exists' => 'Exists',
'Saved' => 'Saved',
'Student' => 'Student',
'More' => 'More',
'No Absences Found' => 'No Absences Found',
'Select' => 'Select',
);
my $self = 'attadd_multiday.pl';
my $adminuser = 'admin';
use DBI;
use CGI;
use Time::JulianDay;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@$title \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}$lastname , $firstname};
}
my $name = $studname{$studnum};
my $late;
my $lateKey = qq{L:$studnum:$date:$period};
if ( $arr{$lateKey} ) { # we have minutes set
$late = $arr{$lateKey};
} else {
undef $late; # will be NULL when stored.
}
$first = 0;
my @values;
my @fieldnames = @fields;
my @qst = qw(? ? ? ? ? ?); # 6 fields (includes late)
push @values, $studnum, $date, $reason, $period, $subjsec, $late;
my $fieldnames = join(',', @fieldnames);
my $qst = join(',', @qst);
# Check for a matching record, skip if so. (same student, date, period, course).
$sth1->execute( $studnum, $date, $period, $subjsec );
if ( $DBI::errstr ) { print $DBI::errstr;die $DBI::errstr; }
my $count = $sth1->fetchrow;
if ( $count ) {
print qq{$name $lex{Attendance} $lex{Record} $lex{Exists}! $lex{Skipping} \n};
next;
} # else insert the record
my $sth = $dbh->prepare("insert into attend ( $fieldnames ) values ( $qst )");
$sth->execute( @values );
if ( $DBI::errstr ) { print $DBI::errstr;die $DBI::errstr; }
print qq{Added $name / $subjsec / $date / $period / $reason
\n};
} # End of ForEach loop
if ( $first ) { # no attendance entries done; perfect attendance done below
print qq{$lex{'No Absences Found'} \n};
} elsif ( not $DBI::errstr ) {
print qq{$lex{Student} $lex{Attendance} $lex{Saved} \n};
} else {
print qq{$lex{Error} \n};
print qq{$lex{Contact} $adminname \n};
print qq{$DBI::errstr \n};
}
# Now do teacher attendance entries, including perfect attendance
# Insert the teacher attendance record
my $sth = $dbh->prepare("insert into tattend ( userid, attdate, currdate, subjects, periods )
values ( ?,?,now(),?,? )");
my $sth1 = $dbh->prepare("select count(*) from tattend where userid = ? and attdate = ?
and subjects = ? and periods = ?");
# Teacher Attendance Entry; loop through all passed values.
foreach my $key ( keys %arr ) {
if ( not $arr{$key} ) { next; } # skip no values
# my ( $type,$studnum,$subjsec,$date,$period ) = split(':',$key);
my @data = split(':', $key );
if ( $data[0] eq 'L' ) { next; } # skip any lates
if ( $data[0] eq 'PA' ) { #PA:date:period
$date = $data[1];
$period = $data[2];
} else { # a normal student record. R:studnum:date:period
$date = $data[2];
$period = $data[3];
}
# Check if already done.
# Userid and subjsec (ie. HR:$homeroom) defined at top of function.
$sth1->execute( $userid, $date, $subjsec, $period );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $tacount = $sth1->fetchrow;
if ( $tacount ) { # already present in tattend (teachers attendance table)
print qq{Teacher Attendance Record exists. Skipping \n};
print qq{User:$userid / $date / $subjsec / Period $period
\n};
next;
} # otherwise continue and add a record.
# Add tattend entry
$sth->execute( $userid, $date, $subjsec, $period );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
print qq{Added Teacher Entry \n};
print qq{User:$userid / $subjsec /$date / Period $period
\n};
} # end of %arr loop adding teacher attendance
# Add more Attendance Records
print qq{};
print qq{$lex{Add} $lex{More} Weekly Homeroom $lex{Attendance}\n};
print qq{
\n};
print qq{[ $lex{Main} ]
\n};
print qq{