loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2003/01/10 21:50:17	version 1.43, 2003/01/31 22:34:38
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 = '.';