#!/usr/bin/perl
# Copyright 2001-2019 Leslie Richardson
# This file is part of Open Admin for Schools.
use DBI;
use CGI;
use XML::Writer;
use XML::Writer::String;
use Data::UUID;
# use IO;
use HTTP::Request::Common qw(POST);
use HTTP::Headers;
use LWP::UserAgent;
use XML::LibXML;
use Number::Format qw(round);
my $self = 'sendmarks.pl';
# Used for Filename Date
my @smonth = ('', 'JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
my %lex = ( 'Main' => 'Main',
'Error' => 'Error',
);
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
eval require "slxmllibNew.pl";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = CGI->new;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
my @tim = localtime(time);
my $year = $tim[5] + 1900;
$tim[4]++;
$tim[6]++; # wday; not used.
# For Filename
my $fyear = $year - 2000;
my $filecurrdate = $tim[3]. $smonth[ $tim[4] ]. $fyear;
my $filecurrtime = $tim[2]. $tim[1];
# End of filename specific time
for (0..4){if (length($tim[$_]) == 1){ $tim[$_] = '0'.$tim[$_];}}
my $currdate = "$year-$tim[4]-$tim[3]";
my $currtime = "$tim[2]:$tim[1]:$tim[0]";
print qq{$doctype\nSubmit Student Marks\n};
print qq{$chartype\n};
print qq{[ Report Card |\n};
print qq{Export ]\n};
print qq{
Submit Student Marks
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
selectStudents();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
sendMarks();
}
#----------------
sub showStartPage {
#----------------
print qq{\n};
print qq{\n};
exit;
}
#-----------------
sub selectStudents {
#-----------------
# passed a list of subjects to submit marks for.
my $checked;
if ( $arr{checked} ) {
$checked = qq{checked = "checked"};
}
delete $arr{checked};
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
print qq{