version 1.35, 2002/10/14 19:06:21
|
version 1.36, 2002/10/16 13:43:34
|
Line 1443 sub get_classlist {
|
Line 1443 sub get_classlist {
|
firstname middlename/}); |
firstname middlename/}); |
$id = $info{'id'}; |
$id = $info{'id'}; |
} |
} |
# At this point, if we have the data (check for 'not available's |
# Update the classlist with this students information |
# we could put it back into the classlist.db file. |
if ($fullname ne 'not available') { |
# We have not decided to do that yet. |
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'; |
my $status='Expired'; |
if(((!$end) || $now < $end) && ((!$start) || ($now > $start))) { |
if(((!$end) || $now < $end) && ((!$start) || ($now > $start))) { |
Line 1467 sub get_classlist {
|
Line 1476 sub get_classlist {
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|