loncom/interface/loncourseauthor.pm - diff

Return to loncourseauthor.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2022/12/31 14:08:59	version 1.2, 2023/03/23 22:53:46
Line 87 sub handler {	Line 87 sub handler {
$is_home = 1;	$is_home = 1;
}	}
}	}
} elsif ($role =~ m{^(ca\|aa)\./($match_domain)/($match_username)$}) {	} elsif ($role =~ m{^(ca\|aa)\./($match_domain)/($match_username)$}) {
my ($rolecode,$audom,$auname) = ($1,$2,$3);	my ($rolecode,$audom,$auname) = ($1,$2,$3);
if (exists($env{"user.role.$role"})) {	if (exists($env{"user.role.$role"})) {
my ($start,$end) = split(/\./,$env{"user.role.$role"});	my ($start,$end) = split(/\./,$env{"user.role.$role"});
Line 139 sub handler {	Line 139 sub handler {
} else {	} else {
push(@dirs,(sort { lc($a) cmp lc($b) } (keys(%dirhash))));	push(@dirs,(sort { lc($a) cmp lc($b) } (keys(%dirhash))));
}	}
	} elsif (($env{'form.role'} eq 'course') && ($env{'form.path'} eq '') && (!$env{'form.nonempty'})) {
	push(@dirs,'/');
}	}
my %files;	my %files;
if (%filehash) {	if (%filehash) {