--- test/html-webhacc/WebHACC/Result.pm 2008/08/15 16:03:46 1.13
+++ test/html-webhacc/WebHACC/Result.pm 2008/08/22 13:08:12 1.15
@@ -185,8 +185,8 @@
} elsif (defined $opt{input}->{request_uri}) {
$out->url ($opt{input}->{request_uri});
$has_location = 1;
- } elsif (defined $opt{input}->{uri}) {
- $out->url ($opt{input}->{uri});
+ } elsif (defined $opt{input}->url) {
+ $out->url ($opt{input}->url);
$has_location = 1;
}
}
@@ -206,13 +206,6 @@
my $error_type_text = $opt{type};
$out->nl_text ($error_type_text, node => $opt{node}, text => $opt{text},
value => $opt{value});
-
- ## Additional error description
- if (defined $opt{text}) { ## TODO: Remove this block once all errors are put into the catalog.
- $out->html (' (');
- $out->text ($opt{text});
- $out->html ('
)');
- }
## Link to a long description
@@ -220,8 +213,10 @@
$fragment =~ tr/ /-/;
$fragment = $out->encode_url_component ($fragment);
$out->text (' [');
- $out->link ('Description', url => '../error-description#' . $fragment,
- rel => 'help');
+ $out->start_tag ('a', href => '../error-description#' . $fragment,
+ rel => 'help');
+ $out->nl_text ('Description');
+ $out->end_tag ('a');
$out->text (']');
if ($error_level eq 'm') {