version 1.41, 2003/01/10 21:50:17
|
version 1.42, 2003/01/31 22:30:16
|
Line 218 sub DownloadCourseInformation {
|
Line 218 sub DownloadCourseInformation {
|
$courseID.'.db', |
$courseID.'.db', |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
$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 |
# Data is not gathered so return UpToDate as true. This |
# will be interpreted in ProcessClasslist |
# will be interpreted in ProcessClasslist |
$courseData{$namedata.':lastDownloadTime'}=time; |
$courseData{$namedata.':lastDownloadTime'}=time; |
Line 1180 sub DownloadStudentCourseData {
|
Line 1181 sub DownloadStudentCourseData {
|
my $WhatIWant; |
my $WhatIWant; |
$WhatIWant = '(^version:|'; |
$WhatIWant = '(^version:|'; |
$WhatIWant .= '^\d+:.+?:(resource\.\d+\.'; |
$WhatIWant .= '^\d+:.+?:(resource\.\d+\.'; |
$WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))\s*$'; |
$WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))\s*$';#' |
$WhatIWant .= '|timestamp)'; |
$WhatIWant .= '|timestamp)'; |
$WhatIWant .= ')'; |
$WhatIWant .= ')'; |
# $WhatIWant = '.'; |
# $WhatIWant = '.'; |
Line 1213 sub DownloadStudentCourseData {
|
Line 1214 sub DownloadStudentCourseData {
|
|
|
if($c->aborted()) { return 'Aborted'; } |
if($c->aborted()) { return 'Aborted'; } |
|
|
if($needUpdate eq 'true') { |
if(1) { #($needUpdate eq 'true') { |
$downloadTime = 'Not downloaded'; |
$downloadTime = 'Not downloaded'; |
} |
} |
my $courseData = |
my $courseData = |
Line 1287 sub DownloadStudentCourseDataSeparate {
|
Line 1288 sub DownloadStudentCourseDataSeparate {
|
return 'Aborted'; |
return 'Aborted'; |
} |
} |
|
|
if($needUpdate eq 'true') { |
if(1) { #($needUpdate eq 'true') { |
$downloadTime = 'Not downloaded'; |
$downloadTime = 'Not downloaded'; |
} |
} |
|
|