--- loncom/interface/Attic/lonspreadsheet.pm	2001/03/20 20:11:27	1.47
+++ loncom/interface/Attic/lonspreadsheet.pm	2001/03/20 21:34:34	1.48
@@ -1637,6 +1637,27 @@ 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
 #
@@ -1858,6 +1879,8 @@ ENDSCRIPT
 
 # --------------------------------------------------------------- Cached sheets
 
+    &expirationdates();
+
     undef %oldsheets;
     undef %loadedcaches;