--- loncom/homework/response.pm 2004/10/15 16:22:25 1.106 +++ loncom/homework/response.pm 2004/10/21 06:33:37 1.108 @@ -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.108 2004/10/21 06:33:37 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -268,10 +268,11 @@ sub handle_previous { 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'}); } } @@ -507,6 +508,7 @@ sub showallfoils { return 1; } } + if ($Apache::lonhomework::type eq 'survey') { return 1; } return 0; }