[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

www lon-capa-cvs@mail.lon-capa.org
Wed, 09 Jul 2003 06:20:42 -0000


www		Wed Jul  9 02:20:42 2003 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  We need to be able to tell faculty that ALL parameter changes will be
  active after at most 10 minutes.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.388 loncom/lonnet/perl/lonnet.pm:1.389
--- loncom/lonnet/perl/lonnet.pm:1.388	Sun Jul  6 06:30:21 2003
+++ loncom/lonnet/perl/lonnet.pm	Wed Jul  9 02:20:42 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.388 2003/07/06 10:30:21 www Exp $
+# $Id: lonnet.pm,v 1.389 2003/07/09 06:20:42 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3204,7 +3204,7 @@
 sub EXT_cache_status {
     my ($target_domain,$target_user) = @_;
     my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain;
-    if (exists($ENV{$cachename}) && ($ENV{$cachename}+1800) > time) {
+    if (exists($ENV{$cachename}) && ($ENV{$cachename}+600) > time) {
         # We know already the user has no data
         return 1;
     } else {