% unless(defined($report)) {
You've got to tell me what report to display!
% return;
% }
Displaying Bug Report <% $report %>
<%perl>
$report =~ s/\.\.//g;
$report =~ s#/##g;
my $filename = sprintf("/var/www/jbovlaste/current/bugreports/%s",$report);
my $reportdata = do $filename;
%perl>
| User |
<% $reportdata->{'username'} %> |
| Time |
<% scalar localtime $reportdata->{'time'} %> |
| Brief |
<% $reportdata->{'brief'} %> |
| Type/Area |
<% join("/",$reportdata->{'type'},$reportdata->{'area'}) %> |
| Report |
|
% if(defined($reportdata->{'response'})) {
| Response |
|
% }
<%args>
$report => undef
%args>
<%shared>
our($report);
%shared>
<%method title>
Displaying Bug Report <% $report %>
%method>