Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursedata.pm between versions 1.34 and 1.38

-version 1.34, 2002/10/09 17:25:23
+version 1.38, 2002/10/17 19:36:30
  Line 1387  sub CheckForResidualDownload {
      return 'OK';
  }
+ ################################################
+ ################################################
+ =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  [$end,$start,$id,$section,$fullname]
+ =cut
+ ################################################
+ ################################################
+ 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;
+     }
+ }
  # ----- END HELPER FUNCTIONS --------------------------------------------
 ;
  __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.34
changed lines
	Added in v.1.38