--- loncom/homework/structuretags.pm	2001/08/03 17:48:24	1.50
+++ loncom/homework/structuretags.pm	2001/08/06 18:33:58	1.52
@@ -67,6 +67,7 @@ sub start_problem {
 #intialize globals
   $Apache::inputtags::part='0';
   @Apache::inputtags::responselist = ();
+  @Apache::inputtags::previous=();
   $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
   &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
   if ($Apache::lonhomework::type eq '') {
@@ -304,6 +305,7 @@ sub start_randomlist {
 sub shuffle {
     my $a=shift;
     my $i;
+    &Apache::response::setrandomnumber();
     for($i=@$a;--$i;) {
       my $j=int rand($i+1);
       next if $i == $j;
@@ -321,6 +323,7 @@ sub start_part {
   if ($id eq '') { $id = $Apache::lonxml::curdepth; }
   $Apache::inputtags::part=$id;
   @Apache::inputtags::responselist = ();
+  @Apache::inputtags::previous=();
   if ($target eq 'meta') {
     return &Apache::response::mandatory_part_meta;
   } elsif ($target eq 'web' || $target eq 'grade') {