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

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

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

revision 1.2 by wakaba, Sun Jul 20 16:53:10 2008 UTC revision 1.8 by wakaba, Sun Sep 14 14:36:12 2008 UTC
# Line 72  sub generate_structure_error_section ($) Line 72  sub generate_structure_error_section ($)
72    
73    my $out = $self->output;    my $out = $self->output;
74        
75    $out->start_section (id => 'document-errors', title => 'Document Errors');    $out->start_section (role => 'structure-errors');
76    $out->html ('<p>Not supported for this kind of contents.');    $out->start_error_list (role => 'structure-errors');
77    ## TODO: class="???"    $self->result->layer_applicable ('structure');
78    
79      $self->result->add_error (input => $self->input,
80                                level => 'u',
81                                layer => 'structure',
82                                type => 'media type not supported:structure',
83                                text => $self->input->{media_type});
84    
85      $out->end_error_list (role => 'structure-errors');
86    $out->end_section;    $out->end_section;
87    
88      $self->result->layer_uncertain ('semantics');
89  } # generate_structure_error_section  } # generate_structure_error_section
90    
91  sub source_charset ($) {  sub source_charset ($) {
# Line 105  sub generate_source_string_section ($) { Line 115  sub generate_source_string_section ($) {
115    
116      my $t = '';      my $t = '';
117      while (1) {      while (1) {
118        my $c = $char_stream->getc;        if ($char_stream->read ($t, 1024, length $t)) {
119        last unless defined $c;          #
120        $t .= $c;        } else {
121            last;
122          }
123      }      }
124      $s = \$t;      $s = \$t;
125      ## TODO: Output for each line, don't concat all of lines.      ## TODO: Output for each line, don't concat all of lines.
# Line 117  sub generate_source_string_section ($) { Line 129  sub generate_source_string_section ($) {
129    
130    my $out = $self->output;    my $out = $self->output;
131    my $i = 1;    my $i = 1;
132    $out->start_section (id => 'source-string', title => 'Document Source',    $out->start_section (role => 'source');
                        short_title => 'Source');  
133    $out->start_tag ('ol', lang => '');    $out->start_tag ('ol', lang => '');
134    
135    if (length $$s) {    if (length $$s) {
# Line 135  sub generate_source_string_section ($) { Line 146  sub generate_source_string_section ($) {
146      $out->start_tag ('li', id => 'line-1');      $out->start_tag ('li', id => 'line-1');
147    }    }
148    $out->end_tag ('ol');    $out->end_tag ('ol');
149    $out->html (qq[<script>    $out->add_source_to_parse_error_list ('parse-errors-list');
150    addSourceToParseErrorList ('@{[$input->id_prefix]}', 'parse-errors-list');    $out->end_section;
 </script>]);  
   $out->end_section  
151  } # generate_source_string_section  } # generate_source_string_section
152    
153  sub generate_additional_sections ($) {  sub generate_additional_sections ($) {
# Line 169  sub generate_url_section ($) { Line 178  sub generate_url_section ($) {
178      $out->link_to_webhacc ('Check conformance of this document', url => $url);      $out->link_to_webhacc ('Check conformance of this document', url => $url);
179      $out->html ('<dd>Found in: <ul>');      $out->html ('<dd>Found in: <ul>');
180      for my $entry (@{$urls->{$url}}) {      for my $entry (@{$urls->{$url}}) {
181        $out->html (qq[<li>] . $result->get_node_link ($input, $entry->{node}));        $out->start_tag ('li');
182          $out->node_link ($entry->{node});
183        if (keys %{$entry->{type} or {}}) {        if (keys %{$entry->{type} or {}}) {
184          $out->text (' (');          $out->text (' (');
185          $out->text (join ', ', map {          $out->text (join ', ', map {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.8
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24