#!/usr/bin/perl # Copyright 2001-2010 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 = ('Attendance Confirmation' => 'Attendance Confirmation', 'Main' => 'Main', 'Student' => 'Student', 'Subject' => 'Subject', 'Reason' => 'Reason', 'Period' => 'Period', 'No Student(s) Found' => 'No Student(s) Found', 'Attendance Reasons' => 'Attendance Reasons', 'Date' => 'Date', 'Error' => 'Error', 'Late' => 'Late', 'Minutes' => 'Minutes', 'Continue' => 'Continue', 'Add' => 'Add', 'Missing' => 'Missing', 'Save' => 'Save', 'Duplicate' => 'Duplicate', 'Attendance Records' => 'Attendance Records', 'Method' => 'Method', ); my $self = 'tattentry1.pl'; use DBI; use CGI; eval require "../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; # Database setup my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # foreach my $key ( sort keys %arr ) { print "K:$key Val:$arr{$key}
\n"; } # exit; my $date; if ( $arr{date} =~ m/,/ ) { #if it contains a comma ( my $dud, $date ) = split(/,/ ,$arr{date} ); $date =~ s/^\s*//; # strip leading space } else { $date = $arr{date}; } delete $arr{date}; my $method = $arr{method}; delete $arr{method}; my $latemode = $arr{latemode}; delete $arr{latemode}; # Not sure if any role for this... my $userid = $arr{name}; delete $arr{name}; # Print Start of HTML Page print "$doctype\n$lex{'Attendance Confirmation'} [ $lex{Main} ]\n"; print "

$lex{'Attendance Confirmation'}

\n"; print "

$date

\n"; # Test Section #print "
\n"; #foreach $key ( sort keys %arr ) { # if ( $arr{$key} ) { print "K:$key V:$arr{$key}
\n"; } #} if ( $latemode ) { # Add Lates/Reasons addLates(); } # Start of Form print "
\n"; my $noReasonFlag; my $duplicateRecordFlag; print "\n"; print "\n"; print "\n"; print "\n"; my $sth1 = $dbh->prepare("select count(*) from attend where studentid = ? and absdate = ? and period = ?"); # === SUBJECT Method =========== if ( $method eq 'subject' ) { SUBKEY: foreach $key ( sort keys %arr ) { if ( $arr{$key} ) { my ( $studnum, $subjsec, $period, $val ) = split(/:/,$key); if ( $val eq 'Reason' or $val eq 'Late' ) { next; } # skip these # get reason my $rsnindex = "$studnum:$subjsec:$period:Reason"; my $reason = $arr{$rsnindex}; if ( not $reason ) { # use undefined period mode $rsnindex = "$studnum:$subjsec". "::Reason"; # Watch :: $reason = $arr{$rsnindex}; } # print "SN:$studnum SUB:$subjsec PER:$period RSN:$reason
\n"; if (not $reason) { $noReasonFlag = 1; push @noReason, "$key:$date"; # studnum:subjsec:period:date } # get any late minutes my $lateindex = "$studnum:$subjsec:$period:Late"; my $late = $arr{$lateindex}; # Check for an existing attendance record. $sth1->execute( $studnum, $date, $period ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; # print "Count: $count SN:$studnum D:$date P:$period
\n"; if ( $count > 0 ) { # we have an existing record... $duplicateRecordFlag = 1; push @duplicateRecords, "$studnum:$period:$date:$subjsec"; } if ( $count > 0 or not $reason ) { # skip to next record next SUBKEY; } # Now find the student name, not studentall since won't show for attendance anyway $sth = $dbh->prepare("select lastname,firstname from student where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth->fetchrow; my $studname; if ( not $lastname ) { # No student found.... $studname = "$lex{'No Student(s) Found'}"; } else { # we have a student $studname = "$lastname, $firstname ($studnum)"; } # Now find the subject description $sth = $dbh->prepare("select description from subject where subjsec = ? "); $sth->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $description = $sth->fetchrow; print "\n"; print "\n"; print "\n"; } # End of If: we have a passed value } # End of ForEach Loop (each value in %arr hash) } # end of SUBJECT method # === Homeroom Method =========== if ( $method eq 'hroom' ) { foreach my $key ( sort keys %arr) { if ( $arr{$key} ) { # if we have a value my ( $studnum, $period, $val ) = split(/:/,$key ); if ( $val eq 'Reason' or $val eq 'Late' ) { next; } # skip these my ( $reason, $last, $reasonidx, $lateidx ); if ( $arr{"$studnum:\:Reason"} ) { $reason = $arr{"$studnum:\:Reason"}; $lateidx = "$studnum:\:Late"; $late = $arr{$lateidx}; } elsif ( $arr{"$studnum:$period:Reason"} ) { $reason = $arr{"$studnum:$period:Reason"}; $lateidx = "$studnum:$period:Late"; $late = $arr{$lateidx}; } else { print "

$lex{Error}: $lex{Missing} Index

\n"; exit; } # print "R: $reasonidx $reason L:$lateidx $late
\n"; if ( not $reason ) { $noReasonFlag = 1; push @noReason, "$studnum:\:$period:$date"; # studnum:subjsec:period:$date } # Check for an existing attendance record. $sth1->execute( $studnum, $date, $period ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; # print "Count: $count SN:$studnum D:$date P:$period
\n"; if ( $count > 0 ) { # we have an existing record... $duplicateRecordFlag = 1; push @duplicateRecords, "$studnum:$period:$date:$subjsec"; } if ( $count > 0 or not $reason ) { next; } $sth = $dbh->prepare("select lastname, firstname from student where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth->fetchrow; if ( not $lastname ) { # No student found.... $studname = "$lex{'No Student(s) Found'}"; } else { # we have a student $studname ="$lastname, $firstname ($studnum)"; } print ""; print "\n"; print "\n"; } # End of If } # End of %arr Loop } # end of homeroom method # === Multi-Day Method =========== if ($method eq 'multiday') { MULTIKEY: foreach $key ( sort keys %arr ) { if ( $arr{$key} ) { my ($studnum,$date,$period, $val) = split(/:/,$key); if ( $val eq 'Reason' or $val eq 'Late' ) { next; } # skip these # get reason my $rsnindex = "$studnum:$date:$period:Reason"; my $reason = $arr{$rsnindex}; # get any late minutes my $lateindex = "$studnum:$date:$period:Late"; my $late = $arr{$lateindex}; # Check for reason. if ( not $reason ) { $noReasonFlag = 1; push @noReason, "$studnum:\:$period:$date"; # studnum:subjsec:period:date } # Check for an existing attendance record. $sth1->execute( $studnum, $date, $period ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth1->fetchrow; # print "Count: $count SN:$studnum D:$date P:$period
\n"; if ( $count > 0 ) { # we have an existing record... $duplicateRecordFlag = 1; push @duplicateRecords, "$studnum:$period:$date:$subjsec"; } if ( $count > 0 or not $reason ) { # skip to next record. next MULTIKEY; } my $sth = $dbh->prepare("select lastname, firstname from student where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth->fetchrow; if ( not $lastname ) { # No student found.... $studname = "$lex{'No Student(s) Found'}"; } else { # we have a student $studname ="$lastname, $firstname ($studnum)"; } print ""; print "\n"; print "\n"; } # } # each value in %arr hash } # end of Multi-Day method # Sequence for the colon separated fields above: # Studnum:Period:Subjsec:Reason:Late:Date # If missing reason, fail here.... if ( $noReasonFlag ) { print "\n"; my $sth = $dbh->prepare("select lastname,firstname from student where studnum = ?"); my $sth1 = $dbh->prepare("select description from subject where subjsec = ?"); foreach my $rec ( @noReason ) { my ($studnum, $subjsec, $period, $date) = split(/:/, $rec ); # Now find the student name $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth->fetchrow; # Now find the subject name ( if subjsec exists ) my $description; if ( $subjsec ) { $sth1->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } $description = $sth1->fetchrow; } print "\n"; print "\n"; print "\n"; } } # End of noReasonFlag if ( $duplicateRecordFlag ) { print "\n"; my $sth = $dbh->prepare("select lastname,firstname from student where studnum = ?"); my $sth1 = $dbh->prepare("select description from subject where subjsec = ?"); foreach my $rec ( @duplicateRecords ) { my ($studnum, $period, $date, $subjsec) = split(/:/, $rec ); # Now find the student name $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth->fetchrow; # Now find the subject name (if subjsec exists) my $description; if ( $subjsec ) { $sth1->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } $description = $sth1->fetchrow; } print "\n"; if ($subjsec) { print "\n"; } else { print ""; } print "\n"; } } # End of duplicateRecords # If we have one or both above.... close forms and finish page if ( $duplicateRecordFlag or $noReasonFlag ) { print "
$lex{Student}$lex{Subject}$lex{Reason}$lex{Period}$lex{Date}$lex{Late}
$studname$description$reason$period$date$late
$studname$reason$period$date$late
$studname$reason$period$date$late
"; print "$lex{Missing} $lex{'Attendance Reasons'}
$lastname, $firstname ($studnum)$description ($subjsec)$period$date$late
"; print "$lex{Duplicate} $lex{'Attendance Records'}
$lastname, $firstname ($studnum)$description ($subjsec)$period$date$late
\n"; } else { print "\n"; print "\n"; print "\n"; } #----------- sub addLates { #----------- # Test Section # print "\n"; # foreach my $key ( sort keys %arr ) { # if ( $arr{$key} ) { print "K:$key V:$arr{$key}
\n"; } # } print "
". $lex{Add}. q{ }; print $lex{Minutes}. q{ }. $lex{Late}. "
\n"; # Start Form print "
\n"; print "\n"; print "\n"; # Print Table Header. print "\n"; print ""; print "\n"; print ""; print "\n"; my $sth = $dbh->prepare("select lastname,firstname from student where studnum = ?"); my $sth1 = $dbh->prepare("select description from subject where subjsec = ? "); # Format: $studnum:$subjsec:$period:$reason -- we add the late or alt reason foreach my $key ( sort keys %arr ) { if ( $arr{$key} ) { # if we have a value # Setup variables my ( $studnum, $subjsec, $period, $reason ); my ($reasonkey, $lastkey ); if ( $method eq 'hroom' ) { ( $studnum, $period, $val ) = split(/:/, $key); if ( $val eq 'Reason' ) { next; } $reasonkey = "$studnum:\:Reason"; $reason = $arr{$reasonkey}; $reasonkey = "$studnum:$period:Reason"; $latekey = "$studnum:$period:Late"; } elsif ( $method eq 'subject' ) { ( $studnum, $subjsec, $period, $val ) = split(/:/, $key ); if ( $val eq 'Reason' ) { next; } $reasonkey = "$studnum:$subjsec:$period:Reason"; $reason = $arr{$reasonkey}; $latekey = "$studnum:$subjsec:$period:Late"; } elsif ( $method eq 'multiday' ) { ( $studnum, $date, $period ) = split(/:/, $key); $reasonkey = "$studnum:$date:$period:Reason"; $latekey = "$studnum:$date:$period:Late"; } else { # an error print "

$lex{Error}: $lex{Missing} $lex{Method}

\n"; print "\n"; exit; } # print original record, w/o change. print "\n"; # Get student name my $studname; $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth->fetchrow; if ( not $lastname ) { # No student found.... $studname = "$lex{'No Student(s) Found'}"; } else { # we have a student $studname = "$lastname, $firstname ($studnum)"; } # Now find the subject description my $description; if ( $subjsec ) { $sth1->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } $description = $sth1->fetchrow; } print "\n"; print "\n"; print "\n"; } # end of %arr loop. } print "\n"; print "
". $lex{Student}. "". $lex{Subject}. "". $lex{Reason}. "". $lex{Period}. "". $lex{Date}. "\n"; print $lex{Minutes}. q{
}. $lex{Late}. "
$studname$description$period$date
\n"; print "
\n"; print "\n"; exit; } # end of addLates