#!/usr/bin/perl # Copyright 2001-2025 Leslie Richardson # This file is part of Open Admin for Schools. # Add injury/accident record my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Continue' => 'Continue', 'Save' => 'Save', 'Select' => 'Select', ); use DBI; use CGI; use Cwd; my $self = 'landAdd.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 instead $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 Land Based Education Record}; print qq{$doctype\n$title\n}; print qq{\n}; if ( not $arr{page} ) { 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}; writeRecord(); } #---------------- sub showStartPage { #---------------- # Start Form print qq{
\n}; print qq{\n}; # Start Table print qq{\n}; # Date print qq{\n}; print qq{\n}; # Grades print qq{\n}; print qq{\n}; # Hours print qq{\n}; print qq{\n}; # Description print qq{\n}; print qq{\n}; # Continue print qq{
Date}; print qq{\n}; print qq{
Grades involved
# Hours for this date
Description}; print qq{\n}; print qq{
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage =head #--------------- sub enterLBEvent { #--------------- print qq{Enter LBEvent
\n}; foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } exit; # 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; } # end of LBEvent =cut #-------------- sub writeRecord { #-------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Check for any Blanks in any fields my $errorflag; foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { print qq{
Missing value for $key
\n}; $errorflag = 1; } } if ( $errorflag ) { print qq{\n}; exit; } # Check for messed up Date Format 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{

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

\n}; print qq{\n}; exit; } print qq{

Date: $arr{date}

\n}; # Write the landedu record my $sth = $dbh->prepare("insert into landedu ( description, date, entry, grades, hours, author ) values ( ?, ?, now(), ?, ?, ?) "); # Add Land Edu Record $sth->execute( $arr{description}, $arr{date}, $arr{grades}, $arr{hours}, $userid); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{
Record Added for $userid - $arr{date}
\n}; print qq{

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