--- loncom/interface/loncoursedata.pm 2002/08/03 18:47:24 1.11 +++ loncom/interface/loncoursedata.pm 2003/03/03 21:52:24 1.55 @@ -1,7 +1,6 @@ # The LearningOnline Network with CAPA -# (Publication Handler # -# $Id: loncoursedata.pm,v 1.11 2002/08/03 18:47:24 stredwic Exp $ +# $Id: loncoursedata.pm,v 1.55 2003/03/03 21:52:24 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -35,12 +34,13 @@ loncoursedata =head1 SYNOPSIS -Set of functions that download and process student information. +Set of functions that download and process student and course information. =head1 PACKAGES USED Apache::Constants qw(:common :http) Apache::lonnet() + Apache::lonhtmlcommon HTML::TokeParser GDBM_File @@ -51,6 +51,7 @@ package Apache::loncoursedata; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet(); +use Apache::lonhtmlcommon; use HTML::TokeParser; use GDBM_File; @@ -58,11 +59,8 @@ use GDBM_File; =head1 DOWNLOAD INFORMATION -This section contains all the files that get data from other servers -and/or itself. There is one function that has a call to get remote -information but isn't included here which is ProcessTopLevelMap. The -usage was small enough to be ignored, but that portion may be moved -here in the future. +This section contains all the functions that get data from other servers +and/or itself. =cut @@ -73,17 +71,28 @@ here in the future. =item &DownloadClasslist() Collects lastname, generation, middlename, firstname, PID, and section for each -student from their environment database. The list of students is built from -collecting a classlist for the course that is to be displayed. +student from their environment database. The section data is also download, though +it is in a rough format, and is processed later. The list of students is built from +collecting a classlist for the course that is to be displayed. Once the classlist +has been downloaded, its date stamp is recorded. Unless the datestamp for the +class database is reset or is modified, this data will not be downloaded again. +Also, there was talk about putting the fullname and section +and perhaps other pieces of data into the classlist file. This would +reduce the number of different file accesses and reduce the amount of +processing on this side. =over 4 -Input: $courseID, $c +Input: $courseID, $lastDownloadTime, $c $courseID: The id of the course +$lastDownloadTime: This is the date stamp for when this information was +last gathered. If it is set to Not downloaded, it will gather the data +again, though it currently does not remove the old data. + $c: The connection class that can determine if the browser has aborted. It -is used to short circuit this function so that it doesn't continue to +is used to short circuit this function so that it does not continue to get information when there is no need. Output: \%classlist @@ -93,10 +102,14 @@ Output: \%classlist -A list of student name:domain (as keys) (known below as $name) -A hash pointer for each student containing lastname, generation, firstname, -middlename, and PID : Key is $name.'studentInformation' +middlename, and PID : Key is $name.studentInformation -A hash pointer to each students section data : Key is $name.section +-If there was an error in dump, it will be returned in the hash. See +the error codes for dump in lonnet. Also, an error key will be +generated if an abort occurs. + =back =cut @@ -106,25 +119,32 @@ sub DownloadClasslist { my ($courseDomain,$courseNumber)=split(/\_/,$courseID); my %classlist; - my $modifiedTime = &GetFileTimestamp($courseDomain, $courseNumber, - 'classlist.db', - $Apache::lonnet::perlvar{'lonUsersDir'}); - + my $modifiedTime = &Apache::lonnet::GetFileTimestamp($courseDomain, + $courseNumber, + 'classlist.db', + $Apache::lonnet::perlvar{'lonUsersDir'}); + + # Always download the information if lastDownloadTime is set to + # Not downloaded, otherwise it is only downloaded if the file + # has been updated and has a more recent date stamp if($lastDownloadTime ne 'Not downloaded' && $lastDownloadTime >= $modifiedTime && $modifiedTime >= 0) { + # Data is not gathered so return UpToDate as true. This + # will be interpreted in ProcessClasslist $classlist{'lastDownloadTime'}=time; $classlist{'UpToDate'} = 'true'; return \%classlist; } %classlist=&Apache::lonnet::dump('classlist',$courseDomain, $courseNumber); - my ($checkForError)=keys (%classlist); - if($checkForError =~ /^(con_lost|error|no_such_host)/i) { - return \%classlist; + foreach(keys (%classlist)) { + if(/^(con_lost|error|no_such_host)/i) { + return; + } } foreach my $name (keys(%classlist)) { - if($c->aborted()) { + if(defined($c) && ($c->aborted())) { $classlist{'error'}='aborted'; return \%classlist; } @@ -159,22 +179,30 @@ sub DownloadClasslist { =item &DownloadCourseInformation() -Dump of all the course information for a single student. There is no -pruning of data, it is all stored in a hash and returned. It also +Dump of all the course information for a single student. The data can be +pruned by making use of dumps regular expression arguement. This function +also takes a regular expression which it passes straight through to dump. +The data is no escaped, because it is done elsewhere. It also checks the timestamp of the students course database file and only downloads if it has been modified since the last download. =over 4 -Input: $name, $courseID +Input: $namedata, $courseID, $lastDownloadTime, $WhatIWant -$name: student name:domain +$namedata: student name:domain $courseID: The id of the course +$lastDownloadTime: This is the date stamp for when this information was +last gathered. If it is set to Not downloaded, it will gather the data +again, though it currently does not remove the old data. + +$WhatIWant: Regular expression used to get selected data with dump + Output: \%courseData -\%courseData: A hash pointer to the raw data from the student's course +\%courseData: A hash pointer to the raw data from the students course database. =back @@ -182,31 +210,40 @@ database. =cut sub DownloadCourseInformation { - my ($namedata,$courseID,$lastDownloadTime)=@_; + my ($namedata,$courseID,$lastDownloadTime,$WhatIWant)=@_; my %courseData; my ($name,$domain) = split(/\:/,$namedata); - my $modifiedTime = &GetFileTimestamp($domain, $name, + my $modifiedTime = &Apache::lonnet::GetFileTimestamp($domain, $name, $courseID.'.db', $Apache::lonnet::perlvar{'lonUsersDir'}); - if($lastDownloadTime >= $modifiedTime) { - $courseData{'lastDownloadTime'}=time; - $courseData{'UpToDate'} = 'true'; + 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; + $courseData{$namedata.':UpToDate'} = 'true'; return \%courseData; } # Download course data - my $WhatIWant = '(version:(\w|\/|\.)+?$|'; - $WhatIWant .= '\d+?:(\w|\/|\.)+?:(resource\.\d+\.'; - $WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))'; - $WhatIWant .= '|timestamp)'; - $WhatIWant .= ')'; -# %courseData=&Apache::lonnet::dump($courseID, $domain, $name, $WhatIWant); - %courseData=&Apache::lonnet::dump($courseID, $domain, $name); + if(!defined($WhatIWant)) { + # set the regular expression to everything by setting it to period + $WhatIWant = '.'; + } + %courseData=&Apache::lonnet::dump($courseID, $domain, $name, $WhatIWant); $courseData{'UpToDate'} = 'false'; $courseData{'lastDownloadTime'}=time; - return \%courseData; + + my %newData; + foreach (keys(%courseData)) { + # need to have the keys to be prepended with the name:domain of the + # student to reduce data collision later. + $newData{$namedata.':'.$_} = $courseData{$_}; + } + + return \%newData; } # ----- END DOWNLOAD INFORMATION --------------------------------------- @@ -216,15 +253,136 @@ sub DownloadCourseInformation { =head1 PROCESSING FUNCTIONS These functions process all the data for all the students. Also, they -are the only functions that access the cache database for writing. Thus -they are the only functions that cache data. The downloading and caching -were separated to reduce problems with stopping downloading then can't -tie hash to database later. +are the functions that access the cache database for writing the majority of +the time. The downloading and caching were separated to reduce problems +with stopping downloading then can not tie hash to database later. =cut # ----- PROCESSING FUNCTIONS --------------------------------------- +#################################################### +#################################################### + +=pod + +=item &get_sequence_assessment_data() + +AT THIS TIME THE USE OF THIS FUNCTION IS *NOT* RECOMMENDED + +Use lonnavmaps to build a data structure describing the order and +assessment contents of each sequence in the current course. + +The returned structure is a hash reference. + +{ title => 'title', + symb => 'symb', + source => '/s/o/u/r/c/e', + type => (container|assessment), + num_assess => 2, # only for container + parts => [11,13,15], # only for assessment + response_ids => [12,14,16], # only for assessment + contents => [........] # only for container +} + +$hash->{'contents'} is a reference to an array of hashes of the same structure. + +Also returned are array references to the sequences and assessments contained +in the course. + + +=cut + +#################################################### +#################################################### +sub get_sequence_assessment_data { + my $fn=$ENV{'request.course.fn'}; + ## + ## use navmaps + my $navmap = Apache::lonnavmaps::navmap->new($fn.".db",$fn."_parms.db", + 1,0); + if (!defined($navmap)) { + return 'Can not open Coursemap'; + } + my $iterator = $navmap->getIterator(undef, undef, undef, 1); + ## + ## Prime the pump + ## + ## We are going to loop until we run out of sequences/pages to explore for + ## resources. This means we have to start out with something to look + ## at. + my $title = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; + my $symb = 'top'; + my $src = 'not applicable'; + # + my @Sequences; + my @Assessments; + my @Nested_Sequences = (); # Stack of sequences, keeps track of depth + my $top = { title => $title, + src => $src, + symb => $symb, + type => 'container', + num_assess => 0, + num_assess_parts => 0, + contents => [], }; + push (@Sequences,$top); + push (@Nested_Sequences, $top); + # + # We need to keep track of which sequences contain homework problems + # + my $previous; + my $curRes = $iterator->next(); # BEGIN_MAP + $curRes = $iterator->next(); # The first item in the top level map. + while (scalar(@Nested_Sequences)) { + $previous = $curRes; + $curRes = $iterator->next(); + my $currentmap = $Nested_Sequences[-1]; # Last one on the stack + if ($curRes == $iterator->BEGIN_MAP()) { + # get the map itself, instead of BEGIN_MAP + $title = $previous->title(); + $symb = $previous->symb(); + $src = $previous->src(); + my $newmap = { title => $title, + src => $src, + symb => $symb, + type => 'container', + num_assess => 0, + contents => [], + }; + push (@{$currentmap->{'contents'}},$newmap); # this is permanent + push (@Sequences,$newmap); + push (@Nested_Sequences, $newmap); # this is a stack + next; + } + if ($curRes == $iterator->END_MAP()) { + pop(@Nested_Sequences); + next; + } + next if (! ref($curRes)); + next if (! $curRes->is_problem());# && !$curRes->randomout); + # Okay, from here on out we only deal with assessments + $title = $curRes->title(); + $symb = $curRes->symb(); + $src = $curRes->src(); + my $parts = $curRes->parts(); + my $assessment = { title => $title, + src => $src, + symb => $symb, + type => 'assessment', + parts => $parts, + num_parts => scalar(@$parts), + }; + push(@Assessments,$assessment); + push(@{$currentmap->{'contents'}},$assessment); + $currentmap->{'num_assess'}++; + $currentmap->{'num_assess_parts'}+= scalar(@$parts); + } + return ($top,\@Sequences,\@Assessments); +} + +################################################# +################################################# + =pod =item &ProcessTopResourceMap() @@ -274,17 +432,29 @@ sub ProcessTopResourceMap { return 'Can not open Coursemap.'; } + my $oldkeys; + delete $cache->{'OptionResponses'}; + if(defined($cache->{'ResourceKeys'})) { + $oldkeys = $cache->{'ResourceKeys'}; + foreach (split(':::', $cache->{'ResourceKeys'})) { + delete $cache->{$_}; + } + delete $cache->{'ResourceKeys'}; + } + # Initialize state machine. Set information pointing to top level map. my (@sequences, @currentResource, @finishResource); my ($currentSequence, $currentResourceID, $lastResourceID); - $currentResourceID=$hash{'ids_/res/'.$ENV{'request.course.uri'}}; + $currentResourceID=$hash{'ids_'. + &Apache::lonnet::clutter($ENV{'request.course.uri'})}; push(@currentResource, $currentResourceID); $lastResourceID=-1; $currentSequence=-1; my $topLevelSequenceNumber = $currentSequence; my %sequenceRecord; + my %allkeys; while(1) { if($c->aborted()) { last; @@ -309,6 +479,7 @@ sub ProcessTopResourceMap { } else { $cache->{'orderedSequences'}.=':'.$currentSequence; } + $allkeys{'orderedSequences'}++; $lastResourceID=$hash{'map_finish_'. $hash{'src_'.$currentResourceID}}; @@ -323,6 +494,7 @@ sub ProcessTopResourceMap { last; } } + next; } # Handle gradable resources: exams, problems, etc @@ -342,20 +514,24 @@ sub ProcessTopResourceMap { $currentResourceID})); $cache->{$currentResourceID.':problem'}=$Problem; + $allkeys{$currentResourceID.':problem'}++; if(!defined($cache->{$currentSequence.':problems'})) { $cache->{$currentSequence.':problems'}=$currentResourceID; } else { $cache->{$currentSequence.':problems'}.= ':'.$currentResourceID; } + $allkeys{$currentSequence.':problems'}++; my $meta=$hash{'src_'.$currentResourceID}; # $cache->{$currentResourceID.':title'}= # &Apache::lonnet::metdata($meta,'title'); $cache->{$currentResourceID.':title'}= $hash{'title_'.$currentResourceID}; + $allkeys{$currentResourceID.':title'}++; $cache->{$currentResourceID.':source'}= $hash{'src_'.$currentResourceID}; + $allkeys{$currentResourceID.':source'}++; # Get Parts for problem my %beenHere; @@ -372,6 +548,8 @@ sub ProcessTopResourceMap { $cache->{$currentSequence.':'.$currentResourceID. ':parts'}.=':'.$partId; } + $allkeys{$currentSequence.':'.$currentResourceID. + ':parts'}++; } if($beenHere{'r:'.$partId.':'.$responseId} == 0) { $beenHere{'r:'.$partId.':'.$responseId}++; @@ -385,18 +563,22 @@ sub ProcessTopResourceMap { ':'.$partId.':responseIDs'}.=':'. $responseId; } + $allkeys{$currentSequence.':'.$currentResourceID.':'. + $partId.':responseIDs'}++; } if(/^optionresponse/ && $beenHere{'o:'.$partId.':'.$currentResourceID} == 0) { $beenHere{'o:'.$partId.$currentResourceID}++; if(defined($cache->{'OptionResponses'})) { $cache->{'OptionResponses'}.= ':::'. - $currentResourceID.':'. + $currentSequence.':'.$currentResourceID.':'. $partId.':'.$responseId; } else { - $cache->{'OptionResponses'}= $currentResourceID. - ':'.$partId.':'.$responseId; + $cache->{'OptionResponses'}= $currentSequence.':'. + $currentResourceID.':'. + $partId.':'.$responseId; } + $allkeys{'OptionResponses'}++; } } } @@ -412,8 +594,10 @@ sub ProcessTopResourceMap { # Capture sequence information here $cache->{$currentSequence.':title'}= $hash{'title_'.$currentResourceID}; + $allkeys{$currentSequence.':title'}++; $cache->{$currentSequence.':source'}= $hash{'src_'.$currentResourceID}; + $allkeys{$currentSequence.':source'}++; my $totalProblems=0; foreach my $currentProblem (split(/\:/, @@ -427,9 +611,9 @@ sub ProcessTopResourceMap { } my @titleLength=split(//,$cache->{$currentSequence. ':title'}); - # $extra is 3 for problems correct and 3 for space + # $extra is 5 for problems correct and 3 for space # between problems correct and problem output - my $extra = 6; + my $extra = 8; if(($totalProblems + $extra) > (scalar @titleLength)) { $cache->{$currentSequence.':columnWidth'}= $totalProblems + $extra; @@ -437,6 +621,7 @@ sub ProcessTopResourceMap { $cache->{$currentSequence.':columnWidth'}= (scalar @titleLength); } + $allkeys{$currentSequence.':columnWidth'}++; } else { # Remove sequence from list, if it contains no problems to # display. @@ -457,9 +642,9 @@ sub ProcessTopResourceMap { # big problem, need to handle. Next is probably wrong my $errorMessage = 'Big problem in '; $errorMessage .= 'loncoursedata::ProcessTopLevelMap.'; - $errorMessage .= ' bighash to_$currentResourceID not defined!'; + $errorMessage .= " bighash to_$currentResourceID not defined!"; &Apache::lonnet::logthis($errorMessage); - last; + if (!defined($currentResourceID)) {last;} } my @nextResources=(); foreach (split(/\,/,$hash{'to_'.$currentResourceID})) { @@ -473,6 +658,15 @@ sub ProcessTopResourceMap { $currentResourceID=pop(@currentResource); } + my @theKeys = keys(%allkeys); + my $newkeys = join(':::', @theKeys); + $cache->{'ResourceKeys'} = join(':::', $newkeys); + if($newkeys ne $oldkeys) { + $cache->{'ResourceUpdated'} = 'true'; + } else { + $cache->{'ResourceUpdated'} = 'false'; + } + unless (untie(%hash)) { &Apache::lonnet::logthis("WARNING: ". "Could not untie coursemap $fn (browse)". @@ -495,7 +689,6 @@ Takes data downloaded for a student and stored in cache data. The username, domain, class related date, PID, full name, and section are all processed here. - =over 4 Input: $cache, $classlist, $courseID, $ChartDB, $c @@ -504,7 +697,7 @@ $cache: A hash pointer to store the data $classlist: The hash of data collected about a student from &DownloadClasslist(). The hash contains a list of students, a pointer -to a hash of student information for each student, and each student's section +to a hash of student information for each student, and each students section number. $courseID: The course ID @@ -517,7 +710,24 @@ browser Output: @names @names: An array of students whose information has been processed, and are to -be considered in an arbitrary order. +be considered in an arbitrary order. The entries in @names are of the form +username:domain. + +The values in $cache are as follows: + + *NOTE: for the following $name implies username:domain + $name.':error' only defined if an error occured. Value + contains the error message + $name.':lastDownloadTime' unconverted time of the last update of a + student\'s course data + $name.'updateTime' coverted time of the last update of a + student\'s course data + $name.':username' username of a student + $name.':domain' domain of a student + $name.':fullname' full name of a student + $name.':id' PID of a student + $name.':Status' active/expired status of a student + $name.':section' section of a student =back @@ -540,10 +750,8 @@ sub ProcessClasslist { if($c->aborted()) { return (); } - push(@names,$name); - my $studentInformation = $classlist->{$name.':studentInformation'}, - my $sectionData = $classlist->{$name.':sections'}, - my $date = $classlist->{$name}, + my $studentInformation = $classlist->{$name.':studentInformation'}; + my $date = $classlist->{$name}; my ($studentName,$studentDomain) = split(/\:/,$name); $cache->{$name.':username'}=$studentName; @@ -554,26 +762,31 @@ sub ProcessClasslist { $cache->{$name.':updateTime'}=' Not updated'; } - my ($checkForError)=keys(%$studentInformation); - if($checkForError =~ /^(con_lost|error|no_such_host)/i) { - $cache->{$name.':error'}= - 'Could not download student environment data.'; - $cache->{$name.':fullname'}=''; - $cache->{$name.':id'}=''; - } else { - $cache->{$name.':fullname'}=&ProcessFullName( + my $error = 0; + foreach(keys(%$studentInformation)) { + if(/^(con_lost|error|no_such_host)/i) { + $cache->{$name.':error'}= + 'Could not download student environment data.'; + $cache->{$name.':fullname'}=''; + $cache->{$name.':id'}=''; + $error = 1; + } + } + next if($error); + push(@names,$name); + $cache->{$name.':fullname'}=&ProcessFullName( $studentInformation->{'lastname'}, $studentInformation->{'generation'}, $studentInformation->{'firstname'}, $studentInformation->{'middlename'}); - $cache->{$name.':id'}=$studentInformation->{'id'}; - } + $cache->{$name.':id'}=$studentInformation->{'id'}; my ($end, $start)=split(':',$date); $courseID=~s/\_/\//g; $courseID=~s/^(\w)/\/$1/; my $sec=''; + my $sectionData = $classlist->{$name.':sections'}; foreach my $key (keys (%$sectionData)) { my $value = $sectionData->{$key}; if ($key=~/^$courseID(?:\/)*(\w+)*\_st$/) { @@ -581,7 +794,7 @@ sub ProcessClasslist { if($key eq $courseID.'_st') { $tempsection=''; } - my ($dummy,$roleend,$rolestart)=split(/\_/,$value); + my (undef,$roleend,$rolestart)=split(/\_/,$value); if($roleend eq $end && $rolestart eq $start) { $sec = $tempsection; last; @@ -622,7 +835,7 @@ Takes the course data downloaded for a s &DownloadCourseInformation() and breaks it up into key value pairs to be stored in the cached data. The keys are comprised of the $username:$domain:$keyFromCourseDatabase. The student username:domain is -stored away signifying that the student's information has been downloaded and +stored away signifying that the students information has been downloaded and can be reused from cached data. =over 4 @@ -650,42 +863,267 @@ will only exist if an error occured. Th sub ProcessStudentData { my ($cache,$courseData,$name)=@_; - if($courseData->{'UpToDate'} eq 'true') { - $cache->{$name.':lastDownloadTime'}=$courseData->{'lastDownloadTime'}; - if($courseData->{'lastDownloadTime'} eq 'Not downloaded') { - $cache->{$name.':updateTime'} = ' Not updated'; - } else { - $cache->{$name.':updateTime'}= - localtime($courseData->{'lastDownloadTime'}); - } + if(!&CheckDateStampError($courseData, $cache, $name)) { return; } - my @courseKeys = keys(%$courseData); + # This little delete thing, should not be here. Move some other + # time though. + if(defined($cache->{$name.':keys'})) { + foreach (split(':::', $cache->{$name.':keys'})) { + delete $cache->{$name.':'.$_}; + } + delete $cache->{$name.':keys'}; + } - foreach (@courseKeys) { - if(/^(con_lost|error|no_such_host)/i) { - $cache->{$name.':error'}='Could not download course data.'; - return; - } + my %courseKeys; + # user name:domain was prepended earlier in DownloadCourseInformation + foreach (keys %$courseData) { + my $currentKey = $_; + $currentKey =~ s/^$name//; + $courseKeys{$currentKey}++; + $cache->{$_}=$courseData->{$_}; } - $cache->{$name.':lastDownloadTime'}=$courseData->{'lastDownloadTime'}; - if($courseData->{'lastDownloadTime'} eq 'Not downloaded') { - $cache->{$name.':updateTime'} = ' Not updated'; - } else { - $cache->{$name.':updateTime'}= - localtime($courseData->{'lastDownloadTime'}); + $cache->{$name.':keys'} = join(':::', keys(%courseKeys)); + + return; +} + +=pod + +=item &ExtractStudentData() + +HISTORY: This function originally existed in every statistics module, +and performed different tasks, the had some overlap. Due to the need +for the data from the different modules, they were combined into +a single function. + +This function now extracts all the necessary course data for a student +from what was downloaded from their homeserver. There is some extra +time overhead compared to the ProcessStudentInformation function, but +it would have had to occurred at some point anyways. This is now +typically called while downloading the data it will process. It is +the brother function to ProcessStudentInformation. + +=over 4 + +Input: $input, $output, $data, $name + +$input: A hash that contains the input data to be processed + +$output: A hash to contain the processed data + +$data: A hash containing the information on what is to be +processed and how (basically). + +$name: username:domain + +The input is slightly different here, but is quite simple. +It is currently used where the $input, $output, and $data +can and are often the same hashes, but they do not need +to be. + +Output: None + +*NOTE: There is no output, but an error message is stored away in the cache +data. This is checked in &FormatStudentData(). The key username:domain:error +will only exist if an error occured. The error is an error from +&DownloadCourseInformation(). + +=back + +=cut + +sub ExtractStudentData { + my ($input, $output, $data, $name)=@_; + + if(!&CheckDateStampError($input, $data, $name)) { + return; } - foreach (@courseKeys) { - $cache->{$name.':'.$_}=$courseData->{$_}; + + # This little delete thing, should not be here. Move some other + # time though. + my %allkeys; + if(defined($output->{$name.':keys'})) { + foreach (split(':::', $output->{$name.':keys'})) { + delete $output->{$name.':'.$_}; + } + delete $output->{$name.':keys'}; + } + + my ($username,$domain)=split(':',$name); + + my $Version; + my $problemsCorrect = 0; + my $totalProblems = 0; + my $problemsSolved = 0; + my $numberOfParts = 0; + my $totalAwarded = 0; + foreach my $sequence (split(':', $data->{'orderedSequences'})) { + foreach my $problemID (split(':', $data->{$sequence.':problems'})) { + my $problem = $data->{$problemID.':problem'}; + my $LatestVersion = $input->{$name.':version:'.$problem}; + + # Output dashes for all the parts of this problem if there + # is no version information about the current problem. + $output->{$name.':'.$problemID.':NoVersion'} = 'false'; + $allkeys{$name.':'.$problemID.':NoVersion'}++; + if(!$LatestVersion) { + foreach my $part (split(/\:/,$data->{$sequence.':'. + $problemID. + ':parts'})) { + $output->{$name.':'.$problemID.':'.$part.':tries'} = 0; + $output->{$name.':'.$problemID.':'.$part.':awarded'} = 0; + $output->{$name.':'.$problemID.':'.$part.':code'} = ' '; + $allkeys{$name.':'.$problemID.':'.$part.':tries'}++; + $allkeys{$name.':'.$problemID.':'.$part.':awarded'}++; + $allkeys{$name.':'.$problemID.':'.$part.':code'}++; + $totalProblems++; + } + $output->{$name.':'.$problemID.':NoVersion'} = 'true'; + next; + } + + my %partData=undef; + # Initialize part data, display skips correctly + # Skip refers to when a student made no submissions on that + # part/problem. + foreach my $part (split(/\:/,$data->{$sequence.':'. + $problemID. + ':parts'})) { + $partData{$part.':tries'}=0; + $partData{$part.':code'}=' '; + $partData{$part.':awarded'}=0; + $partData{$part.':timestamp'}=0; + foreach my $response (split(':', $data->{$sequence.':'. + $problemID.':'. + $part.':responseIDs'})) { + $partData{$part.':'.$response.':submission'}=''; + } + } + + # Looping through all the versions of each part, starting with the + # oldest version. Basically, it gets the most recent + # set of grade data for each part. + my @submissions = (); + for(my $Version=1; $Version<=$LatestVersion; $Version++) { + foreach my $part (split(/\:/,$data->{$sequence.':'. + $problemID. + ':parts'})) { + + if(!defined($input->{"$name:$Version:$problem". + ":resource.$part.solved"})) { + # No grade for this submission, so skip + next; + } + + my $tries=0; + my $code=' '; + my $awarded=0; + + $tries = $input->{$name.':'.$Version.':'.$problem. + ':resource.'.$part.'.tries'}; + $awarded = $input->{$name.':'.$Version.':'.$problem. + ':resource.'.$part.'.awarded'}; + + $partData{$part.':awarded'}=($awarded) ? $awarded : 0; + $partData{$part.':tries'}=($tries) ? $tries : 0; + + $partData{$part.':timestamp'}=$input->{$name.':'.$Version.':'. + $problem. + ':timestamp'}; + if(!$input->{$name.':'.$Version.':'.$problem.':resource.'.$part. + '.previous'}) { + foreach my $response (split(':', + $data->{$sequence.':'. + $problemID.':'. + $part.':responseIDs'})) { + @submissions=($input->{$name.':'.$Version.':'. + $problem. + ':resource.'.$part.'.'. + $response.'.submission'}, + @submissions); + } + } + + my $val = $input->{$name.':'.$Version.':'.$problem. + ':resource.'.$part.'.solved'}; + if ($val eq 'correct_by_student') {$code = '*';} + elsif ($val eq 'correct_by_override') {$code = '+';} + elsif ($val eq 'incorrect_attempted') {$code = '.';} + elsif ($val eq 'incorrect_by_override'){$code = '-';} + elsif ($val eq 'excused') {$code = 'x';} + elsif ($val eq 'ungraded_attempted') {$code = '#';} + else {$code = ' ';} + $partData{$part.':code'}=$code; + } + } + + foreach my $part (split(/\:/,$data->{$sequence.':'.$problemID. + ':parts'})) { + $output->{$name.':'.$problemID.':'.$part.':wrong'} = + $partData{$part.':tries'}; + $allkeys{$name.':'.$problemID.':'.$part.':wrong'}++; + + if($partData{$part.':code'} eq '*') { + $output->{$name.':'.$problemID.':'.$part.':wrong'}--; + $problemsCorrect++; + } elsif($partData{$part.':code'} eq '+') { + $output->{$name.':'.$problemID.':'.$part.':wrong'}--; + $problemsCorrect++; + } + + $output->{$name.':'.$problemID.':'.$part.':tries'} = + $partData{$part.':tries'}; + $output->{$name.':'.$problemID.':'.$part.':code'} = + $partData{$part.':code'}; + $output->{$name.':'.$problemID.':'.$part.':awarded'} = + $partData{$part.':awarded'}; + $allkeys{$name.':'.$problemID.':'.$part.':tries'}++; + $allkeys{$name.':'.$problemID.':'.$part.':code'}++; + $allkeys{$name.':'.$problemID.':'.$part.':awarded'}++; + + $totalAwarded += $partData{$part.':awarded'}; + $output->{$name.':'.$problemID.':'.$part.':timestamp'} = + $partData{$part.':timestamp'}; + $allkeys{$name.':'.$problemID.':'.$part.':timestamp'}++; + + foreach my $response (split(':', $data->{$sequence.':'. + $problemID.':'. + $part.':responseIDs'})) { + $output->{$name.':'.$problemID.':'.$part.':'.$response. + ':submission'}=join(':::',@submissions); + $allkeys{$name.':'.$problemID.':'.$part.':'.$response. + ':submission'}++; + } + + if($partData{$part.':code'} ne 'x') { + $totalProblems++; + } + } + } + + $output->{$name.':'.$sequence.':problemsCorrect'} = $problemsCorrect; + $allkeys{$name.':'.$sequence.':problemsCorrect'}++; + $problemsSolved += $problemsCorrect; + $problemsCorrect=0; } + $output->{$name.':problemsSolved'} = $problemsSolved; + $output->{$name.':totalProblems'} = $totalProblems; + $output->{$name.':totalAwarded'} = $totalAwarded; + $allkeys{$name.':problemsSolved'}++; + $allkeys{$name.':totalProblems'}++; + $allkeys{$name.':totalAwarded'}++; + + $output->{$name.':keys'} = join(':::', keys(%allkeys)); + return; } sub LoadDiscussion { - my ( $courseID)=@_; + my ($courseID)=@_; my %Discuss=(); my %contrib=&Apache::lonnet::dump( $courseID, @@ -715,12 +1153,47 @@ sub LoadDiscussion { =head1 HELPER FUNCTIONS These are just a couple of functions do various odd and end -jobs. +jobs. There was also a couple of bulk functions added. These are +&DownloadStudentCourseData(), &DownloadStudentCourseDataSeparate(), and +&CheckForResidualDownload(). These functions now act as the interface +for downloading student course data. The statistical modules should +no longer make the calls to dump and download and process etc. They +make calls to these bulk functions to get their data. =cut # ----- HELPER FUNCTIONS ----------------------------------------------- +sub CheckDateStampError { + my ($courseData, $cache, $name)=@_; + if($courseData->{$name.':UpToDate'} eq 'true') { + $cache->{$name.':lastDownloadTime'} = + $courseData->{$name.':lastDownloadTime'}; + if($courseData->{$name.':lastDownloadTime'} eq 'Not downloaded') { + $cache->{$name.':updateTime'} = ' Not updated'; + } else { + $cache->{$name.':updateTime'}= + localtime($courseData->{$name.':lastDownloadTime'}); + } + return 0; + } + + $cache->{$name.':lastDownloadTime'}=$courseData->{$name.':lastDownloadTime'}; + if($courseData->{$name.':lastDownloadTime'} eq 'Not downloaded') { + $cache->{$name.':updateTime'} = ' Not updated'; + } else { + $cache->{$name.':updateTime'}= + localtime($courseData->{$name.':lastDownloadTime'}); + } + + if(defined($courseData->{$name.':error'})) { + $cache->{$name.':error'}=$courseData->{$name.':error'}; + return 0; + } + + return 1; +} + =pod =item &ProcessFullName() @@ -735,37 +1208,22 @@ sub ProcessFullName { my ($lastname, $generation, $firstname, $middlename)=@_; my $Str = ''; + # Strip whitespace preceeding & following name components. + $lastname =~ s/(\s+$|^\s+)//g; + $generation =~ s/(\s+$|^\s+)//g; + $firstname =~ s/(\s+$|^\s+)//g; + $middlename =~ s/(\s+$|^\s+)//g; + if($lastname ne '') { - $Str .= $lastname.' '; - if($generation ne '') { - $Str .= $generation; - } else { - chop($Str); - } - $Str .= ', '; - if($firstname ne '') { - $Str .= $firstname.' '; - } - if($middlename ne '') { - $Str .= $middlename; - } else { - chop($Str); - if($firstname eq '') { - chop($Str); - } - } + $Str .= $lastname; + $Str .= ' '.$generation if ($generation ne ''); + $Str .= ','; + $Str .= ' '.$firstname if ($firstname ne ''); + $Str .= ' '.$middlename if ($middlename ne ''); } else { - if($firstname ne '') { - $Str .= $firstname.' '; - } - if($middlename ne '') { - $Str .= $middlename.' '; - } - if($generation ne '') { - $Str .= $generation; - } else { - chop($Str); - } + $Str .= $firstname if ($firstname ne ''); + $Str .= ' '.$middlename if ($middlename ne ''); + $Str .= ' '.$generation if ($generation ne ''); } return $Str; @@ -789,7 +1247,7 @@ $ChartDB: The name of the cache database Output: -1, 0, 1 --1: Couldn't tie database +-1: Could not tie database 0: Use cached data 1: New cache database created, use that. @@ -835,22 +1293,481 @@ sub TestCacheData { return $isCached; } -sub GetFileTimestamp { - my ($studentDomain,$studentName,$filename,$root)=@_; - $studentDomain=~s/\W//g; - $studentName=~s/\W//g; - my $subdir=$studentName.'__'; - $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/; - my $proname="$studentDomain/$subdir/$studentName"; - $proname .= '/'.$filename; - my @dir = &Apache::lonnet::dirlist($proname, $studentDomain, $studentName, - $root); - my $fileStat = $dir[0]; - my @stats = split('&', $fileStat); - if(@stats) { - return $stats[9]; +sub DownloadStudentCourseData { + my ($students,$checkDate,$cacheDB,$extract,$status,$courseID,$r,$c)=@_; + + my $title = 'LON-CAPA Statistics'; + my $heading = 'Download and Process Course Data'; + my $studentCount = scalar(@$students); + + my $WhatIWant; + $WhatIWant = '(^version:|'; + $WhatIWant .= '^\d+:.+?:(resource\.\d+\.'; + $WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))\s*$';#' + $WhatIWant .= '|timestamp)'; + $WhatIWant .= ')'; +# $WhatIWant = '.'; + + my %prog_state; + if($status eq 'true') { + %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title, + $heading,($#$students)+1); + } + + foreach (@$students) { + my %cache; + + if($c->aborted()) { return 'Aborted'; } + + if($status eq 'true') { + &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, + 'last student '.$_); + } + + my $downloadTime='Not downloaded'; + my $needUpdate = 'false'; + if($checkDate eq 'true' && + tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { + $downloadTime = $cache{$_.':lastDownloadTime'}; + $needUpdate = $cache{'ResourceUpdated'}; + untie(%cache); + } + + if($c->aborted()) { return 'Aborted'; } + + if($needUpdate eq 'true') { + $downloadTime = 'Not downloaded'; + } + my $courseData = + &DownloadCourseInformation($_, $courseID, $downloadTime, + $WhatIWant); + if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) { + foreach my $key (keys(%$courseData)) { + if($key =~ /^(con_lost|error|no_such_host)/i) { + $courseData->{$_.':error'} = 'No course data for '.$_; + last; + } + } + if($extract eq 'true') { + &ExtractStudentData($courseData, \%cache, \%cache, $_); + } else { + &ProcessStudentData(\%cache, $courseData, $_); + } + untie(%cache); + } else { + next; + } + } + if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); } + + return 'OK'; +} + +sub DownloadStudentCourseDataSeparate { + my ($students,$checkDate,$cacheDB,$extract,$status,$courseID,$r,$c)=@_; + my $residualFile = $Apache::lonnet::tmpdir.$courseID.'DownloadFile.db'; + my $title = 'LON-CAPA Statistics'; + my $heading = 'Download Course Data'; + + my $WhatIWant; + $WhatIWant = '(^version:|'; + $WhatIWant .= '^\d+:.+?:(resource\.\d+\.'; + $WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))\s*$';#' + $WhatIWant .= '|timestamp)'; + $WhatIWant .= ')'; + + &CheckForResidualDownload($cacheDB, 'true', 'true', $courseID, $r, $c); + + my $studentCount = scalar(@$students); + my %prog_state; + if($status eq 'true') { + %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title, + $heading,($#$students)+1); + } + my $displayString=''; + foreach (@$students) { + if($c->aborted()) { + return 'Aborted'; + } + + if($status eq 'true') { + &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, + 'last student '.$_); + } + + my %cache; + my $downloadTime='Not downloaded'; + my $needUpdate = 'false'; + if($checkDate eq 'true' && + tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { + $downloadTime = $cache{$_.':lastDownloadTime'}; + $needUpdate = $cache{'ResourceUpdated'}; + untie(%cache); + } + + if($c->aborted()) { + return 'Aborted'; + } + + if($needUpdate eq 'true') { + $downloadTime = 'Not downloaded'; + } + + my $error = 0; + my $courseData = + &DownloadCourseInformation($_, $courseID, $downloadTime, + $WhatIWant); + my %downloadData; + unless(tie(%downloadData,'GDBM_File',$residualFile, + &GDBM_WRCREAT(),0640)) { + return 'Failed to tie temporary download hash.'; + } + foreach my $key (keys(%$courseData)) { + $downloadData{$key} = $courseData->{$key}; + if($key =~ /^(con_lost|error|no_such_host)/i) { + $error = 1; + last; + } + } + if($error) { + foreach my $deleteKey (keys(%$courseData)) { + delete $downloadData{$deleteKey}; + } + $downloadData{$_.':error'} = 'No course data for '.$_; + } + untie(%downloadData); + } + if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r, + \%prog_state); } + + return &CheckForResidualDownload($cacheDB, 'true', 'true', + $courseID, $r, $c); +} + +sub CheckForResidualDownload { + my ($cacheDB,$extract,$status,$courseID,$r,$c)=@_; + + my $residualFile = $Apache::lonnet::tmpdir.$courseID.'DownloadFile.db'; + if(!-e $residualFile) { + return 'OK'; + } + + my %downloadData; + my %cache; + unless(tie(%downloadData,'GDBM_File',$residualFile,&GDBM_READER(),0640)) { + return 'Can not tie database for check for residual download: tempDB'; + } + unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) { + untie(%downloadData); + return 'Can not tie database for check for residual download: cacheDB'; + } + + my @students=(); + my %checkStudent; + my $key; + while(($key, undef) = each %downloadData) { + my @temp = split(':', $key); + my $student = $temp[0].':'.$temp[1]; + if(!defined($checkStudent{$student})) { + $checkStudent{$student}++; + push(@students, $student); + } + } + + my $heading = 'Process Course Data'; + my $title = 'LON-CAPA Statistics'; + my $studentCount = scalar(@students); + my %prog_state; + if($status eq 'true') { + %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title, + $heading,$#students+1); + } + + my $count=1; + foreach my $name (@students) { + last if($c->aborted()); + + if($status eq 'true') { + &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, + 'last student '.$name); + } + + if($extract eq 'true') { + &ExtractStudentData(\%downloadData, \%cache, \%cache, $name); + } else { + &ProcessStudentData(\%cache, \%downloadData, $name); + } + $count++; + } + + if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r, + \%prog_state); } + + untie(%cache); + untie(%downloadData); + + if(!$c->aborted()) { + my @files = ($residualFile); + unlink(@files); + } + + 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 { - return -1; + &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 (); + } +} + +################################################ +################################################ + +=pod + +=item &get_classlist(); + +Retrieve the classist of a given class or of the current class. Student +information is returned from the classlist.db file and, if needed, +from the students environment. + +Optional arguments are $cid, $cdom, and $cnum (course id, course domain, +and course number, respectively). Any omitted arguments will be taken +from the current environment ($ENV{'request.course.id'}, +$ENV{'course.'.$cid.'.domain'}, and $ENV{'course.'.$cid.'.num'}). + +Returns a reference to a hash which contains: + keys '$sname:$sdom' + values [$sdom,$sname,$end,$start,$id,$section,$fullname,$status] + +The constant values CL_SDOM, CL_SNAME, CL_END, etc. can be used +as indices into the returned list to future-proof clients against +changes in the list order. + +=cut + +################################################ +################################################ + +sub CL_SDOM { return 0; } +sub CL_SNAME { return 1; } +sub CL_END { return 2; } +sub CL_START { return 3; } +sub CL_ID { return 4; } +sub CL_SECTION { return 5; } +sub CL_FULLNAME { return 6; } +sub CL_STATUS { return 7; } + +sub get_classlist { + my ($cid,$cdom,$cnum) = @_; + $cid = $cid || $ENV{'request.course.id'}; + $cdom = $cdom || $ENV{'course.'.$cid.'.domain'}; + $cnum = $cnum || $ENV{'course.'.$cid.'.num'}; + my $now = time; + # + my %classlist=&Apache::lonnet::dump('classlist',$cdom,$cnum); + while (my ($student,$info) = each(%classlist)) { + return undef if ($student =~ /^(con_lost|error|no_such_host)/i); + my ($sname,$sdom) = split(/:/,$student); + my @Values = split(/:/,$info); + my ($end,$start,$id,$section,$fullname); + if (@Values > 2) { + ($end,$start,$id,$section,$fullname) = @Values; + } else { # We have to get the data ourselves + ($end,$start) = @Values; + $section = &Apache::lonnet::getsection($sdom,$sname,$cid); + my %info=&Apache::lonnet::get('environment', + ['firstname','middlename', + 'lastname','generation','id'], + $sdom, $sname); + my ($tmp) = keys(%info); + if ($tmp =~/^(con_lost|error|no_such_host)/i) { + $fullname = 'not available'; + $id = 'not available'; + &Apache::lonnet::logthis('unable to retrieve environment '. + 'for '.$sname.':'.$sdom); + } else { + $fullname = &ProcessFullName(@info{qw/lastname generation + firstname middlename/}); + $id = $info{'id'}; + } + # Update the classlist with this students information + if ($fullname ne 'not available') { + my $enrolldata = join(':',$end,$start,$id,$section,$fullname); + my $reply=&Apache::lonnet::cput('classlist', + {$student => $enrolldata}, + $cdom,$cnum); + if ($reply !~ /^(ok|delayed)/) { + &Apache::lonnet::logthis('Unable to update classlist for '. + 'student '.$sname.':'.$sdom. + ' error:'.$reply); + } + } + } + my $status='Expired'; + if(((!$end) || $now < $end) && ((!$start) || ($now > $start))) { + $status='Active'; + } + $classlist{$student} = + [$sdom,$sname,$end,$start,$id,$section,$fullname,$status]; + } + if (wantarray()) { + return (\%classlist,['domain','username','end','start','id', + 'section','fullname','status']); + } else { + return \%classlist; } } @@ -858,3 +1775,5 @@ sub GetFileTimestamp { 1; __END__ + +