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

Diff of /test/html-webhacc/WebHACC/Language/DOM.pm

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

revision 1.1 by wakaba, Sun Jul 20 14:58:24 2008 UTC revision 1.2 by wakaba, Sun Jul 20 16:53:10 2008 UTC
# Line 166  sub generate_structure_error_section ($) Line 166  sub generate_structure_error_section ($)
166    
167    require Whatpm::ContentChecker;    require Whatpm::ContentChecker;
168    my $onerror = sub {    my $onerror = sub {
169      my %opt = @_;      $result->add_error (@_, layer => 'structure');
     my ($type, $cls, $msg) = main::get_text ($opt{type}, $opt{level}, $opt{node});  
     $type =~ tr/ /-/;  
     $type =~ s/\|/%7C/g;  
     $out->html (qq[<dt class="$cls">] . $result->get_error_label ($input, \%opt));  
     $out->html (qq[<dd class="$cls">] . $result->get_error_level_label (\%opt));  
     $out->html ($msg);  
     $out->text (' [');  
     $out->link ('Description', url => '../error-description#' . $type);  
     $out->text (']');  
     main::add_error ('structure', \%opt => $result);  
170    };    };
171    
172    my $onsubdoc = $self->onsubdoc;    my $onsubdoc = $self->onsubdoc;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24