/[suikacvs]/test/html-webhacc/cc.cgi
Suika

Diff of /test/html-webhacc/cc.cgi

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

revision 1.12 by wakaba, Mon Jul 16 13:56:26 2007 UTC revision 1.13 by wakaba, Tue Jul 17 13:52:54 2007 UTC
# Line 50  my $http = SuikaWiki::Input::HTTP->new; Line 50  my $http = SuikaWiki::Input::HTTP->new;
50  <link rel="stylesheet" href="../cc-style.css" type="text/css">  <link rel="stylesheet" href="../cc-style.css" type="text/css">
51  </head>  </head>
52  <body>  <body>
53  <h1>Web Document Conformance Checker (<em>beta</em>)</h1>  <h1><a href="../cc-interface">Web Document Conformance Checker</a>
54    (<em>beta</em>)</h1>
55    
56  <div id="document-info" class="section">  <div id="document-info" class="section">
57  <dl>  <dl>
# Line 227  if (defined $input->{s}) { Line 228  if (defined $input->{s}) {
228          $i++;          $i++;
229          print STDOUT qq[<div class="section" id="table-$i"><h3>] .          print STDOUT qq[<div class="section" id="table-$i"><h3>] .
230              get_node_link ($table_el) . q[</h3>];              get_node_link ($table_el) . q[</h3>];
231            
232            ## TODO: Make |ContentChecker| return |form_table| result
233            ## so that this script don't have to run the algorithm twice.
234          my $table = Whatpm::HTMLTable->form_table ($table_el);          my $table = Whatpm::HTMLTable->form_table ($table_el);
235                    
236          for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) {          for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) {
# Line 262  if (defined $input->{s}) { Line 265  if (defined $input->{s}) {
265        print STDOUT qq[</div>];        print STDOUT qq[</div>];
266      }      }
267    
268        if (keys %{$elements->{id}}) {
269          print STDOUT qq[
270    <div id="identifiers" class="section">
271    <h2>Identifiers</h2>
272    
273    <dl>
274    ];
275          for my $id (sort {$a cmp $b} keys %{$elements->{id}}) {
276            print STDOUT qq[<dt>@{[htescape $id]}</dt>];
277            for (@{$elements->{id}->{$id}}) {
278              print STDOUT qq[<dd>].get_node_link ($_).qq[</dd>];
279            }
280          }
281          print STDOUT qq[</dl></div>];
282        }
283    
284      if (keys %{$elements->{term}}) {      if (keys %{$elements->{term}}) {
285        print STDOUT qq[        print STDOUT qq[
286  <div id="terms" class="section">  <div id="terms" class="section">
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24