[LON-CAPA-cvs] cvs: loncom(version_1_0_2) /homework/caparesponse caparesponse.pm

[albertel]

albertel		Wed Oct 15 17:26:46 2003 EDT

  Modified files:              (Branch: version_1_0_2)
    /loncom/homework/caparesponse	caparesponse.pm 
  Log:
  - backport 1.115
  
  
Index: loncom/homework/caparesponse/caparesponse.pm
diff -u loncom/homework/caparesponse/caparesponse.pm:1.107.2.2 loncom/homework/caparesponse/caparesponse.pm:1.107.2.3
--- loncom/homework/caparesponse/caparesponse.pm:1.107.2.2	Wed Oct 15 15:54:45 2003
+++ loncom/homework/caparesponse/caparesponse.pm	Wed Oct 15 17:26:46 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.107.2.2 2003/10/15 19:54:45 albertel Exp $
+# $Id: caparesponse.pm,v 1.107.2.3 2003/10/15 21:26:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -114,7 +114,6 @@
 	    if ( $response =~ /[^\s]/) {
 		my $ad;
 		my %previous = &Apache::response::check_for_previous($response,$partid,$id);
-		$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
 		&Apache::lonxml::debug("submitted a $response<br>\n");
 		&Apache::lonxml::debug($$parstack[-1] . "\n<br>");
 		
@@ -131,6 +130,7 @@
 		    $response =~ s/\\/\\\\/g;
 		    $response =~ s/\'/\\\'/g;
 		}
+		$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
 		&Apache::lonxml::debug("current $response");
 		my $expression="&caparesponse_check_list('".$response."','".
 		    $$parstack[-1];