loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.47, 2001/03/20 20:11:27
+version 1.48, 2001/03/20 21:34:34
  Line 1637  sub exportsheet {
   }
   return @exportarr;
  }
+ # ============================================================ Expiration Dates
+ #
+ # Load previously cached student spreadsheets for this course
+ #
+ sub expirationdates {
+     undef %expiredates;
+     my $cid=$ENV{'request.course.id'};
+     my $reply=&Apache::lonnet::reply('dump:'.
+ 				     $ENV{'course.'.$cid.'.domain'}.':'.
+                                      $ENV{'course.'.$cid.'.num'}.
+ 				     ':nohist_expirationdates',
+                                      $ENV{'course.'.$cid.'.home'});
+     unless ($reply=~/^error\:/) {
+ 	map {
+             my ($name,$value)=split(/\=/,$_);
+             $expiredates{&Apache::lonnet::unescape($name)}
+                         =&Apache::lonnet::unescape($value);
+         } split(/\&/,$reply);
+     }
+ }
  # ===================================================== Calculated sheets cache
  #
- Line 1858  ENDSCRIPT
+ Line 1879  ENDSCRIPT
  # --------------------------------------------------------------- Cached sheets
+     &expirationdates();
      undef %oldsheets;
      undef %loadedcaches;