[freeside-commits] freeside/httemplate/misc queued_report.html, NONE, 1.1

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail.420.am:/tmp/cvs-serv20373/httemplate/misc

Added Files:
	queued_report.html 
Log Message:
cope with poor tax liability report performance by allowing queuing of reports RT#8274

--- NEW FILE: queued_report.html ---
<% include($report_comp) %>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');

my $report = '';
$cgi->param('report') =~ /^([.\w]+)$/ && ($report = $1);
die "no such report" unless $report;

my $prefix = "$FS::UID::cache_dir/cache.$FS::UID::datasrc";
open my $fh, "$prefix/report.$report"
  or die "can't open report: $!\n";

my $reportvalue = '';
{
  local $/;
  $reportvalue = <$fh>;
}
close $fh;

#my ($interp, $other) = FS::Mason::mason_interps('standalone');
my $interp = $m->interp;
my $report_comp =
  eval { $interp->make_component ( comp_source => $reportvalue ) };
die $@ if $@;
errorpage($@) if $@;

</%init>