use CGI ':standard';
use CGI ':cgi-lib';
use CGI::Carp qw(fatalsToBrowser);
use Switch;
use base 'CGI::Application';
use CGI::Application::Plugin::Session;
use Template;
use Template::Stash;
use strict;
use warnings;
...
sub reports_getReport{
my $self = shift;
my $q = $self->query;
...
switch($outputType){
case 'download'{
my $data=csvReport($report); #take the data and convert to comma delimited
$self->header_props(-type => 'application/octet-stream', -attachment => 'report.csv');
$self->header_add(-script=>{-type=>'text/javascript',-code=>' alert("hi there"); showWait(0); '});
return $data;
}
case 'screen'{#this works!!!
my $html=screenReport($report);
return $html;
}
case 'pdf'{
my $data=getReport($report);#$data is a pdf stream
$self->header_props(-type => 'application/pdf', -attachment => 'report.pdf');
$self->header_add(-script=>{-type=>'text/javascript',-code=>' alert("hi there"); showWait(0); '});
return $data;
}
else{}
}
}
sub screenReport{
my $report=shift;
my $html='';
$html.='
';
...
$html.='';
return $html;
}