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

Diff of /test/html-webhacc/WebHACC/Language/HTML.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.3 by wakaba, Mon Jul 21 08:39:12 2008 UTC
# Line 16  sub generate_syntax_error_section ($) { Line 16  sub generate_syntax_error_section ($) {
16    require Whatpm::HTML;    require Whatpm::HTML;
17        
18    my $out = $self->output;    my $out = $self->output;
19    $out->start_section (id => 'parse-errors', title => 'Parse Errors');    $out->start_section (role => 'parse-errors');
20    $out->start_tag (id => 'parse-errors-list');    $out->start_error_list (role => 'parse-errors');
21    
22    my $input = $self->input;    my $input = $self->input;
23    my $result = $self->result;    my $result = $self->result;
24    
25    my $onerror = sub {    my $onerror = sub {
26      my (%opt) = @_;      $result->add_error (@_, layer => 'syntax');
     my ($type, $cls, $msg) = main::get_text ($opt{type}, $opt{level});  
     $out->html (qq[<dt class="$cls">] . $result->get_error_label ($input, \%opt));  
     $type =~ tr/ /-/;  
     $type =~ s/\|/%7C/g;  
     $out->html (qq[<dd class="$cls">] . $result->get_error_level_label (\%opt) , $msg);  
     $out->text (' [');  
     $out->link ('Description',  
                 url => '../error-description#' . $type);  
     $out->text (']');  
   
     main::add_error ('syntax', \%opt => $result);  
27    };    };
28    
29    my $dom = Message::DOM::DOMImplementation->new;    my $dom = Message::DOM::DOMImplementation->new;
# Line 69  sub generate_syntax_error_section ($) { Line 58  sub generate_syntax_error_section ($) {
58    $doc->document_uri ($input->{uri});    $doc->document_uri ($input->{uri});
59    $doc->manakai_entity_base_uri ($input->{base_uri});    $doc->manakai_entity_base_uri ($input->{base_uri});
60    
61    $out->end_tag ('dl');    $out->end_error_list (role => 'parse-errors');
62    $out->end_section;    $out->end_section;
63  } # generate_syntax_error_section  } # generate_syntax_error_section
64    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24