#!/usr/bin/perl # Copyright 2001-2020 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. # Overridden values for testing: homepage, css my %lex = ('Error' => 'Error', 'Main' => 'Main', 'Principal' => 'Principal', 'Walkthrough' => 'Walkthrough', 'Continue' => 'Continue', 'Date' => 'Date', 'Time' => 'Time', 'Select' => 'Select', 'Staff Member' => 'Staff Member', 'Template' => 'Template', 'Comment' => 'Comment', 'Save' => 'Save', 'Subject' => 'Subject', 'Missing Values' => 'Missing Values', 'Areas of Strength' => 'Areas of Strength', 'Areas for Improvement' => 'Areas for Improvement', ); my $self = 'pwalkeval.pl'; my $etcpath = "../../etc/admin.conf"; use DBI; use CGI; use Time::JulianDay; use Number::Format qw(:all); eval require $etcpath; 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); $dbh->{mysql_enable_utf8} = 1; # Set Date my @tim = localtime(time); my $year = $tim[5] + 1900; my $month = $tim[4] + 1; my $day = $tim[3]; my $currdate = "$year-$month-$day"; my $currtime = "$tim[2]:$tim[1]:$tim[0]"; my $title = "$lex{Principal} $lex{Walkthrough}"; print qq{$doctype\n$title\n}; print qq{\n}; =head if ( not $arr{page} ) { print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } =cut print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; doScore(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; saveScore(); } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Display Date/Time but pass as hidden values. print qq{
$lex{Date} $lex{Time}
\n}; print qq{
$currdate $currtime

\n}; # Display Staff my $sth = $dbh->prepare("select userid, lastname, firstname from staff order by lastname, firstname"); $sth->execute; if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } print qq{
}; print qq{$lex{Select} $lex{'Staff Member'}
\n}; print qq{\n}; print qq{
\n}; # Display Templates print qq{
}; print qq{$lex{Select} $lex{Template}
\n}; print qq{\n}; print qq{\n}; my $sth = $dbh->prepare("select id, title, category from pwalk_mst order by title, category"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ( $id, $title, $category ) = $sth->fetchrow ) { print qq{\n}; print qq{\n}; } print qq{\n}; print qq{
\n}; print qq{
$title$category
\n}; print qq{
\n}; print qq{\n}; exit; } # end of start page. #---------- sub doScore { #---------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } if ( not $arr{template} or not $arr{userid} ) { print qq{

$lex{Error}: $lex{'Missing Values'}

\n}; print qq{\n}; exit; } # Load Template my $sth = $dbh->prepare("select title, category from pwalk_mst where id = ?"); $sth->execute( $arr{template} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ($title, $category) = $sth->fetchrow; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # staff member print qq{\n}; # Display Staff Member my $sth = $dbh->prepare("select lastname, firstname from staff where userid = ?"); $sth->execute( $arr{userid} ); if ( DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth->fetchrow; print qq{

$firstname $lastname
\n}; # Display Template Title # print qq{ $lex{Template}\n}; print qq{$title ($category)

\n}; # Display Date/Time but pass as hidden values. #print qq{$lex{Date} $lex{Time} $arr{currdate} $arr{currtime}\n}; # Display Subject print qq{

$lex{Subject}

\n}; print qq{\n}; print qq{}; print qq{\n}; # Load each of the template values in turn. my $sth = $dbh->prepare("select * from pwalk_tpl where mstid = ? order by sequence"); $sth->execute( $arr{template} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } # General Comments print qq{\n}; print qq{\n}; # Continue Edit print qq{\n}; print qq{\n}; # Submit print qq{\n}; print qq{
Description / Score$lex{'Areas of Strength'}$lex{'Areas for Improvement'}
$r{description}
\n}; print qq{ No Eval }; for my $idx (1..4) { print qq{ $idx }; } print qq{
General $lex{Comment}
Continue Editing}; print qq{
\n}; print qq{
\n}; print qq{\n}; exit; } #------------ sub saveScore { #------------ # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $authorid = $ENV{'REMOTE_USER'}; my $datetime = "$arr{currdate} $arr{currtime}"; # Load Template Master my $sth = $dbh->prepare("select title, description, category from pwalk_mst where id = ?"); $sth->execute( $arr{template} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ($mtitle, $mdescription, $mcategory) = $sth->fetchrow; # Load Teacher Information my $sth = $dbh->prepare("select lastname, firstname, certification1 from staff where userid = ?"); $sth->execute( $arr{userid} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname, $cert) = $sth->fetchrow; # Insert Master Eval Record my $sth = $dbh->prepare("insert into pwalk_eval (title, description, authorid, tuserid, tlastname, tfirstname, tcertnum, subject, adatetime, comment, continueedit ) values ( ?,?,?,?,?,?,?,?,?,?,? ) "); $sth->execute($mtitle, $mcategory, $authorid, $arr{userid}, $lastname, $firstname, $cert, $arr{subject}, $datetime, $arr{comment}, $arr{continueedit} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # Get Master ID my $sth = $dbh->prepare("select id from pwalk_eval where adatetime = ? and tuserid = ?"); $sth->execute( $datetime, $arr{userid} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $mstid = $sth->fetchrow; if ( not $mstid ) { print qq{

$lex{Error} Master Id not found

\n}; exit; } # Prepare for Template Load my $sth = $dbh->prepare("select * from pwalk_tpl where id = ?"); my $sth1 = $dbh->prepare("insert into pwalk_score (mstid, description, category, sequence, score, strengths, weaknesses) values(?,?,?,?,?,?,?) "); foreach my $key ( keys %arr ) { my ($field, $tplid ) = split(':', $key); if ( $tplid and $field eq 'score' ) { # we have a filled value + possible comments # Get a tpl record, add new score record $sth->execute( $tplid ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $tref = $sth->fetchrow_hashref; my %t = %$tref; my $strengths = $arr{"S:$tplid"}; my $weaknesses = $arr{"W:$tplid"}; $sth1->execute( $mstid, $t{description},$t{category},$t{sequence}, $arr{$key}, $strengths, $weaknesses ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } } } print qq{

Evaluation Stored

\n}; print qq{[ $lex{Main} ]\n}; print qq{\n}; exit; } # end of saveScore;