#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. # Add injury/accident record my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Students' => 'Students', 'Continue' => 'Continue', 'Save' => 'Save', 'Select' => 'Select', 'Check' => 'Check', 'Next Page' => 'Next Page', 'Required' => 'Required', 'Test Date' => 'Test Date', ); use DBI; use CGI; use Cwd; my $self = 'accAdd.pl'; my $q = new CGI; my %arr = $q->Vars; my @time = localtime(time); my $year = $time[5] + 1900; my $month = $time[4] + 1; my $currdate = "$year-$month-$time[3]"; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $self: $@
\n"; die $lex{Error}. "$self: $@\n"; } # Get current dir so know what CSS to display and shift settings. if ( getcwd() !~ /tcgi/ ) { # we are in cgi $tchcss = $css; $tchpage = $homepage; $tchdownloaddir = $downloaddir; $tchwebdownloaddir = $webdownloaddir; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $userid = $ENV{'REMOTE_USER'}; print $q->header( -charset, $charset ); my $dir = getcwd(); # Page Header my $title = qq{Add Injury/Accident Record}; print qq{$doctype\n$title\n}; print qq{\n}; if ( $arr{page} == 2 ) { print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudent(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; enterAccident(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; writeRecords(); } #---------------- sub showStartPage { #---------------- # Get Grades my (%grades, %homerooms); my $sth = $dbh->prepare("select distinct grade from student where grade != '' and grade is not NULL"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $gr = $sth->fetchrow ) { $grades{$gr} = 1; } my @grades = sort { $a <=> $b } keys %grades; # Homerooms my $sth = $dbh->prepare("select distinct homeroom from student where homeroom != '' and homeroom is not NULL"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $hr = $sth->fetchrow ) { $homerooms{$hr} = 1; } my @homerooms = sort { $a <=> $b } keys %homerooms; print qq{
\n}; print qq{\n}; print qq{\n}; # Students - Grade print qq{\n}; print qq{\n}; # Select Homerooms my $sth = $dbh->prepare("select lastname, firstname from staff s, staff_multi sm where s.userid = sm.userid and field_name = 'homeroom' and field_value = ?"); print qq{\n}; print qq{\n}; # Continue print qq{\n}; print qq{
$lex{Select} $lex{Students}
Grade or
Homeroom}; print qq{
Both Blank = All Students
\n
\n}; print qq{
\n}; print qq{\n}; exit; } # end of showStartPage #---------------- sub selectStudent { #---------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # passed grade and homeroom my ($sth, $groupname); if ( $arr{grade} ) { # we're picking a group $sth = $dbh->prepare("select lastname, firstname, studnum from student where grade = ? order by lastname, firstname"); $sth->execute( $arr{grade} ); $groupname = qq{Grade $arr{grade}}; } elsif ( $arr{homeroom} ) { $sth = $dbh->prepare("select lastname, firstname, studnum from student where homeroom = ? order by lastname, firstname"); $sth->execute( $arr{homeroom} ); $groupname = qq{Homeroom $arr{homeroom}}; } else { # everyone $sth = $dbh->prepare("select lastname, firstname, studnum from student order by lastname, firstname"); $sth->execute; $groupname = qq{Entire School}; } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{

Select Student - $groupname

\n}; # Form Header print qq{
\n}; print qq{\n}; print qq{
\n}; print qq{\n}; while ( my ( $lastname, $firstname, $studnum ) = $sth->fetchrow ) { print qq{\n}; } print qq{
}; print qq{ \n}; print qq{$lastname, $firstname ($studnum)
\n}; print qq{
\n}; print qq{
\n}; exit; } # end of selectStudents #---------------- sub enterAccident { #---------------- #print qq{Enter Injury
\n}; #foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # student numbers passed. # Print Form Heading print qq{
\n}; print qq{\n}; # Save print qq{
\n}; # Outer Table print qq{\n}; # Date print qq{\n}; print qq{\n}; print qq{
Date }; print qq{\n}; print qq{\n}; print qq{(yyyy-mm-dd)
\n}; # Get Student Record my $sth = $dbh->prepare("select * from studentall where studnum = ?"); foreach my $studnum ( sort keys %arr ) { # print qq{SN:$studnum
\n}; # Get student name and grade, $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; print qq{

$r{firstname} $r{lastname}

\n}; # Print Table Header and Heading values print qq{\n}; # Injury print qq{}; print qq{\n}; # Time print qq{\n}; # Location print qq{\n}; # Action Taken print qq{\n}; print qq{
Injury
Time}; print qq{ }; print qq{HH:MM
Location}; print qq{
Action Taken}; print qq{
\n}; } # Close Outer Table print qq{
\n}; # Save print qq{
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; exit; } #--------------- sub writeRecords { #--------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Check for any Blanks in date if ( not $arr{date} ) { print qq{

Date $lex{Required}

\n}; print qq{\n}; exit; } # Check for messed up Date Format my $errorflag; if ( $arr{date} =~ m/\// ) { # slashes rather than hyphens $errorflag = 1; } else { my ($y,$m,$d) = split('-', $arr{date}); if ( not $m or ( $m < 1 or $m > 12 )) { $errorflag = 1; } if ( not $d or ( $d < 1 or $d > 31 )) { $errorflag = 1; } } if ( $errorflag ) { # print qq{
Year:$y Month:$m Day:$d
\n}; print qq{

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

\n}; print "\n"; exit; } my $date = $arr{date}; delete $arr{date}; # Done with date print qq{

Date: $date

\n}; # Loop over students and get values into hash for each. my %rec; foreach my $key ( sort keys %arr ) { my ($sn, $field) = split(':', $key ); $rec{$sn}{$field} = $arr{$key}; } # Test # foreach my $studnum ( sort keys %rec ) { # foreach my $field ( keys %{ $rec{$studnum} }) { # print qq{SN:$studnum FLD:$field VAL:$rec{$studnum}{$field}
\n}; # } # } # Get full student record my $sth1 = $dbh->prepare("select * from student where studnum = ?"); # Write the accident record my $sth = $dbh->prepare("insert into accident ( studnum, injury, date, time, author, location, action ) values ( ?, ?, ?, ?, ?, ?, ?) "); foreach my $studnum ( sort keys %rec ) { # Get Student Record $sth1->execute( $studnum); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth1->fetchrow_hashref; my %s = %$ref; my %r = %{ $rec{$studnum} }; # Add Accident Record $sth->execute( $studnum, $r{injury}, $date, $r{time}, $userid, $r{location}, $r{action} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{
Record Added for $s{firstname} $s{lastname} ($studnum)
\n}; } print qq{

[ Add More | View ]\n}; print qq{\n}; exit; }