#!/usr/bin/perl # Copyright 2001-2021 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. # Function: Display discipline info by date range and by type. # Accept: startdate, enddate, type, infrac my %lex = ('Student Infractions' => 'Student Infractions', 'by Date' => 'by Date', 'Main' => 'Main', 'Discipline' => 'Discipline', 'Start Date' => 'Start Date', 'End Date' => 'End Date', 'School Days' => 'School Days', 'Category' => 'Category', 'Class' => 'Class', 'Grade' => 'Grade', 'Totals' => 'Totals', 'Infraction' => 'Infraction', 'Student' => 'Student', 'Count' => 'Count', 'Percent' => 'Percent', 'PerDay' => 'PerDay', 'View Report' => 'View Report', 'Type' => 'Type', 'No Records Found' => 'No Records Found', 'Homeroom' => 'Homeroom', 'Error' => 'Error', 'Statistical' => 'Statistical', 'Report' => 'Report', 'Demerits' => 'Demerits', 'Entry Error' => 'Entry Error', 'All' => 'All', 'Last,First/Last/First/Initials/Studnum', 'Last,First/Last/First/Initials/Studnum', 'Search' => 'Search', ); my $self = 'rptDisc3.pl'; use DBI; use CGI; use Number::Format qw{:all}; 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; my $currdate; my @time = localtime(time); my $year = $time[5] + 1900; my $month = $time[4] + 1; if (length($month) == 1 ) { $month = '0'. $month; } if (length($time[3]) == 1 ) { $time[3] = '0'. $time[3]; } $currdate = "$year-$month-$time[3]"; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; my $title = "Individual $lex{'Student Infractions'}"; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Discipline} ]\n}; #D# = Demerits\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; showReport(); } #------------- sub showReport { #------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # startdate, enddate, student. my $startdate = $r{startdate}; my $enddate = $r{enddate}; my $student = $arr{student}; my $sth; my $fields = 'lastname,firstname,studnum'; # Setup the Search if ($student =~ /\d+/) { # we have a student number $studentnumber = $student; $sth = $dbh->prepare("select $fields from studentall where studnum = ?"); $sth->execute( $student ); } else { # we have words hopefully with a comma my ( $lastname,$firstname ) = split(',', $student); # $firstname =~ s/^\s*//; # don't strip spaces from names # $lastname =~ s/^\s*//; if ( $lastname and $firstname ){ # both entered. $sth = $dbh->prepare("select $fields from studentall where lastname = ? and firstname = ?"); $sth->execute( $lastname, $firstname ); } elsif ($lastname and not $firstname){ # only lastname (no comma) if ( length($lastname) == 2 ){ # search by initials: fi, li. my $fi = substr($lastname,0,1). '%'; my $li = substr($lastname,1,1). '%'; $sth = $dbh->prepare("select $fields from studentall where lastname $sql{like} ? and firstname $sql{like} ?"); $sth->execute( $li, $fi ); } else { # a single value; could be lastname or firstname # print "Lastname $lastname
\n"; $sth = $dbh->prepare("select $fields from studentall where lastname = ? or firstname = ? order by lastname, firstname"); $sth->execute( $lastname, $lastname ); } } else { # print an error.... print qq{

$lex{'No Student(s) Found'}

\n}; print qq{\n}; exit; } } # Last Else if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } # Get the student ident records my $sth1 = $dbh->prepare("select * from disc_event where id = ?"); my $sth2 = $dbh->prepare("select * from disc_action where eventid = ? and studnum = ?"); my $sth3 = $dbh->prepare("select * from disc_ident where studnum = ? order by id"); while ( my ($lastname,$firstname, $studnum ) = $sth->fetchrow ) { # loop over students found # Get Ident Records $sth3->execute( $studnum ); if ($DBI::errstr) {print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my $ref = $sth3->fetchrow_hashref ) { # ident record if ( $first ) { print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; $first = 0; } my %s = %$ref; my $eventid = $s{eventid}; # Get Matching event record, only one. $sth1->execute( $eventid ); if ($DBI::errstr) {print $DBI::errstr; die $DBI::errstr; } my $eref = $sth1->fetchrow_hashref; my %e = %$eref; # Get Matching Action record, may be several. $sth2->execute( $eventid, $studnum ); if ($DBI::errstr) {print $DBI::errstr; die $DBI::errstr; } my %actions; while ( my $aref = $sth2->fetchrow ) { # print "Action:$aref
\n"; $actions{ $aref->{id} } = $aref; } # Display results in event, ident, and actions print qq{\n}; print qq{\n}; print qq{\n}; } # end of event loop print qq{

}; print qq{$firstname $lastname ($studnum)
Infraction/Description	Comment/Demerit	Actions
}; print qq{$e{date} $e{infraction} - $e{description} $e{author}	$s{comment}}; if ( $s{demerit} ) { print qq{ $s{demerit} Demerit(s)}; } print qq{	}; foreach my $id ( sort keys %actions ) { my %r = %{ $actions{$id}}; print qq{$r{action} - $r{comment} \n}; } print qq{

\n}; } } # end of showReport #---------------- sub showStartPage { #---------------- # Setup Calendar print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{

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

Student Search
$lex{'Last,First/Last/First/Initials/Studnum'}
$lex{'Start Date'}	\n}; print qq{}; print qq{
$lex{'End Date'}	\n}; print qq{}; print qq{

\n}; print qq{

\n}; print qq{\n}; print qq{\n}; exit; } #------------- sub formatDate { #------------- my $date = $_[0]; my ($y,$m,$d) = split('-', $date); my $month = $s_month[$m]; $date = qq{$month $d, $y}; return $date; } #------------- sub formatTime { #------------- my $time = $_[0]; my ($h,$m,$s) = split(':', $time); my $suffix = 'AM'; if ( $h > 11 ) { $suffix = 'PM'; } if ( $h > 12 ) { $h = $h - 12; } $time = qq{$h:$m $suffix}; return $time; }