/[suikacvs]/test/html-webhacc/WebHACC/Result.pm
Suika

Diff of /test/html-webhacc/WebHACC/Result.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by wakaba, Mon Jul 21 12:56:34 2008 UTC revision 1.8 by wakaba, Sun Aug 10 11:49:43 2008 UTC
# Line 62  sub add_error ($%) { Line 62  sub add_error ($%) {
62      $line = $opt{node}->get_user_data ('manakai_source_line');      $line = $opt{node}->get_user_data ('manakai_source_line');
63      if (defined $line) {      if (defined $line) {
64        $column = $opt{node}->get_user_data ('manakai_source_column');        $column = $opt{node}->get_user_data ('manakai_source_column');
65      } else {      } elsif ($opt{node}->isa ('Message::IF::Node')) {
66        if ($opt{node}->node_type == $opt{node}->ATTRIBUTE_NODE) {        if ($opt{node}->node_type == $opt{node}->ATTRIBUTE_NODE) {
67          my $owner = $opt{node}->owner_element;          my $owner = $opt{node}->owner_element;
68          if ($owner) {          if ($owner) {
# Line 280  Errors</a></th> Line 280  Errors</a></th>
280    my $score_base = 20;    my $score_base = 20;
281    my $score_unit = $score_base / 100;    my $score_unit = $score_base / 100;
282    for (    for (
283      [Transfer => 'transfer', ''],      [Transfer => 'transfer', '#transfer-errors'],
284      [Character => 'char', ''],      [Character => 'char', ''],
285      [Syntax => 'syntax', '#parse-errors'],      [Syntax => 'syntax', '#parse-errors'],
286      [Structure => 'structure', '#document-errors'],      [Structure => 'structure', '#document-errors'],
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24