#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. # View Injury/Accient records in accident table my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Continue' => 'Continue', 'Select' => 'Select', 'Student' => 'Student', 'Homeroom' => 'Homeroom', 'Grade' => 'Grade', 'Start Date' => 'Start Date', 'End Date' => 'End Date', ); use DBI; use CGI; use Cwd; my $self = 'accView.pl'; my $editScript = './accEdit.pl'; 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 $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); # Page Header my $title = qq{View Injury/Accident Records}; print qq{$doctype\n$title\n}; print qq{\n}; if ( not $arr{page} ) { # calendar popup. 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}; showAccidents(); } #---------- sub fmtDate { #---------- my ( $year, $mon, $day ) = split /-/, shift; return "$year-$s_month[$mon]-$day"; } #---------------- sub showStartPage { #---------------- my @tim = localtime(time); my $year = $tim[5] + 1900; my $month = $tim[4] + 1; my $currdate = "$year-$month-$tim[3]"; # Find by Student Group my (@homerooms, @grades ); my $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != ''"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $hr = $sth->fetchrow ) { push @homerooms, $hr; } $sth = $dbh->prepare("select distinct grade from student where grade is not NULL and grade != ''"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $gr = $sth->fetchrow ) { push @grades, $gr; } @grades = sort {$a <=> $b} @grades; # Form start print qq{

\n}; print qq{\n}; print qq{\n}; # Select Grade print qq{\n}; print qq{\n}; print qq{\n}; # Select Homeroom and Teacher 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}; # Start / End Dates print qq{\n}; print qq{\n}; # Continue print qq{\n}; print qq{

$lex{Select} $lex{Grade}
OR
$lex{Select} $lex{Homeroom}
$lex{'Start Date'}	}; print qq{\n}; print qq{
$lex{'End Date'}	}; print qq{
	\n

\n}; print qq{\n}; my $sth1 = $dbh->prepare("select * from studentall where studnum = ?"); # Find existing Records for this School Year my $sth = $dbh->prepare("select * from accident where to_days(date) > to_days('$schoolstart') and to_days(date) < to_days('$schoolend') order by date"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{

Existing Records - this School Year

\n}; my $first = 1; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $studnum = $r{studnum}; if ( $first ) { print qq{}; print qq{}; print qq{}; print qq{\n}; $first = 0; } # Get student name $sth1->execute($studnum); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $sref = $sth1->fetchrow_hashref; my %s = %$sref; my $fdate = fmtDate($r{date}); print qq{}; print qq{}; print qq{}; print qq{\n}; print qq{\n}; } if ( not $first ) { # close table print qq{

Student	Injury/ Accident	Action Taken	Date/Time	Location	New Tab
$s{lastname}, $s{firstname} Gr:$s{grade} Hr:$s{homeroom}	$r{injury}	$r{action}	$fdate $r{time}	$r{location}	\n}; print qq{\n}; print qq{

\n}; } print qq{\n}; exit; } # end of showStartPage #--------------- sub showAccidents { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # passed start and end dates, homeroom and grade # Loop through all students in that grade / homeroom and check for any existing injury records. # Find injury records for a student in this date range. my $sth1 = $dbh->prepare("select * from accident where studnum = ? and to_days(date) >= to_days( '$arr{startdate}' ) and to_days(date) <= to_days( '$arr{enddate}')"); # Grade or Homeroom my ($select, $value, $heading); $heading = 'All Students'; if ( $arr{grade} ) { $select = 'where grade = ?'; $value = $arr{grade}; $heading = qq{Grade $arr{grade}}; } elsif ( $arr{homeroom} ) { $select = 'where homeroom = ?'; $value = $arr{homeroom}; $heading = qq{Homeroom $arr{homerom}}; } my $first = 1; # Get Name, Student Number my $sth = $dbh->prepare("select * from student $select order by lastname, firstname"); $sth->execute($value); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $sref = $sth->fetchrow_hashref ) { my %s = %$sref; my $studnum = $s{studnum}; # Find any injury/accident records for this student. $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while (my $ref = $sth1->fetchrow_hashref ) { my %r = %$ref; if ( $first ) { # start the table. print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; $first = 0; } print qq{\n}; print qq{}; # Edit print qq{\n}; print qq{\n}; } } if ( not $first ) { print qq{

$heading
$lex{Student}	Date/Time	Injury Accident	Action Taken	New Tab
$s{firstname} $s{lastname}	$r{date} $r{time}	$r{injury}	$r{action}	\n}; print qq{\n}; print qq{

\n}; } else { print qq{

No Records Found

\n}; } print qq{

[ View Others ]\n}; print qq{\n}; exit; } # end of showAccident