#!/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 => 'txtbk/report/save_sendDelExpFromHitList.tmpl',
}
);
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 = lc($input->{'type'});
my $logId = $input->{'logId'};
my $data = _getDataFromlog($dbh,$logId);
$data = decode_json($data);
my $filename = "deleteFromHitList_$curTime";
if ($op eq 'save'){
if ($type eq 'html') {
print "Content-Type:application/x-download\n";
print "Content-Disposition:attachment;filename=$filename".".html\n\n";
print " ";
print "";
print "";
print "";
print "
";
print "";
print "";
print "| No. | Title | Barcode | Call Number | ";
print "
|---|
";
print "";
print "";
my $i =0;
foreach my $d( @{$data}){
$i++;
print "";
print "| $i | ";
print "$d->{'title'} | ";
print "$d->{'barcode'} | ";
print "$d->{'classNumber'} | ";
print "
";
}
print "";
print "
";
print "";
}
elsif($type eq 'csv'){
print "Content-Encoding: UTF-8\n";
print "Content-type: text/csv; charset=UTF-8\n";
print "Content-Disposition:attachment;filename=$filename".".csv\n\n";
print "\"title\",\"Barcode\",\"Call Number\" \n";
foreach my $d( @{$data}){
print "\"$d->{'title'}\",\"$d->{'barcode'}\",\"$d->{'classNumber'}\" ";
print "\n";
}
}
}
else{
tmpl_write($dbh, $cgi, $cookieList, $template);
}
sub _getDataFromlog {
my ($dbh,$id) = @_;
my $sql = "select content from log where id=$id";
my $data = $dbh->selectrow_array($sql);
return $data;
}