#!/usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
# export.pl - export values to a CSV file format for download by teacher.
# for a single subject only.
# New Feature: compress all subjects into a zip for the teacher as a
# backup.
my $tempdir = '/tmp';
# temporary working area when creating zip for complete backup.
my %lex = ('Export' => 'Export',
'Courses' => 'Courses',
'Main' => 'Main',
'Combine failed on input' => 'Combine failed on input',
'Test Weight' => 'Test Weight',
'Select Courses' => 'Select Courses',
'Download' => 'Download',
'Marks' => 'Marks',
'All' => 'All',
'Error' => 'Error',
'Please Log In' => 'Please Log In',
'Compressed Zip' => 'Compressed Zip',
'Continue' => 'Continue',
);
my $self = 'export.pl';
use DBI;
use CGI;
use CGI::Session;
use Text::CSV_XS;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@ \n";
}
my $q = CGI->new;
my $csv = Text::CSV_XS->new( {binary => 1} );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
$dbh->do('SET NAMES utf8');
=head
# Get Session Information...
my $session = new CGI::Session("driver:mysql;serializer:FreezeThaw",
undef,{Handle => $dbh}) or die CGI::Session->errstr;
my $logged_in = $session->param(logged_in);
if (not $logged_in){
print $q->header( -charset, $charset );
print $lex{'Please Log In'}. "! \n";
exit;
}
my $subjsec = $session->param('subjsec');
=cut
my $userid = $ENV{'REMOTE_USER'};
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$mon++;
$wday++;
$year = $year + 1900;
my $currsdate = "$year-$mon-$mday";
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
print $q->header( -charset, $charset );
my %arr = $q->Vars; # Get passed values
# Get the courses.
my (%courses, @courses);
$sth = $dbh->prepare("select description,smdesc,subjsec from subject
where teacher = ? order by description");
$sth->execute( $userid );
if ($DBI::errstr) { print "$DBI::errstr"; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
push @courses, $ref->{subjsec};
$courses{$ref->{subjsec}} = $ref;
}
=head
# Get the Subject Information, for current subject from session.
$sth = $dbh->prepare("select * from subject where subjsec = ?");
$sth->execute( $subjsec );
if ($DBI::errstr) { print "$DBI::errstr"; die $DBI::errstr; }
my $ref = $sth->fetchrow_hashref;
my %c = %$ref;
my $userid = $c{teacher}; # teacher userid
=cut
# Print Page Header
print qq{$doctype\n$lex{Export} $lex{Marks}};
print qq{\n
$chartype\n\n};
my $title = qq{$lex{Export} $lex{Courses} -> Spreadsheet};
print qq{
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
createExport();
}
#----------------
sub showStartPage {
#----------------
# Start of Form/page.
print qq{\n};
print qq{\n};
exit;
} # end of showStartPage
#---------------
sub createExport {
#---------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key VAL:$arr{$key} \n}; }
# passed: courses (subjsec) in the keys
# In case of no subject selected, halt here.
if ( not %arr ){
print qq{