$title

Date }; print qq{$lex{Required}

Year:$y Month:$m Day:$d

$lex{'Test Date'} $lex{Error}: $arr{date}

Test - Add Test Score / Absent - }; print qq{Add Reason for Absence
Test	Absent	$groupname $grp
		$lastname, $firstname ($studnum)

Date

}. fmtDate($date). qq{

Season $season - $date

$studnum / $field / $data{$studnum}{$field}

}; print qq{$firstname $lastname
$fieldtext{$field}

$lex{'Record Exists'}\n}; print qq{ / $firstname $lastname ($studnum) / }; print qq{$lex{'Test Date'}: $tdate / $lex{Skipping}

\n}; next; } my (@fields, @values, @qst ); foreach my $fld ( sort keys %{ $data{$studnum}} ) { push @fields, $fld; push @values, $data{$studnum}{$fld}; push @qst, '?'; } # add additional fields push @fields, studnum; push @values, $studnum; push @qst, '?'; push @fields, tdate; push @values, $date; push @qst, '?'; push @fields, tauthor; push @values, $userid; push @qst, '?'; push @fields, tgrade; push @values, $grade; push @qst, '?'; my $fields = join(',',@fields ); my $qst = join(',',@qst); # Write the record my $sth = $dbh->prepare("insert into fp_ufli_test ( $fields ) values($qst)"); $sth->execute( @values ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{

Record added for $firstname $lastname grade $grade

\n}; } # Add SSP Exceptions for absent students my $sth = $dbh->prepare("select lastname, firstname, grade from studentall where studnum = ?"); my $first = 1; foreach my $studnum ( @absent ) { # Get Student Info $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; if ( $first ) { # Print Form Heading print qq{

\n}; print qq{\n}; print qq{\n}; # Table print qq{

\n}; print qq{\n}; print qq{\n}; $first = 0; } print qq{}; print qq{\n}; } if ( not $first ) { print qq{

$lex{Student}	Reasons for No Student Score
$r{firstname} $r{lastname}	}; foreach my $key ( @exceptions ) { print qq{$exceptions{$key} \n}; } print qq{If Other, Please Specify

\n}; print qq{

\n}; } else { print qq{

[ $lex{Main} ]

\n}; } print qq{\n}; exit; } #------------------ sub writeExceptions { #------------------ # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $tdate = $arr{tdate}; delete $arr{tdate}; my $sth1 = $dbh->prepare("select * from studentall where studnum = ?"); foreach my $key ( keys %arr ) { my ($type, $studnum ) = split(':', $key); if ( $type eq 'OTHER' ) { next; } # skip all 'Other' values. my $othercode = qq{OTHER:$studnum}; my $reasonother = $arr{$othercode}; my $reason = $arr{$key}; # Check for existing record my $sth = $dbh->prepare("select count(*) from ssp_exceptions where studnum = ? and tdate = ? and ssptype = ?"); $sth->execute( $studnum, $tdate, 'dra' ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth->fetchrow; # Get Student Info $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $studref = $sth1->fetchrow_hashref; my %r = %$studref; if ( $count ) { # we've already written this record.. print "

$lex{'Record Exists'}\n"; print "- $rec{firstname} $rec{lastname} ($studnum)"; print "$lex{Test} $lex{Date}: $tdate -$lex{Skipping}\n"; next; } my $age = calcAge( $r{birthdate}, $tdate ); my $treatynum = $r{treaty}; if ( not $treatynum ) { $treatynum = $r{provnum}; } # Insert a record. $sth = $dbh->prepare("insert into ssp_exceptions ( studnum, treatynum, ssptype, tdate, tauthor, tgrade, tage, reasoncode, reasonother ) values ( ?, ?, ?, ?, ?, ?, ?, ?, ? )"); $sth->execute( $studnum, $treatynum, 'FP-UFLI', $tdate, $userid, $r{grade}, $age, $reason, $reasonother ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } print qq{
$r{firstname} $r{lastname} Exception Record Added
\n}; } print qq{
[ $title |\n}; print qq{$lex{Main} ]
\n}; print qq{\n}; exit; } # end of writeExceptions #---------- sub calcAge { #---------- # Passed (birthdate, $currdate) my ( $birthdate, $currdate ) = @_; my ($byear,$bmonth,$bday) = split /-/,$birthdate; my ($cyear,$cmonth,$cday) = split /-/,$currdate; my $age = $cyear - $byear; my $month = $cmonth - $bmonth; #print qq{BD: $birthdate CD: $currdate Age: $age MO:$month
\n"; if ($cmonth < $bmonth){ $month = $month + 12; if ($cday < $bday){ $month--;} $age--; } elsif ($cmonth == $bmonth and $cday < $bday){ $age--; $month = 11; } elsif ($cmonth > $bmonth and $cday < $bday) { $month--; } if ( $age < 0 or $age > 100 ) { $age = 0; $month = 0; } return qq{$age:$month}; } #---------- sub fmtDate { #---------- my ( $year, $mon, $day ) = split '-', shift; return "$s_month[$mon] $day, $year"; }

$lex{'Test Date'}	\n}; print qq{\n}; print qq{(yyyy-mm-dd)
$lex{Select} $lex{Student} - Use Ctrl Key for Multiple
Grade	or
Homeroom	}; print qq{\n}; print qq{ $lex{'Blank=All'}
$lex{Check} $lex{'Next Page'}	\n}; # print qq{
	\n

$title

Date }; print qq{$lex{Required}

$lex{'Test Date'} $lex{Error}: $arr{date}

$lex{'No Students Found'}

Season $season - $date

$lex{'Record Exists'}\n}; print qq{ / $firstname $lastname ($studnum) / }; print qq{$lex{'Test Date'}: $tdate / $lex{Skipping}