--- loncom/homework/caparesponse/caparesponse.pm	2000/12/11 23:47:36	1.19
+++ loncom/homework/caparesponse/caparesponse.pm	2000/12/19 23:22:22	1.21
@@ -6,7 +6,7 @@ use strict;
 use capa;
 
 sub BEGIN {
-  &Apache::lonxml::register('Apache::caparesponse',('caparesponse'));
+  &Apache::lonxml::register('Apache::caparesponse',('caparesponse','numericalresponse'));
 }
 
 $Apache::caparesponse::result='';
@@ -26,7 +26,7 @@ sub end_caparesponse {
       my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
       if ( $response =~ /[^\s]/) {
 	#check_for_previous($response,$id,$response);
-	$Apache::lonhomework::results{"resource.submission.$Apache::inputtags::part.$Apache::inputtags::response['-1']"}=$response;
+	$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}=$response;
 	&Apache::lonxml::debug("submitted a $response<br>\n");
 	&Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");
 	my $expression="&caparesponse_check('".$response."','".
@@ -36,7 +36,7 @@ sub end_caparesponse {
 		"');";
 	$result = &Apache::run::run($expression,$safeeval);
 	my ($ad) = split /:/ , $result;
-	$Apache::lonhomework::results{"resource.awarddetail.$Apache::inputtags::part.$Apache::inputtags::response['-1']"}=$ad;
+	$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].awarddetail"}=$ad;
 	&Apache::lonxml::debug("$expression");
 	&Apache::lonxml::debug("\n<br>result:$Apache::caparesponse::result:$result:$Apache::lonxml::curdepth<br>\n");
       }
@@ -49,6 +49,12 @@ sub end_caparesponse {
   return $result;
 }
 
+sub start_numericalresponse {
+}
+
+sub end_numericalresponse {
+}
+
 1;
 __END__