#!/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', ); 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 # 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 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); # print qq{DB:$dbase School:$schooldbase
\n}; my $sortorder = "lastname, firstname"; $sth = $dbh->prepare("select * from special where school = ? order by $sortorder"); $sth->execute($schooldbase); if ($DBI::errstr){ print $DBI::errstr; die; } my $sth1 = $dbh->prepare("select count(*) from team where studnum = ? and userid = ?"); my $sth2 = $dbh->prepare("select * from special where studnum = ?"); my $title = $lex{'View Special Needs Students'}; 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}; # check students' team for this userid.... my @students; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $studnum = $r{studnum}; $sth1->execute( $studnum, $userid ); if ($DBI::errstr){ print $DBI::errstr; die; } my $count = $sth1->fetchrow; if ( $count ) { push @students, $studnum; } } print qq{

$title - $schoolname

$currdate

\n}; if ( not @students ) { print qq{

Access Denied

\n}; print qq{\n}; exit; } else { # print qq{
A Member of these Student Teams: @students
\n}; } print qq{\n}; print qq{\n}; foreach my $studnum ( @students ) { $sth2->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die; } my $ref = $sth2->fetchrow_hashref; my %r = %$ref; my $school = $r{school}; print qq{
$lex{Name}/$lex{Id}$lex{Description}
\n\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$r{firstname} $r{lastname}
$lex{Bdate}:$r{birthdate}
$lex{Grade}:$r{grade}
$lex{Gender}:$r{sex}
$lex{Studnum}:$r{studnum}
$lex{ProvNum}:$r{provnum}
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{
\n}; print qq{		\n}; print qq{\n\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{ }; print qq{\n}; print qq{ }; print qq{\n}; print qq{ }; print qq{\n}; print qq{ }; print qq{\n}; print qq{
$lex{Designation}$r{designation}
$lex{Medical}$r{medical}
$lex{Medication} }; print qq{$r{medication}
$lex{Equipment} }; print qq{$r{equipment}
$lex{Adaptations} }; print qq{$r{adapt}
$lex{History}$r{history}
Strengths$r{strengths}
Challenges$r{challenges}
Assessments$r{assessments}
Additional$r{Additional}
\n}; } print qq{
\n};