log => $log,
bug_num => $ref,
version_graph => $version_graph,
+ msg => $msg,
isstrongseverity => \&Debbugs::Status::isstrongseverity,
html_escape => \&Debbugs::CGI::html_escape,
looks_like_number => \&Scalar::Util::looks_like_number,
* Only send out control help when control is mailed (closes: #499941)
* Resolve two XSS (closes: #504608)
* Strip BOM before regexes involving spaces (closes: #488554)
+ * Display link to full log again (closes: #507506)
-- Colin Watson <cjwatson@debian.org> Fri, 20 Jun 2003 18:57:25 +0100
{include(q(cgi/bugreport_buginfo))}
{ my $output = '';
if (looks_like_number($msg)) {
- $output .= sprintf qq(<p><a href="%s">Full log</a></p>),html_escape(bug_links(bug=>$ref,links_only=>1));
+ $output .= sprintf qq(<p><a href="%s">Full log</a></p>),html_escape(bug_links(bug=>$bug_num,links_only=>1));
}
else {
$output .= qq(<p><a href="mailto:$bug_num\@$config{email_domain}">Reply</a> ).