% if (!$Multi) {
% } % foreach my $rep (split("\x00", $Report)) { % next unless length($rep);
% }
<%INIT> my $File; if ($File = $r->path_info) { $File =~ s|^/||; if ($Multi) { # okay, real action. delete $DB{$session{db},$File}; $session{current_file} = undef if $session{current_file} eq $File; $m->print("
"); $m->abort; } else { $Report = undef; } } <%ARGS> $Report => $session{current_report} $Multi => 0