--- test/html-webhacc/cc.cgi	2008/07/27 10:33:45	1.61
+++ test/html-webhacc/cc.cgi	2008/09/14 14:36:12	1.65
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# -d:DProf
 use strict;
 
 use lib qw[/home/httpd/html/www/markup/html/whatpm
@@ -44,8 +45,6 @@
 
   require WebHACC::Result;
   my $result = WebHACC::Result->new;
-  $result->{conforming_min} = 1;
-  $result->{conforming_max} = 1;
   $result->output ($out);
 
   require WebHACC::Input;
@@ -53,8 +52,6 @@
 
   check_and_print ($input => $result => $out);
   
-  $result->generate_result_section;
-
   $out->nav_list;
 
   exit;
@@ -70,7 +67,11 @@
   $input->generate_transfer_sections ($result);
 
   unless (defined $input->{s}) {
-    $result->{conforming_min} = 0;
+    ## NOTE: This is an error of the implementation.
+    $result->layer_uncertain ('transfer');
+    $result->generate_result_section;
+ 
+    $out->input ($original_input);
     return;
   }
 
@@ -78,6 +79,7 @@
     'text/cache-manifest' => 'WebHACC::Language::CacheManifest',
     'text/css' => 'WebHACC::Language::CSS',
     'text/html' => 'WebHACC::Language::HTML',
+    'text/x-h2h' => 'WebHACC::Language::H2H',
     'text/x-webidl' => 'WebHACC::Language::WebIDL',
 
     'text/xml' => 'WebHACC::Language::XML',
@@ -122,11 +124,17 @@
         unless defined $subinput->{base_uri};
     $subinput->{parent_input} = $input;
 
-    $subinput->start_section ($result);
-    check_and_print ($subinput => $result => $out);
-    $subinput->end_section ($result);
+    my $subresult = WebHACC::Result->new;
+    $subresult->output ($out);
+    $subresult->parent_result ($result);
+
+    $subinput->start_section ($subresult);
+    check_and_print ($subinput => $subresult => $out);
+    $subinput->end_section ($subresult);
   }
 
+  $result->generate_result_section;
+
   $out->input ($original_input);
 } # check_and_print
 
@@ -143,4 +151,4 @@
 
 =cut
 
-## $Date: 2008/07/27 10:33:45 $
+## $Date: 2008/09/14 14:36:12 $