#!/usr/bin/perl # Copyright 2001-2023 Leslie Richardson my %lex = ('View Special Needs Students' => 'View Special Needs Students', 'Main' => 'Main', 'Name' => 'Name', 'Id' => 'Id', 'Description' => 'Description', 'Designation' => 'Designation', 'DDPF Level' => 'DDPF Level', 'Des Date' => 'Des Date', 'Medical' => 'Medical', 'Medication' => 'Medication', 'Equipment' => 'Equipment', 'Adaptations' => 'Adaptations', 'History' => 'History', 'View Detailed Report' => 'View Detailed Report', 'Error' => 'Error', 'Bdate' => 'Bdate', 'Grade' => 'Grade', 'School' => 'School', 'Gender' => 'Gender', 'Studnum' => 'Studnum', 'ProvNum' => 'ProvNum', 'Continue' => 'Continue', 'Save' => 'Save', ); use DBI; use CGI; use Cwd; # Set prepath for config file: (/tcgi or cgi/schedule) my $prepath = '../..'; if ( getcwd() =~ /tcgi/){ # we are in tcgi $prepath = '..'; } # Read config variables eval require "$prepath/etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } if ( getcwd() =~ m/tcgi/){ # we are in tcgi $css = $tchcss; $homepage = $tchpage; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $mon++; $wday++; my $currdate = "$dow[$wday], $month[$mon] $mday, $year"; my $schooldbase = $dbase; # from admin.conf my %staffnames; # Get Staff Names my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $sth = $dbh->prepare("select lastname, firstname, userid from staff"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die; } while ( my ($lastname,$firstname, $userid) = $sth->fetchrow ) { $staffnames{$userid} = qq{$firstname $lastname}; } # Get all school terms. my (@terms,%terms); foreach my $track ( keys %g_MTrackTerm ) { foreach my $term ( keys %{ $g_MTrackTerm{$track}} ) { $terms{$term} = 1; } } my @terms = sort keys %terms; # ordered terms. # Disable for associate schools. if ( not $iepdir ) { # associate school only, using local IEP system. print qq{$doctype\n$title\n}; print qq{\n}; print qq{

Global IEP records not available

\n}; print qq{\n}; exit; } # don't move this up... require "$iepdir/cgi/ppp.conf" || die "Cannot read the Special Ed ppp.conf file!"; # Reset these values; if ( getcwd() =~ m/tcgi/){ # we are in tcgi $css = $tchcss; $homepage = $tchpage; } my $userid = $ENV{'REMOTE_USER'}; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $title = qq{Student IEP Progress Report - Add/Edit}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{\n}; print qq{$chartype\n}; print qq{[ $lex{Main} ]\n}; print qq{Userid $userid\n}; print qq{

$title - $schoolname

$currdate

\n}; if ( not $arr{page} ) { showStartPage(); # get term for entry; } elsif ( $arr{page} == 1 ) { delete $arr{page}; getComments(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeComments(); } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{

Please select School Term

\n}; print qq{\n}; print qq{
\n}; print qq{\n}; exit; } #-------------- sub getComments { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $term = $arr{term}; delete $arr{term}; if ( not $term ) { print qq{

$lex{Error}: No Term Selected

\n}; print qq{\n}; exit; } my $sth1 = $dbh->prepare("select id,catnum from evmst_main where studnum = ?"); my $sth2 = $dbh->prepare("select id, strategy from evmst_staff where userid = ? and mainid = ?"); my $sth = $dbh->prepare("select * from special where school = ? order by lastname, firstname"); $sth->execute($schooldbase); if ($DBI::errstr){ print $DBI::errstr; die; } my %goals; # goals{studnum}{mainid} = $strategy my %category; # category{mainid} = catnum (in subject table) my @students; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $studnum = $r{studnum}; push @students, $studnum; # Loop over all evmst_main records for this student and check if # this userid has a responsibility for this group of goals. # Get evmst_main record id and catnum $sth1->execute($studnum); if ($DBI::errstr){ print $DBI::errstr; die; } my ($mainid,$catnum) = $sth1->fetchrow; $category{$mainid} = $catnum; # check if any goals for this staff member $sth2->execute( $userid, $mainid); if ($DBI::errstr){ print $DBI::errstr; die; } my ($staffid,$strategy) = $sth2->fetchrow; if ( $staffid ) { # we have a hit; userid has a goal to report on. $goals{$studnum}{$mainid} = $strategy; } } if ( not %goals ) { print qq{

No Goals Found

\n}; print qq{\n}; exit; } else { # print qq{
A Member of these Student Teams: @students
\n}; } my $sth1 = $dbh->prepare("select * from evmst_goal where mainid = ?"); my $sth2 = $dbh->prepare("select * from evmst_main where catnum = ? and studnum = ?"); my $sth3 = $dbh->prepare("select category from subject where catnum = ?"); my $sth4 = $dbh->prepare("select catnum from evmst_main where studnum = ?"); my $sth5 = $dbh->prepare("select term, mastery from evmst_mastery where goalid = ? order by term"); my $sth6 = $dbh->prepare("select userid,strategy from evmst_staff where mainid = ?"); my $sth7 = $dbh->prepare("select id, comment from evalprogress where goalid = ? and term = ?"); my $sth = $dbh->prepare("select * from special where studnum = ?"); print qq{
\n}; print qq{\n}; foreach my $studnum ( @students ) { # not all will have goals if ( not $goals{$studnum} ) { next; } # skip any without goals for this userid. # Get Student Record $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; # Subtable - left side - student info print qq{

$r{firstname} $r{lastname} ($studnum) Term $term

\n}; my (%categorysort, %category); # Get his/her goal groups. $sth4->execute( $studnum) ; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $catnum = $sth4->fetchrow ) { $sth3->execute( $catnum ) ; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $category = $sth3->fetchrow; $categorysort{"$category$catnum"} = $catnum; $categorydesc{$catnum} = $category; } # Loop through all goals for this student. foreach my $catkey ( sort keys %categorysort ) { my $catnum = $categorysort{$catkey}; $sth2->execute( $catnum, $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $evref = $sth2->fetchrow_hashref; my %evm = %$evref; my $mainid = $evm{id}; print qq{

$categorydesc{$catnum}

\n}; # ($catnum) print qq{\n}; # IF goals{studnum}{mainid} exists, we can display an entry form field # get goals for this goal group (ie. category) $sth1->execute( $mainid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $gref = $sth1->fetchrow_hashref ) { my %gr = %$gref; # goal master. my $goalid = $gr{id}; print qq{\n}; if ( $goals{$studnum}{$mainid} ) { # we have persons responsible print qq{\n}; # Check for an existing record $sth7->execute( $goalid, $term ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($id,$comment) = $sth7->fetchrow; print qq{\n}; } } print qq{
$gr{description}}; # Now load the mastery records for this goal $sth5->execute( $goalid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my ($term, $mastery) = $sth5->fetchrow ) { print qq{Term $term - $mastery
\n}; } print qq{
Staff:}; my @staff; # show the staff responsible $sth6->execute( $mainid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my ($userid, $strategy) = $sth6->fetchrow ) { push @staff, $staffnames{$userid}; } $staff = join(',', @staff); print qq{$staff
}; print qq{Comment: Enlarge box by dragging on lower right handle, }; print qq{if necessary
\n}; if ( $id ) { # we have an existing record print qq{
\n}; } print qq{
\n}; } # end of student loop print qq{\n}; exit; } #end of get Comments #---------------- sub writeComments { # into the evalprogress table (id, goalid, comment, term) #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # insert my $sth = $dbh->prepare("insert into evalprogress (goalid,comment,term) values(?,?,?)"); # update comment my $sth1 = $dbh->prepare("update evalprogress set comment = ? where id = ?"); foreach my $key ( keys %arr ) { if ( not $arr{$key} ) { next; } # skip any blank comments my ($goalid, $term) = split(':', $key ); # print "KEY:$key Goal:$goalid Term:$term Comment:$arr{$key}
\n"; # Check for existing record and update. if ( not $term ) { # we have an existing record, since split above only single value print qq{
Updating Record - $arr{$key}
\n}; $sth1->execute($arr{$key}, $key); # key is ID here if ($DBI::errstr){ print $DBI::errstr; die; } } else { # we are adding a new record print qq{
Adding Record - $arr{$key}
\n}; $sth->execute($goalid, $arr{$key}, $term); if ($DBI::errstr){ print $DBI::errstr; die; } } } print qq{

Records Added/Updated

\n}; print qq{[ $lex{Main} |\n}; print qq{Add/Edit More ]\n}; exit; }