#!/usr/bin/perl

use strict;
use CGI;
use Time::localtime;
use JSON;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
);



my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookieList, $template) = tmpl_read(
    {
        dbh             => $dbh,
        cgi             => $cgi,
        tmplFile        => 'eqmnt/util/save_sendSchoolList.tmpl',
        reqPermission   => 'eq_record_edit',
    }
);


my $tm = localtime;
my $curTime = sprintf("%04d%02d%02d%02d%02d%02d", $tm->year+1900, ($tm->mon)+1, $tm->mday, $tm->hour, $tm->min, $tm->sec);
my $today = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $tm->year+1900, ($tm->mon)+1, $tm->mday, $tm->hour, $tm->min, $tm->sec);
    my $op  = $input->{'op'};
    my $type = $input->{'type'};
    my $schoolList = _getSchoolList($dbh);
    my $i=0;
    if($type eq 'CSV'){
        print "Content-Encoding: UTF-8\n";
        print "Content-type: text/csv; charset=UTF-8\n";
        print "Content-Disposition:attachment;filename=schoolList_". $curTime .".csv\n\n"; 
        print "\"No\",\"Code\",\"Name\",\"Address\",\"City\",\"State\",\"Country\",\"Phone\",\"Fax\",\"Principal Name\",\"Principal Phone\",\"Principal Email\",\"Alternate Name\",\"Alternate Phone\",\"Alternate Email\" \n";
        foreach my $s (@{$schoolList}){
            $i++;
            print "\"$i\"";
            print ",\"$s->{'code'}\"";
            print ",\"$s->{'name'}\"";
            print ",\"$s->{'address'}\"";
            print ",\"$s->{'city'}\"";
            print ",\"$s->{'state'}\"";
            print ",\"$s->{'country'}\"";
            print ",\"$s->{'phone'}\"";
            print ",\"$s->{'fax'}\"";
            print ",\"$s->{'principalName'}\"";
            print ",\"$s->{'principalPhone'}\"";
            print ",\"$s->{'principalEmail'}\"";
            print ",\"$s->{'alternateName'}\"";
            print ",\"$s->{'alternatePhone'}\"";
            print ",\"$s->{'alternateEmail'}\"";
            print "\n";
        }
    }

sub _getSchoolList {
    
    my($dbh)=@_;
    my $sql = "select id,code,name,address,city,state,phone,fax,principalName,principalPhone,principalEmail,alternateName,alternatePhone,alternateEmail from eq_locationDirectory order by name";
    my $schoolList = $dbh->selectall_arrayref($sql,{Slice=>{}} ,());
    return $schoolList;

}