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

[albertel]

albertel		Fri May 23 15:37:33 2003 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - missed commiting this on the last commit
  - homework should be less dysfunctional
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.78 loncom/homework/response.pm:1.79
--- loncom/homework/response.pm:1.78	Fri May 16 16:16:18 2003
+++ loncom/homework/response.pm	Fri May 23 15:37:33 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.78 2003/05/16 20:16:18 albertel Exp $
+# $Id: response.pm,v 1.79 2003/05/23 19:37:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -52,7 +52,7 @@
 }
 
 sub end_response {
-    pop @Apache::inputtags::response;
+    #pop @Apache::inputtags::response;
     @Apache::inputtags::inputlist=();
     return '';
 }
@@ -62,6 +62,7 @@
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
     if ($id eq '') { $id = $Apache::lonxml::curdepth; }
     push (@Apache::inputtags::response,$id);
+    push (@Apache::inputtags::responselist,$id);
     push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);
     return $id;
 }