/[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.4 by wakaba, Mon Jul 21 08:39:12 2008 UTC
# Line 135  sub generate_source_string_section ($) { Line 135  sub generate_source_string_section ($) {
135      $out->start_tag ('li', id => 'line-1');      $out->start_tag ('li', id => 'line-1');
136    }    }
137    $out->end_tag ('ol');    $out->end_tag ('ol');
138    $out->html (qq[<script>    $out->add_source_to_parse_error_list ('parse-errors-list');
   addSourceToParseErrorList ('@{[$input->id_prefix]}', 'parse-errors-list');  
 </script>]);  
139    $out->end_section    $out->end_section
140  } # generate_source_string_section  } # generate_source_string_section
141    
# Line 169  sub generate_url_section ($) { Line 167  sub generate_url_section ($) {
167      $out->link_to_webhacc ('Check conformance of this document', url => $url);      $out->link_to_webhacc ('Check conformance of this document', url => $url);
168      $out->html ('<dd>Found in: <ul>');      $out->html ('<dd>Found in: <ul>');
169      for my $entry (@{$urls->{$url}}) {      for my $entry (@{$urls->{$url}}) {
170        $out->html (qq[<li>] . $result->get_node_link ($input, $entry->{node}));        $out->start_tag ('li');
171          $out->node_link ($entry->{node});
172        if (keys %{$entry->{type} or {}}) {        if (keys %{$entry->{type} or {}}) {
173          $out->text (' (');          $out->text (' (');
174          $out->text (join ', ', map {          $out->text (join ', ', map {

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24