/[suikacvs]/test/html-webhacc/cc.cgi
Suika

Diff of /test/html-webhacc/cc.cgi

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

revision 1.29 by wakaba, Fri Nov 23 12:08:32 2007 UTC revision 1.30 by wakaba, Sat Feb 9 12:22:19 2008 UTC
# Line 166  sub add_error ($$$) { Line 166  sub add_error ($$$) {
166        $result->{conforming_min} = 0;        $result->{conforming_min} = 0;
167      } elsif ($err->{level} eq 'w' or $err->{level} eq 'g') {      } elsif ($err->{level} eq 'w' or $err->{level} eq 'g') {
168        $result->{$layer}->{warning}++;        $result->{$layer}->{warning}++;
169      } elsif ($err->{level} eq 'unsupported') {      } elsif ($err->{level} eq 'u' or $err->{level} eq 'unsupported') {
170        $result->{$layer}->{unsupported}++;        $result->{$layer}->{unsupported}++;
171        $result->{unsupported} = 1;        $result->{unsupported} = 1;
172      } else {      } else {
# Line 806  sub print_result_unknown_type_section ($ Line 806  sub print_result_unknown_type_section ($
806  </div>  </div>
807  ];  ];
808    push @nav, ['#parse-errors' => 'Errors'];    push @nav, ['#parse-errors' => 'Errors'];
809    add_error (char => {level => 'unsupported'} => $result);    add_error (char => {level => 'u'} => $result);
810    add_error (syntax => {level => 'unsupported'} => $result);    add_error (syntax => {level => 'u'} => $result);
811    add_error (structure => {level => 'unsupported'} => $result);    add_error (structure => {level => 'u'} => $result);
812  } # print_result_unknown_type_section  } # print_result_unknown_type_section
813    
814  sub print_result_input_error_section ($) {  sub print_result_input_error_section ($) {
# Line 865  sub get_error_level_label ($) { Line 865  sub get_error_level_label ($) {
865    } elsif ($err->{level} eq 'w') {    } elsif ($err->{level} eq 'w') {
866      $r = qq[<strong><a href="../error-description#level-w">Warning</a></strong>:      $r = qq[<strong><a href="../error-description#level-w">Warning</a></strong>:
867          ];          ];
868    } elsif ($err->{level} eq 'unsupported') {    } elsif ($err->{level} eq 'u' or $err->{level} eq 'unsupported') {
869      $r = qq[<strong><a href="../error-description#level-u">Not      $r = qq[<strong><a href="../error-description#level-u">Not
870          supported</a></strong>: ];          supported</a></strong>: ];
871    } else {    } else {
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24