#!/usr/bin/perl
# Copyright 2001-2025 Leslie Richardson
# Add comments to the goals set. It goes into iep_comment in local database.
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;
my $self = 'specedComment.pl';
# 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 $date = qq{$year-$mon-$mday};
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;
}
# make copy of dbh for local access when storing local values
my $dbhlocal = $dbh;
my $userid = $ENV{'REMOTE_USER'};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
if (not $arr{page} ) {
print "School:$arr{school} Student:$arr{studnum} \n";
}
my $title = qq{Student IEP Comments - 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 { # get term and select students that have this user as a team member.
#----------------
# Student Teams with this userid
my $sth1 = $dbh->prepare("select lastname, firstname from special where studnum = ?");
my $sth = $dbh->prepare("select * from team where schooldbase = ? and userid = ?");
$sth->execute($schooldbase, $userid);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my (%teamsort, %studname);
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
my $studnum = $r{studnum};
# Get student name
$sth1->execute($studnum);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($ln, $fn) = $sth1->fetchrow;
$teamsort{"$ln$fn$studnum"} = $studnum;
$studname{$studnum} = qq{$ln, $fn};
}
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{