[LON-CAPA-cvs] cvs: loncom /interface loncoursedata.pm

[matthew]

matthew		Fri Jan 31 17:30:17 2003 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  Backdoor disableing of caching, for a 0.6.2 release.
  Also no longer treat the string 'Not downloaded' as a number....
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.41 loncom/interface/loncoursedata.pm:1.42
--- loncom/interface/loncoursedata.pm:1.41	Fri Jan 10 16:50:17 2003
+++ loncom/interface/loncoursedata.pm	Fri Jan 31 17:30:16 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.41 2003/01/10 21:50:17 matthew Exp $
+# $Id: loncoursedata.pm,v 1.42 2003/01/31 22:30:16 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -218,7 +218,8 @@
                                       $courseID.'.db', 
                                       $Apache::lonnet::perlvar{'lonUsersDir'});
 
-    if($lastDownloadTime >= $modifiedTime && $modifiedTime >= 0) {
+    if($lastDownloadTime ne 'Not downloaded' && 
+       $lastDownloadTime >= $modifiedTime && $modifiedTime >= 0) {
         # Data is not gathered so return UpToDate as true.  This
         # will be interpreted in ProcessClasslist
         $courseData{$namedata.':lastDownloadTime'}=time;
@@ -1180,7 +1181,7 @@
     my $WhatIWant;
     $WhatIWant = '(^version:|';
     $WhatIWant .= '^\d+:.+?:(resource\.\d+\.';
-    $WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))\s*$';
+    $WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))\s*$';#'
     $WhatIWant .= '|timestamp)';
     $WhatIWant .= ')';
 #    $WhatIWant = '.';
@@ -1213,7 +1214,7 @@
 
         if($c->aborted()) { return 'Aborted'; }
 
-        if($needUpdate eq 'true') {
+        if(1) { #($needUpdate eq 'true') {
             $downloadTime = 'Not downloaded';
 	}
 	my $courseData = 
@@ -1287,7 +1288,7 @@
             return 'Aborted';
         }
 
-        if($needUpdate eq 'true') {
+        if(1) { #($needUpdate eq 'true') {
             $downloadTime = 'Not downloaded';
 	}