#!/usr/bin/perl # Copyright 2001-2018 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. my %lex = ('Discipline Records' => 'Discipline Records', 'View' => 'View', 'Main' => 'Main', 'Discipline' => 'Discipline', 'Description' => 'Description', 'Error' => 'Error', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Continue' => 'Continue', 'Select by' => 'Select by', 'No Selection' => 'No Selection', 'Student' => 'Student', 'Count' => 'Count', 'OR' => 'OR', 'Author' => 'Author', 'Date' => 'Date', 'Not Found' => 'Not Found', 'Students' => 'Students', 'Location' => 'Location', 'Infraction' => 'Infraction', 'Comment' => 'Comment', 'Actions' => 'Actions', ); use DBI; use CGI; use Cwd; # Get current dir so know what path for config files. my $configpath; my $teachermode; if ( getcwd() =~ /tcgi/ ){ # we are in tcgi $teachermode = 1; $configpath = '..'; # go back one to get to etc. } else { $configpath = '../..'; # go back two to get to etc. } # only load passwords and users eval require "$configpath/etc/admin.conf.root"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Load Configuration Variables; my $sth = $dbh->prepare("select id, datavalue from conf_system where filename = 'admin'"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ($id, $datavalue) = $sth->fetchrow ) { eval $datavalue; if ( $@ ) { print "$lex{Error}: $@
\n"; die "$lex{Error}: $@\n"; } } # Load global user and password if ( not -e "$globdir/global.conf" ) { print qq{Cannot read the global.conf file!\n}; print qq{\n}; exit; } eval require "$globdir/global.conf"; if ( $@ ) { print qq{$lex{Error} $@
\n}; die $lex{Error}. " $@
\n"; } if ( $oldbase{$dbase} ) { # We are an onion lake school %dbase = %oldbase; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; # Teachermode if ( $teachermode ) { # running on teacher site $css = $tchcss; $homepage = $tchpage; $downloaddir = $tchdownloaddir; $webdownloaddir = $tchwebdownloaddir; } my $title = qq{$lex{View} $lex{'Discipline Records'}}; print qq{$doctype\n$title\n}; print qq{\n}; if ( $arr{page} == 3 or $arr{page} == 7) { print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n\n}; print qq{[ $lex{Main} \n}; if ( not $teachermode ) { print qq{| SSP \n}; } print qq{]\n

$title

\n}; if ( not $arr{page} ) { selectSchool(); } elsif ( $arr{page} == 1) { delete $arr{page}; selectGroup(); } elsif ( $arr{page} == 2) { delete $arr{page}; showRecords(); } #----------------- sub selectStudents { #----------------- my $studenttable = 'student'; if ( $arr{showwithdrawn} ) { $studenttable = 'studentall'; } my $skipblanks = $arr{skipblanks}; delete $arr{skipblanks}; my ($select, $selectval, $groupname); if ( $arr{grade} ) { $select = "where grade = ?"; $selectval = $arr{grade}; $groupname = $lex{Grade}; } elsif ( $arr{homeroom} ) { $select = "where homeroom = ?"; $selectval = $arr{homeroom}; $groupname = $lex{Homeroom}; } else { print qq{

$lex{'No Selection'}

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

$groupname $selectval

\n}; # Loop through all students in this grade/homeroom my $sth = $dbh->prepare("select lastname, firstname, studnum from $studenttable $select order by lastname, firstname"); $sth->execute( $selectval ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } # Check for discipline events my $sth1 = $dbh->prepare("select count(*) from disc_ident where studnum = ?"); # Check for Withdrawn my $sth2 = $dbh->prepare("select count(*) from studentwd where studnum = ?"); my $first = 1; # Student Loop while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; # Check for discipline records $sth1->execute( $r{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $disccount = $sth1->fetchrow; if ( not $disccount and $skipblanks ) { next; } if ( $first ) { # Start Form print qq{

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

\n}; # Start Table print qq{\n}; print qq{\n}; print qq{\n}; $first = 0; } my $wd; if ( $arr{showwithdrawn} ) { # check if withdrawn $sth2->execute( $r{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } $wd = $sth2->fetchrow; } print qq{}; if ( $disccount ) { print qq{\n}; } else { print qq{\n}; } my $name; if ( $wd ) { $name = qq{$r{lastname}, $r{firstname}}; } else { $name = qq{$r{lastname}, $r{firstname}}; } print qq{\n}; } if ( $first ) { # no Students print qq{

$lex{Students} $lex{'Not Found'}

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

Red = Withdrawn
	$lex{Student}	$lex{Discipline} $lex{Count}
		$name ($r{studnum})	$disccount

\n}; print qq{

\n}; exit; } #---------------- sub selectSchool { #---------------- if (not @g_FeederSchools ) { print qq{

No Feeder Schools Found

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

Select Feeder School

\n}; print qq{\n}; print qq{\n}; exit; } #--------------- sub selectGroup { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # passed db to view. print qq{

Feeder School - $dbase{$arr{db}}

\n}; my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$arr{db}"; my $dbh = DBI->connect($dsn,$guser,$gpassword); my (@grades, @schoolyears ); # Get Grades $sth = $dbh->prepare("select distinct grade from studentall 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; print qq{\n}; exit; } #-------------- sub showRecords { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $studtable = 'studentwd'; if ( $arr{showcurrent} ) { $studtable = 'studentall'; } my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$arr{db}"; my $dbh = DBI->connect($dsn,$guser,$gpassword); # Get students in that grade my @students; my $sth = $dbh->prepare("select studnum from $studtable where grade = ? order by lastname, firstname"); $sth->execute( $arr{grade} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $studnum = $sth->fetchrow ) { push @students, $studnum; } my $sth = $dbh->prepare("select i.*,e.* from disc_ident i, disc_event e where studnum = ? and e.id = i.eventid order by e.date desc"); my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); my $sth2 = $dbh->prepare("select lastname, firstname from staff where userid = ?"); my $sth3 = $dbh->prepare("select * from disc_action where studnum = ? and eventid = ?"); my $sth4 = $dbh->prepare("select studnum from disc_ident where eventid = ?"); # find other students # my @students = keys %arr; # my $students = join(',',@students); # for passing to next sub foreach my $studnum ( @students ) { # Get the Name $sth1->execute($studnum); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; print qq{

$firstname $lastname ($studnum)

\n}; # Get the Discipline Records for this student $sth->execute($studnum); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; if ( $first ) { # Heading print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; $first = 0; } if ( $teachermode and $r{private} ) { next; } # skip any private recs in teachermode # remove the seconds from time. my $time; if ( $r{time} ) { my @time = split(':', $r{time}); $time = qq{$time[0]:$time[1]}; } # get author name. my $author; $sth2->execute( $r{author} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($lname, $fname ) = $sth2->fetchrow; $author = "$fname $lname"; print qq{\n}; # Infraction and Description of Event print qq{\n}; # Ident Comment field print qq{\n}; # All Students (involved with this event) my @allstudents; $sth4->execute($r{eventid} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{\n}; } if ( $first ) { print qq{

No Records Found

\n}; } else { print qq{

$lex{Date} $lex{Location} $lex{Author}	$lex{Infraction} - $lex{Description}	$lex{Comment}	$lex{Students} / $lex{Actions}
$r{date} $time $r{location} \n};; print qq{$author	}; print qq{$r{infraction} $r{description}\n}; print qq{	$r{comment}	\n}; while ( my $snum = $sth4->fetchrow ) { # Get Student Name $sth1->execute( $snum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($ln, $fn ) = $sth1->fetchrow; print qq{$ln, $fn - }; # Loop through all actions for this student for this event $sth3->execute( $snum, $r{eventid} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my $aref = $sth3->fetchrow_hashref ) { my %a = %$aref; print qq{ $a{action} }; $first = 0; } # end of action loop if ( $first ) { print qq{No Actions\n}; } print qq{ \n}; } # end of this student loop print qq{

\n}; } } # end of all students loop print qq{\n}; exit; }

$lex{'Select by'} $lex{Grade}
$lex{OR}
$lex{'Select by'} $lex{Homeroom}
Show Current Students
Skip Students without Records