#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. my %lex = ('Phone' => 'Phone', 'Report' => 'Report', 'Student' => 'Student', 'Main' => 'Main', 'Emergency' => 'Emergency', 'Parent 1' => 'Parent 1', 'Parent 2' => 'Parent 2', 'Student' => 'Student', 'Emergency' => 'Emergency', 'HRm' => 'HRm', 'Gr' => 'Gr', 'Work' => 'Work', 'Home' => 'Home', 'Cell' => 'Cell', 'Error' => 'Error', 'Blank=All' => 'Blank=All', 'Select by' => 'Select by', 'Continue' => 'Continue', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Name' => 'Name', 'Group' => 'Group', 'Sort by' => 'Sort by', ); use DBI; use CGI; use Cwd; eval require "../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Get current dir so know what CSS to display; if ( getcwd() =~ /tcgi/ ){ # we are in tcgi $css = $tchcss; $homepage = $tchpage; } my $title = qq{$lex{Phone} $lex{Report}}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } else { delete $arr{page}; } # foreach my $key ( sort keys %arr ) { print "K:$key VAL:$arr{$key}
\n"; } if ( $arr{grade} ) { print qq{

$lex{Grade} $arr{grade}

\n}; } elsif ( $arr{homeroom} ) { print qq{

$lex{Homeroom} $arr{homeroom}

\n}; } else { print qq{

Entire School

\n}; } my ($grp, $select, $sortorder); if ( $arr{grade} ) { $grp = $dbh->quote( $arr{grade} ); $select = "where grade = $grp"; $sortorder = "grade, lastname, firstname"; } elsif ( $arr{homeroom} ) { $grp = $dbh->quote( $arr{homeroom} ); $select = "where homeroom = $grp"; $sortorder = "homeroom, lastname, firstname"; } else { # all school, no $select value $sortorder = "lastname, firstname"; $grp = "grade"; } # print qq{
Group:$grp Select:$select Sortorder:$sortorder
\n}; my $sth = $dbh->prepare("select * from student $select order by $sortorder"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} print qq{\n}; print qq{\n}; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; print qq{\n}; # Parent 1 print qq{\n}; # Parent 2 print qq{\n}; # Emergency print qq{\n}; } print qq{
$lex{Student}$lex{'Parent 1'}$lex{'Parent 2'}$lex{Emergency}
$r{lastname}, $r{firstname} $r{initial}
\n}; print qq{$lex{HRm} $r{homeroom} $lex{Gr} $r{grade}		}; if ( $r{relation1} or $r{par1_lastname} ) { print qq{$r{relation1}
$r{par1_firstname} $r{par1_lastname}\n}; } if ( $r{hphone1} ) { print qq{
$lex{Home} $r{hphone1}}; } if ( $r{wphone1} ) { print qq{
$lex{Work} $r{wphone1}}; } if ( $r{cell1} ) { print qq{
$lex{Cell} $r{cell1}}; } print qq{		}; if ( $r{relation2} or $r{par2_lastname} ) { print qq{$r{relation2}
$r{par2_firstname} $r{par2_lastname}\n}; } if ( $r{hphone2} ) { print qq{
$lex{Home} $r{hphone2}}; } if ( $r{wphone2} ) { print qq{
$lex{Work} $r{wphone2}}; } if ( $r{cell2} ) { print qq{
$lex{Cell} $r{cell2}}; } print qq{		}; if ( $r{emrelation} or $r{emname} ) { print qq{$r{emrelation}
$r{emname}\n}; } if ( $r{emhphone} ) { print qq{
$lex{Home} $r{emhphone}}; } if ( $r{emwphone} ) { print qq{
$lex{Work} $emwphone}; } if ( $r{emcell} ) { print qq{
$lex{Cell} $emcell}; } print qq{
\n}; #---------------- sub showStartPage { #---------------- my @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; my @grades; my $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{

Select Grade or Homeroom

\n}; # Homeroom print qq{
}; print qq{}; print qq{$lex{Select} $lex{Homeroom}\n}; foreach my $hr (@homerooms) { print qq{
$hr
}; } # OR print qq{
OR
\n\n}; # Grades print qq{
}; print qq{}; print qq{$lex{Select} $lex{Grade}\n}; foreach my $gr (@grades) { print qq{
$gr
}; } # OR print qq{
OR
\n\n}; print qq{
}; print qq{$lex{'Blank=All'}
\n}; print qq{
\n}; print qq{

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