loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.354, 2006/04/25 20:48:38	version 1.355, 2006/04/25 21:24:06
Line 2610 sub maketime {	Line 2610 sub maketime {
#########################################	#########################################

sub findallcourses {	sub findallcourses {
	my ($roles) = @_;
	my %roles;
	if (ref($roles)) { %roles = map { $_ => 1 } @{$roles}; }
my %courses;	my %courses;
my $now=time;	my $now=time;
foreach my $key (keys(%env)) {	foreach my $key (keys(%env)) {
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');
	next if (%roles && !exists($roles{$role}));
my ($starttime,$endtime)=split(/\./,$env{$key});	my ($starttime,$endtime)=split(/\./,$env{$key});
my $active=1;	my $active=1;
if ($starttime) {	if ($starttime) {