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