version 1.36, 2002/03/02 01:44:00
|
version 1.37, 2002/03/02 02:03:47
|
Line 223 sub tracetable {
|
Line 223 sub tracetable {
|
} |
} |
} |
} |
|
|
|
|
sub usection2 { |
|
my ($udom,$unam,$courseid,$ActiveFlag)=@_; |
|
$courseid=~s/\_/\//g; |
|
$courseid=~s/^(\w)/\/$1/; |
|
foreach my $elem(split(/\&/,&Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles', |
|
&Apache::lonnet::homeserver($unam,$udom)))) { |
|
my ($key,$value)=split(/\=/,$elem); |
|
$key=&Apache::lonnet::unescape($key); |
|
if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) { |
|
my $section=$1; |
|
if ($key eq $courseid.'_st') { $section=''; } |
|
my ($dummy,$end,$start)=split(/\_/,&Apache::lonnet::unescape($value)); |
|
my $now=time; |
|
my $notactive=0; |
|
if ($start) { |
|
if ($now<$start) { $notactive=1; } |
|
} |
|
if ($end) { |
|
if ($now>$end) { $notactive=1; } |
|
} |
|
if ($ActiveFlag == 1) { $notactive=0; } |
|
unless ($notactive) { return $section; } |
|
} |
|
} |
|
return '-1'; |
|
} |
|
|
|
|
|
sub usection { |
sub usection { |
my ($udom,$unam,$courseid,$ActiveFlag)=@_; |
my ($udom,$unam,$courseid,$ActiveFlag)=@_; |
$courseid=~s/\_/\//g; |
$courseid=~s/\_/\//g; |