--- loncom/homework/caparesponse/caparesponse.pm	2000/12/11 23:47:36	1.19
+++ loncom/homework/caparesponse/caparesponse.pm	2000/12/12 14:54:10	1.20
@@ -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");
       }