--- loncom/interface/loncoursedata.pm 2003/01/10 21:50:17 1.41 +++ loncom/interface/loncoursedata.pm 2003/01/31 22:30:16 1.42 @@ -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 @@ sub DownloadCourseInformation { $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 @@ sub DownloadStudentCourseData { 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 @@ sub DownloadStudentCourseData { if($c->aborted()) { return 'Aborted'; } - if($needUpdate eq 'true') { + if(1) { #($needUpdate eq 'true') { $downloadTime = 'Not downloaded'; } my $courseData = @@ -1287,7 +1288,7 @@ sub DownloadStudentCourseDataSeparate { return 'Aborted'; } - if($needUpdate eq 'true') { + if(1) { #($needUpdate eq 'true') { $downloadTime = 'Not downloaded'; }