httemplate/misc/queued_report.html

   1 <% include($report_comp) %>
   2 <%init>
   3
   4 die "access denied"
   5   unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
   6
   7 my $report = '';
   8 $cgi->param('report') =~ /^([.\w]+)$/ && ($report = $1);
   9 die "no such report" unless $report;
  10
  11 my $prefix = "$FS::UID::cache_dir/cache.$FS::UID::datasrc";
  12 open my $fh, "$prefix/report.$report"
  13   or die "can't open report: $!\n";
  14
  15 my $reportvalue = '';
  16 {
  17   local $/;
  18   $reportvalue = <$fh>;
  19 }
  20 close $fh;
  21
  22 #my ($interp, $other) = FS::Mason::mason_interps('standalone');
  23 my $interp = $m->interp;
  24 my $report_comp =
  25   eval { $interp->make_component ( comp_source => $reportvalue ) };
  26 die $@ if $@;
  27 errorpage($@) if $@;
  28
  29 </%init>