|
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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonchart.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface