#!/usr/bin/perl # Copyright 2001-2019 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Student Report' => 'Student Report', 'Responsibility' => 'Responsibility', 'Strategies, Resources, Activities' => 'Strategies, Resources, Activities', 'Objectives' => 'Objectives', 'Student' => 'Student', 'Student Team' => 'Student Team', 'Name' => 'Name', 'Position' => 'Position', 'Assessments' => 'Assessments', 'Dates' => 'Dates', 'Category' => 'Category', 'Comments' => 'Comments', 'Back to Special Needs Students' => 'Back to Special Needs Students', 'Student IEP' => 'Student IEP', 'Identification' => 'Identification', 'Name' => 'Name', 'Gender' => 'Gender', 'Birthdate' => 'Birthdate', 'Grade' => 'Grade', 'Designation Date' => 'Designation Date', 'DDPF Level' => 'DDPF Level', 'Designation' => 'Designation', 'Medical(other)' => 'Medical(other)', 'School' => 'School', 'Parent/Guardian' => 'Parent/Guardian', 'Address' => 'Address', 'Home Phone' => 'Home Phone', 'Emergency Contact' => 'Emergency Contact', 'Error' => 'Error', ); 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() =~ /tcgi/){ # we are in tcgi $css = $tchcss; $homepage = $tchpage; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; #foreach my $key ( sort keys %arr ) { # print qq{K:$key VAL:$arr{$key}
\n}; #} # These MUST be passed in order to find student. my $studnum = $arr{studnum}; my $database = $arr{school}; #my $schoolname = $dbase{$database}; # from global.conf dbase hash. # print "Studnum:$studnum
\n"; # Print Page Header my $title = $lex{'Student IEP'}; print qq{$doctype\n$title\n}; print qq{$chartype\n}; print qq{\n}; my $dsn = "DBI:mysql:$database"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Load Student Info from the local school database. my $sth = $dbh->prepare("select * from student where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $sref = $sth->fetchrow_hashref; # my %sr = %$sref; # Set Current Date my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $mon++; $wday++; $currdate = "$dow[$wday], $month[$mon] $mday, $year"; eval require "$iepdir/cgi/ppp.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # Loads userid, password, dbase for IEP db. # Now get handle to IEP database. my $dsn = "DBI:mysql:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Get Category name (ie subject area for these goals) my %catdesc; my $sth = $dbh->prepare("select distinct category, catnum from subject"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my ($category, $catnum) = $sth->fetchrow ) { if ( not $category or not $catnum ) { print "Missing Category: $category - $catnum
\n"; } $catdesc{$catnum} = $category; } # Look for student my %sp; my $sth = $dbh->prepare("select * from special where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr) { print "Error: $DBI::errstr"; die $DBI::errstr; } my $spref = $sth->fetchrow_hashref; %sp = %$spref; # foreach my $key ( sort keys %sp ) { print qq{K:$key Val:$sp{$key}
\n}; } $studname = "$sp{firstname} $sp{lastname}"; $shortschool = $database; # Print the heading section print qq{
[ $lex{'Back to Special Needs Students'} ] $currdate
\n}; print qq{

$title

\n}; print qq{
$studname
\n}; print qq{

$lex{Identification}

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{
$lex{Name}$studname
$lex{Gender}$sp{sex}
$lex{Birthdate}$sp{birthdate}
$lex{Grade}$sp{grade}
$lex{Designation} $sp{designation}
$lex{'Medical(other)'} $sp{medical}
$lex{School}$schoolname
$lex{'Parent/Guardian'}$sr{par1_firstname} $sr{par1_lastname}
$lex{Address}$sr{address1} $sr{city1} $sr{prov1}
$lex{'Home Phone'}$sr{hphone1}
$lex{'Emergency Contact'}$sr{emname} }; if ( $sr{emhphone} ) { print qq{Home:$sr{emhphone} }; } if ( $sr{emwphone} ) { print qq{Work:$sr{emwphone} }; } if ( $sr{emcell} ) { print qq{Cell:$sr{emcell} }; } print qq{
\n\n}; # Now lets do the team. $sth1 = $dbh->prepare("select * from team where studnum = ?"); $sth1->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die;} print qq{

$lex{'Student Team'}

\n}; print qq{\n}; print qq{\n}; my %teamname; while ( my $tref = $sth1->fetchrow_hashref ) { my %t = %$tref; print qq{\n}; # ($t{userid}) $teamname{$t{userid}} = qq{$t{firstname} $t{lastname}}; } print qq{
$lex{Name}$lex{Position}
$t{firstname} $t{lastname}$t{jobtitle}
\n\n}; # Load evmst_staff records my $sth1 = $dbh->prepare("select * from evmst_staff where mainid = ?"); my $sth2 = $dbh->prepare("select * from evmst_goal where mainid = ? order by idnum"); my $sth3 = $dbh->prepare("select mastery,term from evmst_mastery where goalid = ? order by term"); # Goals my $sth = $dbh->prepare("select * from evmst_main where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # Setup the table. print qq{

Student Goals

\n}; # Subjects Loop; once for each subject; they come out of evmst_* tables while ( my $ref = $sth->fetchrow_hashref ) { my %em = %$ref; # was @evalmst # %em = latex_filter( %em ); my $catnum = $em{catnum}; my $mainid = $em{id}; # Get Category Name (from %catdesc at top of student loop my $category = $catdesc{$catnum}; # Table print qq{\n}; print qq{\n}; # 4 fields in main evmst_main record print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Load Staff/Team responsibility stuff from evmst_staff; $sth1->execute( $mainid ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my $ref = $sth1->fetchrow_hashref ) { if ( $first ) { print qq{\n}; } # Now print the goals; print qq{\n}; print qq{
$category
Target Skill $em{targetskill}
Performance Level $em{currperform}
Long Term Objective $em{longtermobjective}
Evaluation Method $em{evalmethod}
Responsibility
    \n}; $first = 0; } my %r = %$ref; print qq{
  • $teamname{$r{userid}} $r{strategy}
    • \n}; } if ( not $first ) { print qq{
Goals / Mastery Level
    \n}; # Load the goals from evmst_goal $sth2->execute( $mainid ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $first = 1; while (my $ref = $sth2->fetchrow_hashref ) { my %g = %$ref; # goal record (id, mainid, description, idnum) # (%g) = latex_filter(%g); print qq{
  • $g{description} }; $sth3->execute( $g{id} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ($mastery, $term ) = $sth3->fetchrow ) { # ($mastery) = latex_filter( $mastery ); print qq{Term $term - Mastery $mastery / }; } print qq{
    • \n}; } print qq{
\n\n}; } # End of Goals Loop print qq{
[ $lex{'Back to Special Needs Students'} ]
\n}; print qq{\n};