|
version 1.347, 2006/04/22 01:06:48
|
version 1.348, 2006/04/22 16:26:31
|
|
Line 2605 sub maketime {
|
Line 2605 sub maketime {
|
| ######################################### |
######################################### |
| |
|
| sub findallcourses { |
sub findallcourses { |
| my %courses=(); |
my %courses; |
| my $now=time; |
my $now=time; |
| foreach (keys %env) { |
foreach my $key (keys(%env)) { |
| if ($_=~/^user\.role\.\w+\.\/(\w+)\/(\w+)/) { |
if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)} ) { |
| my ($starttime,$endtime)=$env{$_}; |
my ($role,$domain,$id) = ($1,$2,$3); |
| |
next if ($role eq 'ca' || $role eq 'aa'); |
| |
my ($starttime,$endtime)=$env{$key}; |
| my $active=1; |
my $active=1; |
| if ($starttime) { |
if ($starttime) { |
| if ($now<$starttime) { $active=0; } |
if ($now<$starttime) { $active=0; } |
|
Line 2617 sub findallcourses {
|
Line 2619 sub findallcourses {
|
| if ($endtime) { |
if ($endtime) { |
| if ($now>$endtime) { $active=0; } |
if ($now>$endtime) { $active=0; } |
| } |
} |
| if ($active) { $courses{$1.'_'.$2}=1; } |
if ($active) { $courses{$domain.'_'.$id}=1; } |
| } |
} |
| } |
} |
| return keys %courses; |
return keys(%courses); |
| } |
} |
| |
|
| ############################################### |
############################################### |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface