#!/usr/bin/perl
# Copyright 2001-2012 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.
# Passed Values: Student Number and Password
# Script: studentview.pl - show student marks from gradebook, from
# report cards, and attendance.
# Changes: Parse input password and name for correct character
# classes. Also user is a read only user for the database. Cannot
# write data.
my %lex = ('Attendance' => 'Attendance',
'Bad Password or Student Number!' => 'Bad Password or Student Number!',
'Nothing selected to view!' => 'Nothing selected to view!',
'Enter Student Viewer' => 'Enter Student Viewer',
'Student Number' => 'Student Number',
'Password' => 'Password',
'Student' => 'Student',
'Average' => 'Average',
'Test Average' => 'Test Average',
'Test Weight' => 'Test Weight',
'Attendance' => 'Attendance',
'Report Card' => 'Report Card',
'Gradebook' => 'Gradebook',
'Marks for' => 'Marks for',
'NA' => 'NA',
'No Subject Enrollments' => 'No Subject Enrollments',
'Subject' => 'Subject',
'Objectives' => 'Objectives',
'Term' => 'Term',
'Error' => 'Error',
'for' => 'for',
'Assessment' => 'Assessment',
'Group' => 'Group',
'Weight' => 'Weight',
'Score' => 'Score',
'Comment' => 'Comment',
'Grp Avg' => 'Grp Avg',
'Additional Comments' => 'Additional Comments',
'Error' => 'Error',
'Current Year GPA' => 'Current Year GPA',
'GPA' => 'GPA',
'No Quality Score for' => 'No Quality Score for',
'Show' => 'Show',
'Continue' => 'Continue',
'Please Log In' => 'Please Log In',
'Parent' => 'Parent',
'Main' => 'Main',
'Homeroom' => 'Homeroom',
'Teacher' => 'Teacher',
'Grade' => 'Grade',
);
my $self = 'viewattgbook.pl';
# Get etc directory location
# Not useful
#eval require "parbase.conf";
#if ( $@ ) {
# print "$lex{Error}: $@ \n";
# die "$lex{Error}: $@\n";
#}
# The location to load the config file from.
my $configlocation = '../etc';
my $specchar = '*'; # causes this test to be skipped in calculating avg.
my $altcolor = '#3B7'; #1B6 Complement to the 063 green of teacher site.
my $commentcolor = 'yellow';
use DBI;
use CGI;
use CGI::Session;
use Date::Business;
eval require "$configlocation/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
eval require "$configlocation/gbook.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
# get $defaultItemWeight from gbook.conf for the correct multiplier view
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$rouser,$ropassword);
# Note change in user and password above.
#---------------------------------------
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
$wday++;
$currdate = "$dow[$wday], $month[$mon] $mday, $year";
my $q = CGI->new;
my %arr = $q->Vars; # Get passed values
# Get Session
my $session = new CGI::Session("driver:$dbtype;serializer:FreezeThaw",
undef,{Handle => $dbh}) or die CGI::Session->errstr;
if ( not $session->param('logged_in') ){
my $userid = $session->param('userid');
print $q->header( -charset, $charset );
print "