version 1.45, 2003/02/13 14:49:16
|
version 1.48, 2003/02/14 21:45:19
|
Line 293 sub get_sequence_assessment_data {
|
Line 293 sub get_sequence_assessment_data {
|
&Apache::lonnet::logthis('filename = '.$fn); |
&Apache::lonnet::logthis('filename = '.$fn); |
## |
## |
## use navmaps |
## use navmaps |
my $navmap = Apache::lonnavmaps::navmap->new($fn.".bd",$fn."_parms.db",1,0); |
my $navmap = Apache::lonnavmaps::navmap->new($fn.".db",$fn."_parms.db", |
|
1,0); |
if (!defined($navmap)) { |
if (!defined($navmap)) { |
return 'Can not open Coursemap'; |
return 'Can not open Coursemap'; |
} |
} |
Line 1346 sub DownloadStudentCourseData {
|
Line 1347 sub DownloadStudentCourseData {
|
|
|
sub DownloadStudentCourseDataSeparate { |
sub DownloadStudentCourseDataSeparate { |
my ($students,$checkDate,$cacheDB,$extract,$status,$courseID,$r,$c)=@_; |
my ($students,$checkDate,$cacheDB,$extract,$status,$courseID,$r,$c)=@_; |
my $residualFile = '/home/httpd/perl/tmp/'.$courseID.'DownloadFile.db'; |
my $residualFile = $Apache::lonnet::tmpdir.$courseID.'DownloadFile.db'; |
my $title = 'LON-CAPA Statistics'; |
my $title = 'LON-CAPA Statistics'; |
my $heading = 'Download Course Data'; |
my $heading = 'Download Course Data'; |
|
|
Line 1427 sub DownloadStudentCourseDataSeparate {
|
Line 1428 sub DownloadStudentCourseDataSeparate {
|
sub CheckForResidualDownload { |
sub CheckForResidualDownload { |
my ($cacheDB,$extract,$status,$courseID,$r,$c)=@_; |
my ($cacheDB,$extract,$status,$courseID,$r,$c)=@_; |
|
|
my $residualFile = '/home/httpd/perl/tmp/'.$courseID.'DownloadFile.db'; |
my $residualFile = $Apache::lonnet::tmpdir.$courseID.'DownloadFile.db'; |
if(!-e $residualFile) { |
if(!-e $residualFile) { |
return 'OK'; |
return 'OK'; |
} |
} |
Line 1491 sub CheckForResidualDownload {
|
Line 1492 sub CheckForResidualDownload {
|
return 'OK'; |
return 'OK'; |
} |
} |
|
|
|
|
|
################################################ |
|
################################################ |
|
|
|
=pod |
|
|
|
=item &make_into_hash($values); |
|
|
|
Returns a reference to a hash as described by $values. $values is |
|
assumed to be the result of |
|
join(':',map {&Apache::lonnet::escape($_)} %orighash; |
|
|
|
This is a helper function for get_current_state. |
|
|
|
=cut |
|
|
|
################################################ |
|
################################################ |
|
sub make_into_hash { |
|
my $values = shift; |
|
my %tmp = map { &Apache::lonnet::unescape($_); } |
|
split(':',$values); |
|
return \%tmp; |
|
} |
|
|
|
|
|
################################################ |
|
################################################ |
|
|
|
=pod |
|
|
|
=item &get_current_state($sname,$sdom,$symb,$courseid); |
|
|
|
Retrieve the current status of a students performance. $sname and |
|
$sdom are the only required parameters. If $symb is undef the results |
|
of an &Apache::lonnet::currentdump() will be returned. |
|
If $courseid is undef it will be retrieved from the environment. |
|
|
|
The return structure is based on &Apache::lonnet::currentdump. If |
|
$symb is unspecified, all the students data is returned in a hash of |
|
the form: |
|
( |
|
symb1 => { param1 => value1, param2 => value2 ... }, |
|
symb2 => { param1 => value1, param2 => value2 ... }, |
|
) |
|
|
|
If $symb is specified, a hash of |
|
( |
|
param1 => value1, |
|
param2 => value2, |
|
) |
|
is returned. |
|
|
|
If no data is found for $symb, or if the student has not performance data, |
|
an empty list is returned. |
|
|
|
=cut |
|
|
|
################################################ |
|
################################################ |
|
sub get_current_state { |
|
my ($sname,$sdom,$symb,$courseid,$forcedownload)=@_; |
|
return () if (! defined($sname) || ! defined($sdom)); |
|
# |
|
$courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
|
# |
|
my $cachefilename = $Apache::lonnet::tmpdir.$ENV{'user.name'}.'_'. |
|
$ENV{'user.domain'}.'_'. |
|
$courseid.'_student_data.db'; |
|
my %cache; |
|
# |
|
my %student_data; # return values go here |
|
# |
|
my $updatetime = 0; |
|
my $key = &Apache::lonnet::escape($sname).':'. |
|
&Apache::lonnet::escape($sdom).':'; |
|
# Open the cache file |
|
if (tie(%cache,'GDBM_File',$cachefilename,&GDBM_READER(),0640)) { |
|
if (exists($cache{$key.'time'})) { |
|
$updatetime = $cache{$key.'time'}; |
|
# &Apache::lonnet::logthis('got updatetime of '.$updatetime); |
|
} |
|
untie(%cache); |
|
} |
|
# timestamp/devalidation |
|
my $modifiedtime = 1; |
|
# Take whatever steps are neccessary at this point to give $modifiedtime a |
|
# new value |
|
# |
|
if (($updatetime < $modifiedtime) || |
|
(defined($forcedownload) && $forcedownload)) { |
|
# &Apache::lonnet::logthis("loading data"); |
|
# Get all the students current data |
|
my $time_of_retrieval = time; |
|
my @tmp = &Apache::lonnet::currentdump($courseid,$sdom,$sname); |
|
if ((scalar(@tmp) > 0) && ($tmp[0] =~ /^error:/)) { |
|
&Apache::lonnet::logthis('error getting data for '. |
|
$sname.':'.$sdom.' in course '.$courseid. |
|
':'.$tmp[0]); |
|
return (); |
|
} |
|
%student_data = @tmp; |
|
# |
|
# Store away the data |
|
# |
|
# The cache structure is colon deliminated. |
|
# $uname:$udom:time => timestamp |
|
# $uname:$udom:$symb => $parm1:$val1:$parm2:$val2 ... |
|
# |
|
# BEWARE: The colons are NOT escaped so can search with escaped |
|
# keys instead of unescaping every key. |
|
# |
|
if (tie(%cache,'GDBM_File',$cachefilename,&GDBM_WRCREAT(),0640)) { |
|
# &Apache::lonnet::logthis("writing data"); |
|
while (my ($current_symb,$param_hash) = each(%student_data)) { |
|
my @Parameters = %{$param_hash}; |
|
my $value = join(':',map { &Apache::lonnet::escape($_); } |
|
@Parameters); |
|
# Store away the values |
|
$cache{$key.&Apache::lonnet::escape($current_symb)}=$value; |
|
} |
|
$cache{$key.'time'}=$time_of_retrieval; |
|
untie(%cache); |
|
} |
|
} else { |
|
&Apache::lonnet::logthis('retrieving cached data '); |
|
if (tie(%cache,'GDBM_File',$cachefilename,&GDBM_READER(),0640)) { |
|
if (defined($symb)) { |
|
my $searchkey = $key.&Apache::lonnet::escape($symb); |
|
if (exists($cache{$searchkey})) { |
|
$student_data{$symb} = &make_into_hash($cache{$searchkey}); |
|
} |
|
} else { |
|
my $searchkey = '^'.$key.'(.*)$';#' |
|
while (my ($testkey,$params)=each(%cache)) { |
|
if ($testkey =~ /$searchkey/) { # \Q \E? May be necc. |
|
my $tmpsymb = $1; |
|
next if ($tmpsymb =~ 'time'); |
|
# &Apache::lonnet::logthis('found '.$tmpsymb.':'); |
|
$student_data{&Apache::lonnet::unescape($tmpsymb)} = |
|
&make_into_hash($params); |
|
} |
|
} |
|
} |
|
untie(%cache); |
|
} |
|
} |
|
if (! defined($symb)) { |
|
# &Apache::lonnet::logthis("returning all data"); |
|
return %student_data; |
|
} elsif (exists($student_data{$symb})) { |
|
# &Apache::lonnet::logthis("returning data for symb=".$symb); |
|
return %{$student_data{$symb}}; |
|
} else { |
|
return (); |
|
} |
|
} |
|
|
################################################ |
################################################ |
################################################ |
################################################ |
|
|