%# Only adults have difficulty with childproof caps. <& /Edit/Elements/PopHeader, Action => "Print.html", Title => loc('Print'), NoStyle => 1, Margin => 0 &>

<&|/l&>Printing file, please wait...

<%INIT> if ($Show) { our $DB; my $ReportObj = $DB->ReportObj($session{reportId}); my $Obj = eval { DBIx::ReportBuilder->new( Handle => $ReportObj->HandleObj, SearchHook => $ReportObj->SearchHook, Name => $session{reportName}, Description => $session{reportDescription}, Content => $session{reportContent}, PartId => $session{reportPartId}, ClauseId => $session{reportClauseId}, Loc => \&loc, DescribeReport => sub { $DB->DescribeReport($_[0]) }, RenderReport => sub { return '' if $::ReportDepth{$_[0]}; local $::ReportDepth{$_[0]} = 1; $DB->RenderReport($_[0]); }, ) }; $Obj->RenderPrint if $Obj; $m->print(""); $m->abort; } <%ARGS> $Show => undef