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

raeburn raeburn@source.lon-capa.org
Thu, 24 Feb 2011 23:09:33 -0000


raeburn		Thu Feb 24 23:09:33 2011 EDT

  Modified files:              
    /loncom/homework/caparesponse	caparesponse.pm 
  Log:
  - Bug 5531.
    - undef has long been called on the package variable %answer in 
      &start_numericalresponse(); now do the same in &start_stringresponse().
  
  
Index: loncom/homework/caparesponse/caparesponse.pm
diff -u loncom/homework/caparesponse/caparesponse.pm:1.245 loncom/homework/caparesponse/caparesponse.pm:1.246
--- loncom/homework/caparesponse/caparesponse.pm:1.245	Wed Feb  2 18:48:06 2011
+++ loncom/homework/caparesponse/caparesponse.pm	Thu Feb 24 23:09:32 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.245 2011/02/02 18:48:06 raeburn Exp $
+# $Id: caparesponse.pm,v 1.246 2011/02/24 23:09:32 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1136,6 +1136,7 @@
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;
     my $id = &Apache::response::start_response($parstack,$safeeval);
+    undef(%answer);
     if ($target eq 'meta') {
 	$result=&Apache::response::meta_package_write('stringresponse');
     } elsif ($target eq 'edit') {