--- 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') {