%# A day without sunshine is like night. % if ($@) { <&|/l, $@ &>Parsing error: [_1]&>
<% $session{reportContent} %>% $m->abort; % } % $m->comp("/RG/Report/View/$View", %ARGS, Obj => $Obj); % return unless $View ne $session{reportView}; % $session{reportView} = $View; <%INIT> 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]); }, ) }; %INIT> <%ARGS> $View => 'Edit' %ARGS>