--- test/html-webhacc/cc.cgi	2008/07/26 11:27:25	1.60
+++ test/html-webhacc/cc.cgi	2008/08/14 15:50:42	1.62
@@ -33,10 +33,17 @@
   $out->html_header;
   $out->unset_flush;
 
+  $out->generate_input_section ($http);
+
+  my $u = $http->get_parameter ('uri');
+  my $s = $http->get_parameter ('s');
+  if ((not defined $u or not length $u) and
+      (not defined $s or not length $s)) {
+    exit;
+  }
+
   require WebHACC::Result;
   my $result = WebHACC::Result->new;
-  $result->{conforming_min} = 1;
-  $result->{conforming_max} = 1;
   $result->output ($out);
 
   require WebHACC::Input;
@@ -44,8 +51,6 @@
 
   check_and_print ($input => $result => $out);
   
-  $result->generate_result_section;
-
   $out->nav_list;
 
   exit;
@@ -61,7 +66,9 @@
   $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;
     return;
   }
 
@@ -113,11 +120,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
 
@@ -134,4 +147,4 @@
 
 =cut
 
-## $Date: 2008/07/26 11:27:25 $
+## $Date: 2008/08/14 15:50:42 $