/[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.6 by wakaba, Mon Jul 21 12:56:34 2008 UTC revision 1.10 by wakaba, Thu Dec 11 05:11:11 2008 UTC
# Line 181  sub generate_structure_error_section ($) Line 181  sub generate_structure_error_section ($)
181    my $out = $self->output;    my $out = $self->output;
182    $out->start_section (role => 'structure-errors');    $out->start_section (role => 'structure-errors');
183    $out->start_error_list (role => 'structure-errors');    $out->start_error_list (role => 'structure-errors');
184      $self->result->layer_applicable ('structure');
185    
186    my $input = $self->input;    my $input = $self->input;
187    my $result = $self->result;    my $result = $self->result;
188    
189    require Whatpm::ContentChecker;    require Whatpm::ContentChecker;
190    my $onerror = sub {    my $onerror = sub {
191      $result->add_error (@_, layer => 'structure');      $result->add_error (layer => 'structure', @_);
192    };    };
193    
194    my $onsubdoc = $self->onsubdoc;    my $onsubdoc = $self->onsubdoc;
# Line 201  sub generate_structure_error_section ($) Line 202  sub generate_structure_error_section ($)
202    
203    $out->end_error_list (role => 'structure-errors');    $out->end_error_list (role => 'structure-errors');
204    $out->end_section;    $out->end_section;
205    
206      $self->result->layer_uncertain ('semantics');
207  } # generate_structure_error_section  } # generate_structure_error_section
208    
209  sub generate_additional_sections ($) {  sub generate_additional_sections ($) {
# Line 250  sub generate_table_section ($) { Line 253  sub generate_table_section ($) {
253      $index = $index ? $index . '.' . $i : $i;      $index = $index ? $index . '.' . $i : $i;
254      $out->start_section (id => 'table-' . $i,      $out->start_section (id => 'table-' . $i,
255                           title => 'Table #',                           title => 'Table #',
256                           text => $index);                           text => $index,
257                             notab => 1);
258    
259      $out->start_tag ('dl');      $out->start_tag ('dl');
260      $out->dt ('Table Element');      $out->dt ('Table Element');
# Line 373  sub generate_rdf_section ($) { Line 377  sub generate_rdf_section ($) {
377        $out->start_tag ('dt');        $out->start_tag ('dt');
378        $out->node_link ($triple->[0]);        $out->node_link ($triple->[0]);
379        $out->start_tag ('dd');        $out->start_tag ('dd');
380        $out->text ('Subject: ');        $out->nl_text ('Subject');
381          $out->text (': ');
382        $generate_rdf_resource_html->($triple->[1] => $out);        $generate_rdf_resource_html->($triple->[1] => $out);
383        $out->start_tag ('dd');        $out->start_tag ('dd');
384        $out->text ('Predicate: ');        $out->nl_text ('Predicate');
385          $out->text (': ');
386        $generate_rdf_resource_html->($triple->[2] => $out);        $generate_rdf_resource_html->($triple->[2] => $out);
387        $out->start_tag ('dd');        $out->start_tag ('dd');
388        $out->text ('Object: ');        $out->nl_text ('Object');
389          $out->text (': ');
390        $generate_rdf_resource_html->($triple->[3] => $out);        $generate_rdf_resource_html->($triple->[3] => $out);
391      }      }
392      $out->end_tag ('dl');      $out->end_tag ('dl');
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.10
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24