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

[albertel]

albertel		Wed Oct 20 23:19:04 2004 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - previous submission handling now works for survey mode, in survey mode all previous submissions can be picked again, but we throw away a submission if the last submission is the same as the last previous submission
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.106 loncom/homework/response.pm:1.107
--- loncom/homework/response.pm:1.106	Fri Oct 15 12:22:25 2004
+++ loncom/homework/response.pm	Wed Oct 20 23:19:04 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.106 2004/10/15 16:22:25 matthew Exp $
+# $Id: response.pm,v 1.107 2004/10/21 03:19:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -268,10 +268,11 @@
     if ($$previous{'used'} && ($$previous{'award'} eq $ad) ) {
 	if ($$previous{'last'}) {
 	    push(@Apache::inputtags::previous,'PREVIOUSLY_LAST');
-	} else {
+	    push(@Apache::inputtags::previous_version,$$previous{'version'});
+	} elsif ($Apache::lonhomework::type ne 'survey') {
 	    push(@Apache::inputtags::previous,'PREVIOUSLY_USED');
+	    push(@Apache::inputtags::previous_version,$$previous{'version'});
 	}
-	push(@Apache::inputtags::previous_version,$$previous{'version'});
     }
 }