--- test/html-webhacc/WebHACC/Result.pm 2008/08/15 05:53:23 1.10
+++ test/html-webhacc/WebHACC/Result.pm 2008/08/16 07:42:20 1.14
@@ -81,8 +81,6 @@
$error_layer = 'syntax'; ## NOTE: Unknown - an error of the implementation
}
- my $error_type_text = $opt{type};
-
my $class = qq[level-$error_level layer-$error_layer];
## Line & column numbers (prepare values)
@@ -187,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;
}
}
@@ -205,14 +203,9 @@
$out->text (': ');
## Error message
- $out->nl_text ($error_type_text, node => $opt{node}, text => $opt{text});
-
- ## Additional error description
- if (defined $opt{text}) {
- $out->html (' (');
- $out->text ($opt{text});
- $out->html ('
)');
- }
+ my $error_type_text = $opt{type};
+ $out->nl_text ($error_type_text, node => $opt{node}, text => $opt{text},
+ value => $opt{value});
## Link to a long description
@@ -292,7 +285,7 @@
target => 'transfer-errors', score_base => 20,
parent_status => $maindoc_status},
{label => 'Encode L.', status => $self->{layers}->{encode},
- score_base => 10,
+ target => 'parse-errors', score_base => 10,
parent_status => $maindoc_status},
{label => 'Char L.', status => $self->{layers}->{charset},
score_base => 10,