#!/usr/bin/perl
# Copyright 2001-2018 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.
# Outline: TODO: Display stored formats (.fmt) files.
# Also display all student fields to select.
my %lex = ('Main' => 'Main',
'Export' => 'Export',
'Student' => 'Student',
'Field' => 'Field',
'Select' => 'Select',
'Combine failed on input' => 'Combine failed on input',
'CSV File' => 'CSV File',
'Download' => 'Download',
'Note' => 'Note',
'Save' => 'Save',
'Cannot open file' => 'Cannot open file',
'Error' => 'Error',
'No Selection' => 'No Selection'
);
my $self = 'expstudent.pl';
use DBI;
use CGI;
#use Text::CSV_XS;
use Text::CSV::Encoded;
# use Encode qw( is_utf8 );
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $csv = Text::CSV::Encoded->new ({ encoding => undef }); # accepts UTF8 marked strings
#my $csv = Text::CSV_XS->new( {binary => 1} );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# load all the fields of the student table
my @fields;
$sth = $dbh->prepare("select fieldid,arrayidx from meta
where tableid = 'student' and fieldid != '' order by arrayidx");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;}
while ( my ($field,$idx) = $sth->fetchrow){
push @fields, "$field:$idx";
}
my $title = "$lex{Export} $lex{Student}";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} | };
print qq{$lex{Export} ]\n};
print qq{
$title
\n};
if ($arr{writeflag}){
delete $arr{writeflag};
createExport();
}
print qq{\n};
#---------------
sub createExport { # create exported data for download
#---------------
#foreach my $key (keys %arr) { print qq{K:$key V:$arr{$key} \n}; }
# Sort by 'sortorder'
my $sortorder;
for (1..3){
my $sortname = 'sort'.$_;
if ($arr{$sortname}){
$sortorder .= "$arr{$sortname},";
}
delete $arr{$sortname};
}
chop $sortorder; # remove trailing comma.
if ($sortorder){ # if we have any sortorder, add first part.
$sortorder = "order by $sortorder";
}
# Check for missing selected fields.... duh.
if ( not %arr) { # no values passed...
print qq{