#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Add' => 'Add', 'Student' => 'Student', 'Continue' => 'Continue', 'Date' => 'Date', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Select' => 'Select', 'Students' => 'Students', 'Added' => 'Added', 'Or' => 'Or', 'Not Selected' => 'Not Selected', 'Comment' => 'Comment', 'Edit' => 'Edit', 'Discipline' => 'Discipline', ); 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. } eval require "$configpath/etc/admin.conf"; if ( $@ ) { print qq{$lex{Error}: $@
\n}; die qq{$lex{Error}: $@\n}; } my $self = 'discComment.pl'; my $q = new CGI; my %arr = $q->Vars; my @time = localtime(time); my $year = $time[5] + 1900; my $month = $time[4] + 1; my $day = $time[3]; if ( length $month == 1 ) { $month = '0'. $month; } if ( length $day == 1 ) { $day = '0'. $day; } my ($hour,$minute) = ($time[2], $time[1]); if ( length $hour == 1 ) { $hour = '0'. $hour; } if ( length $minute == 1 ) { $minute = '0'. $minute; } my $currdate = "$year-$month-$day"; my $currtime = "$hour:$minute"; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Get current dir so know what CSS to display and shift to teacher settings. if ( getcwd() =~ /tcgi/ ) { # we are in tcgi $css = $tchcss; $homepage = $tchpage; $schpage = $tchpage; } print $q->header( -charset, $charset ); my $userid = $ENV{'REMOTE_USER'}; # Page Header my $title = qq{$lex{Add}/$lex{Edit} $lex{Discipline} $lex{Comment}}; 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}; if ( not $teachermode ) { print qq{| $lex{Discipline} \n}; } print qq{] User:$userid

\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; selectInfraction(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; enterComments(); } elsif ( $arr{page} == 4 ) { delete $arr{page}; writeComments(); } #---------------- sub showStartPage { #---------------- my (@homerooms, @grades ); # Get Homerooms 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; } @homerooms = sort {$a <=> $b} @homerooms; # Get Grades $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; print qq{

\n}; print qq{\n}; print qq{\n}; # Heading print qq{\n}; # Select Grade print qq{\n}; # OR print qq{\n}; # Select Homeroom print qq{\n}; # Submit print qq{\n}; print qq{\n}; print qq{

$lex{Select} $lex{Students}
$lex{Grade} }; foreach my $gr ( @grades ) { print qq{$gr }; } print qq{
$lex{Or}
$lex{Homeroom} }; foreach my $hr ( @homerooms ) { print qq{$hr \n}; } print qq{

\n

\n}; print qq{

\n}; print qq{\n}; exit; } # end of showStartPage #----------------- sub selectStudents { #----------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my (%grades, %homerooms); my $select; foreach my $key ( keys %arr ) { my ($type,$val) = split(':', $key); if ($type eq 'grade' ) { $grades{$val} = 1; }; if ($type eq 'hroom' ) { $homerooms{$val} = 1; }; } # Test # foreach my $gr ( sort keys %grades ) { print qq{Grade:$gr
\n}; } # foreach my $hr ( sort keys %homerooms ) { print qq{Homeroom:$hr
\n}; } if ( not %grades and not %homerooms ) { print qq{

$lex{Students} $lex{'Not Selected'}

\n}; print qq{\n}; exit; } my (%students, %sort); if ( %grades ) { my $sth = $dbh->prepare("select * from student where grade = ?"); foreach my $gr ( keys %grades ) { $sth->execute( $gr ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my $studnum = $ref->{studnum}; $students{$studnum} = $ref; $sort{"$ref->{lastname}$ref->{firstname}$studnum"} = $studnum; } } } if ( %homerooms ) { my $sth = $dbh->prepare("select * from student where homeroom = ?"); foreach my $hr ( keys %homerooms ) { $sth->execute( $hr ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my $studnum = $ref->{studnum}; $students{$studnum} = $ref; $sort{"$ref->{lastname}$ref->{firstname}$studnum"} = $studnum; } } } # print qq{

$lex{Date} $arr{tdate}

\n}; # Print Form Heading print qq{

\n}; print qq{\n}; my $first = 1; my $sth1 = $dbh->prepare("select count(*) from disc_event e, disc_ident i where e.id = i.eventid and i.studnum = ?"); # Student Loop foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; my %r = %{ $students{$studnum}}; # Get Event Count $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ecount = $sth1->fetchrow; # disc event count if ( not $ecount ) { next; } # skip those without an event if ( $first ) { print qq{

\n}; print qq{\n}; print qq{}; print qq{\n}; $first = 0; } print qq{}; print qq{\n}; } print qq{

$lex{Student}	$lex{Grade}	$lex{Homeroom}	#Events
}; print qq{$r{lastname}, $r{firstname}	$r{grade}	$r{homeroom}	$ecount

\n}; print qq{

\n}; exit; } # end of selectStudent #------------------- sub selectInfraction { #------------------- # print "

Enter Comment

\n"; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } if ( not %arr ) { print qq{

$lex{Error}: No Student Selection

\n}; print qq{\n}; exit; } my (%sort, %student); # Get events for student. my $sth1 = $dbh->prepare("select e.* from disc_event as e, disc_ident as i where e.id = i.eventid and i.studnum = ? order by e.date desc"); my $sth = $dbh->prepare("select * from student where studnum = ?"); foreach my $studnum (keys %arr ) { $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; $student{$studnum} = $ref; my %r = %{ $ref }; $sort{"$r{lastname}$r{firstname}$studnum"} = $studnum; } # Print Form Heading print qq{

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

\n}; # Student Loop foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; my %r = %{ $student{$studnum}}; print qq{

}; print qq{$r{firstname} $r{lastname} ($studnum)

\n}; # Table start print qq{\n}; print qq{\n}; # List all the events for the student $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $eref = $sth1->fetchrow_hashref ) { my %e = %$eref; # event records, newest first; print qq{}; print qq{\n}; } print qq{

Select Events	Date	Description
}; print qq{ }; print qq{$e{infraction}	$e{date}	$e{description}

\n}; # end of event loop } # end of student loop print qq{

\n}; print qq{

\n}; exit; } # end of select Infraction #--------------- sub enterComments { #--------------- # print "Enter Comment
\n"; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # values are passed as eventid:studnum key pairs, value is just 1; my $mode = 'add'; my $id = $arr{id}; if ( $arr{eventid} ) { # have a passed value from discView my $combined = qq{$arr{eventid}:$arr{studnum}}; %arr = (); # empty %arr $arr{$combined} = 1; $mode = 'edit'; } # IF doing edit/mode # print qq{
\n}; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Student Name my $sth = $dbh->prepare("select lastname, firstname from student where studnum = ?"); # Get Event my $sth1 = $dbh->prepare("select * from disc_event where id = ?"); # Edit Mode # Get comment for this student, this event by record id my $sth2 = $dbh->prepare("select comment, author from disc_comment where id = ?"); # Get Demerit,detention,suspension for this student,event (unique) # my $sth3 = $dbh->prepare("select demerit from disc_ident # where eventid = ? and studnum = ?"); my $sth3 = $dbh->prepare("select demerit, detention, suspension from disc_ident where eventid = ? and studnum = ?"); print qq{

\n}; print qq{\n}; my $first = 1; foreach my $key ( keys %arr ) { my ($eventid, $studnum) = split(':',$key); # Get student name $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($ln,$fn) = $sth->fetchrow; # Get Event record $sth1->execute( $eventid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth1->fetchrow_hashref; my %e = %$ref; # Load the demerit,detention,suspension if any. There can only be one in the ident table. $sth3->execute( $eventid,$studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($demerit,$detention,$suspension) = $sth3->fetchrow; if ( $mode eq 'edit' ) { # we also have id defined. # Load the Comment, by id. since there may be more than one by student,event $sth2->execute( $id ); #$eventid,$studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } ($comment,$author) = $sth2->fetchrow; # Check if userid is the author of this record. if ( $teachermode and ($author ne $userid) ) { # edit not allowed print qq{

The author is userid $author. You are userid $userid.}; print qq{

}; print qq{Edit not allowed

\n}; print qq{

}; print qq{\n}; exit; } } # Table start print qq{\n}; # print qq{\n}; print qq{\n}; $first = 0; print qq{\n}; print qq{\n}; # show demerit only if admin site, or userid is same as event author. if ( not $teachermode or ($userid eq $e{author}) ) { print qq{\n}; } print qq{\n}; print qq{

Student / Infraction / Date
$fn $ln ($studnum)
}; print qq{$e{infraction} / $e{date} }; if ( $author ) { print qq{/ Author $author}; } print qq{
Event Description: $e{description}
Demerit \n}; print qq{ \| Detention \n}; print qq{ \| Suspension \n}; print qq{
Add/Edit Comment }; print qq{$comment}; if ( $id ) { # an existing comment record to be updated. print qq{\n}; } print qq{

\n}; } if ( $first ) { print qq{

No Records Found

\n}; } print qq{

}; print qq{

\n}; print qq{\n}; print qq{\n}; exit; } #---------------- sub writeComments { #---------------- # print "Write Comment
\n"; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # exit; # Normal eventid:studnum pairs; demerits,etc will have a trailing D/T/S as eventid:student:D|T|S my $id; if ( $arr{id} ) { $id = $arr{id}; delete $arr{id}; } # Insert Comment my $sth = $dbh->prepare("insert into disc_comment (eventid, studnum, author, comment) values(?,?,?,?)"); # Get Event my $sth1 = $dbh->prepare("select * from disc_event where id = ?"); # Get Student Name my $sth2 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); # Update an existing comment by id my $sth3 = $dbh->prepare("update disc_comment set comment = ? where id = ?"); my %sigilmap = ( 'D' => 'demerit', 'T' => 'detention', 'S' => 'suspension' ); foreach my $key ( keys %arr ) { my ($eventid,$studnum,$sigil) = split(':',$key); # D is demerit, S is supension, T is detention # Get student name. $sth2->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($ln,$fn) = $sth2->fetchrow; if ( $sigil ) { # a demerit,etc. to update my $field = $sigilmap{ $sigil }; # Update Demerit, etc. by studnum, eventid my $sth4 = $dbh->prepare("update disc_ident set $field = ? where studnum = ? and eventid = ?"); my $val = $arr{$key}; $sth4->execute( $val, $studnum, $eventid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{

}; my $fld = ucfirst $field; print qq{$fld Updated to $val for $fn $ln ($studnum)

\n}; print qq{

\n}; next; } # Get Event Record $sth1->execute( $eventid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth1->fetchrow_hashref; my %e = %$ref; # Edit or Insert Comment Record if ( $id ) { # we are doing an edit to update record. # print qq{Doing Edit ID:$id VAL:$arr{$key}
\n}; $sth3->execute( $arr{$key}, $id ); } else { # normal insert $sth->execute( $eventid, $studnum, $userid, $arr{$key} ); } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{

}; print qq{$fn $ln ($studnum) }; print qq{Comment $lex{Added}/Updated to }; # print qq{$e{infraction}

\n}; print qq{$arr{$key}\n}; print qq{

\n}; } # students loop if ( $id ) { # we are doing an edit in a tab, so close the tab # Close Tab print qq{

}; } else { # just a normal insert print qq{

\n}; } print qq{\n}; exit; } # end of writeComments

$title

$lex{Students} $lex{'Not Selected'}

$lex{Error}: No Student Selection

The author is userid $author. You are userid $userid.}; print qq{}; print qq{Edit not allowed

The author is userid $author. You are userid $userid.}; print qq{

}; print qq{Edit not allowed