% 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