#! /usr/bin/perl
# Copyright 2001-2016 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 = ('Main' => 'Main',
'Walkthrough' => 'Walkthrough',
'Description' => 'Description',
'Error' => 'Error',
'Report' => 'Report',
'Evaluation' => 'Evaluation',
'Subject' => 'Subject',
'Title' => 'Title',
'No Records Found' => 'No Records Found',
'Areas of Strength' => 'Areas of Strength',
'Areas for Improvement' => 'Areas for Improvement',
);
my $self = 'pwalkrpt1.pl';
use DBI;
use CGI;
use Data::UUID;
# Current Date
my @tim = localtime(time);
my $year = @tim[5] + 1900;
my $month = @tim[4] + 1;
my $day = @tim[3];
if (length($month) == 1) { $month = '0'.$month; }
if (length($day) == 1) { $day = '0'.$day; }
my $currdate = "$year-$month-$day";
# Read database access
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
# Setup Database access
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my $q = new CGI;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
# Page Header
my $title = "$lex{Walkthrough} $lex{Report} 1";
print qq{$doctype\n$title\n};
print qq{\n};
print "$chartype\n\n";
print "
\n";
if ( not $arr{page} ) {
showStartPage();
}
#-----------------
sub showEvaluation {
#-----------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
# Get Master Record
my $sth = $dbh->prepare("select * from pwalk_eval where id = ?");
$sth->execute( $arr{id} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $mref = $sth->fetchrow_hashref;
my %mst = %$mref;
my $mstid = $mst{id};
# Loop through all template records
my $sth = $dbh->prepare("select * from pwalk_score where mstid = ? order by sequence");
$sth->execute( $mstid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
print qq{
\n};
while ( my $ref = $sth->fetchrow_hashref ) {
%r = %$ref;
print qq{
$r{description} ($r{category})
\n};
print qq{
Score
$r{score}
\n};
print qq{
$lex{'Areas of Strength'}
$r{strengths}
\n};
print qq{
$lex{'Areas for Improvement'}
$r{weaknesses}
\n};
}
print qq{
General Comments
$mst{comment}
\n};
print "
\n";
print "\n";
exit;
} # end of showEvaluation
#----------------
sub showStartPage {
#----------------
# Setup Year-Months.
my @months;
my %months;
my %walks; # $walks{description}{$month} = count;
my ($sy, $sm, $sd) = split('-', $schoolstart); # schoolstart is global var from config.
$sm =~ s/^0//; # strip leading zero
my $yrmo = "$sy-$sm";
push @months, $yrmo;
$months{$yrmo} = "$s_month[$sm]-$sy";
for my $i (1..10) {
my $mo = $sm + $i;
my $yr = $sy;
if ( $mo > 12 ) {
$mo = $mo - 12;
$yr++;
}
my $yrmo = "$yr-$mo";
push @months, $yrmo;
$months{$yrmo} = "$s_month[$mo]-$yr";
}
# Get the Evaluations
my $sth = $dbh->prepare("select description, title, adatetime from pwalk_eval");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my ($desc, $title, $datetime) = $sth->fetchrow ) {
# Get the month
my ($date, $time) = split(/\s+/, $datetime);
my ($y,$m,$d) = split('-', $date);
$titles{$desc} = $title;
$walks{$desc}{$m}++;
}
if ( %walks ) {
print qq{
\n};
print qq{
$lex{Description}
$lex{Title}
};
foreach my $yrmo ( @months ) { print qq{
$months{$yrmo}
};}
print qq{
\n};
}
foreach my $desc ( sort keys %walks ) {
my $title = $titles{$desc};
print qq{
$desc
$title
\n};
foreach my $yrmo ( @months ) {
my ($yr,$mo) = split('-', $yrmo);
print qq{