loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.353, 2006/04/25 15:18:47	version 1.354, 2006/04/25 20:48:38
Line 2616 sub findallcourses {	Line 2616 sub findallcourses {
if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)} ) {	if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)} ) {
my ($role,$domain,$id) = ($1,$2,$3);	my ($role,$domain,$id) = ($1,$2,$3);
next if ($role eq 'ca' \|\| $role eq 'aa');	next if ($role eq 'ca' \|\| $role eq 'aa');
my ($starttime,$endtime)=$env{$key};	my ($starttime,$endtime)=split(/\./,$env{$key});
my $active=1;	my $active=1;
if ($starttime) {	if ($starttime) {
if ($now<$starttime) { $active=0; }	if ($now<$starttime) { $active=0; }