#!/usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('Main' => 'Main',
'Error' => 'Error',
'Continue' => 'Continue',
'Discipline' => 'Discipline',
);
use DBI;
use CGI;
my $self = 'hvReport1.pl';
# Read config variables
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);
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday,
$iddst) = localtime(time);
$year = $year + 1900;
$wday++;
$mon++;
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
my $title = "Home Visits - Report 1";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | $lex{Discipline} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showReport();
}
#----------------
sub showStartPage {
#----------------
# find all authors in homevisits table.
my $sth = $dbh->prepare("select distinct author from homevisit
where author is not null and author != '' order by author");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die; }
# get author names
my $sth1 = $dbh->prepare("select firstname, lastname from staff where userid = ?");
print qq{\n};
print qq{\n};
exit;
}
#-------------
sub showReport {
#-------------
# foreach my $key ( sort keys %arr ) { print "K:$key Val:$arr{$key} \n"; }
# Passed author.
my $sth = $dbh->prepare("select * from homevisit where author = ? order by date desc");
$sth->execute( $arr{author} );
if ($DBI::errstr) {print $DBI::errstr; die;}
# Get Student Name
my $sth1 = $dbh->prepare("select firstname, lastname from studentall where studnum = ?");
print qq{
\n};
print qq{
Ordered by Descending Date (New to Old)
\n};
print qq{
Date
Student
};
print qq{
Reason
Description
\n};
my $count;
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
$sth1->execute($r{studnum});
if ($DBI::errstr) { print $DBI::errstr; die; }
my ($firstname, $lastname) = $sth1->fetchrow;
print qq{