Diff for /loncom/homework/structuretags.pm between versions 1.288 and 1.289

version 1.288, 2005/04/18 22:39:35 version 1.289, 2005/04/22 17:15:33
Line 321  sub initialize_storage { Line 321  sub initialize_storage {
 # if running user has student role.    # if running user has student role.  
 sub finalize_storage {  sub finalize_storage {
     my $result;      my $result;
     my ($temp) = keys %Apache::lonhomework::results;      if (%Apache::lonhomework::results) {
     if ( $temp ne '' ) {  
  my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();   my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
  if ($env{'request.state'} eq 'construct' || $symb eq '') {   if ($env{'request.state'} eq 'construct' || $symb eq '') {
     $Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'};      $Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'};
Line 340  sub finalize_storage { Line 339  sub finalize_storage {
     }      }
     return $result;      return $result;
 }  }
   use Data::Dumper;
   
 # -------------------------------------------------------------store_aggregates  # -------------------------------------------------------------store_aggregates
 # Sends hash of values to be incremented in nohist_resourcetracker.db  # Sends hash of values to be incremented in nohist_resourcetracker.db
Line 368  sub store_aggregates { Line 368  sub store_aggregates {
         }          }
         $aggregate{$symb."\0".$part."\0attempts"} = 1;          $aggregate{$symb."\0".$part."\0attempts"} = 1;
     }      }
     &Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,      if (%aggregate) {
   $cdomain,$cname);    &Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
         $cdomain,$cname); 
   
       }
 }  }
   
 sub checkout_msg {  sub checkout_msg {

Removed from v.1.288  
changed lines
  Added in v.1.289


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>