loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1072, 2012/04/18 20:52:44	version 1.1073, 2012/04/25 21:22:01
Line 3990 sub findallcourses {	Line 3990 sub findallcourses {
$udom = $env{'user.domain'};	$udom = $env{'user.domain'};
}	}
if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {	if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});	my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname);
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,'.',undef,
$extra);
if (!%roles) {	if (!%roles) {
%roles = (	%roles = (
cc => 1,	cc => 1,
Line 7793 role status: active, previous or future.	Line 7791 role status: active, previous or future.

sub check_user_status {	sub check_user_status {
my ($udom,$uname,$cdom,$crs,$role,$sec) = @_;	my ($udom,$uname,$cdom,$crs,$role,$sec) = @_;
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});	my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname);
my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname,'.',undef,$extra);
my @uroles = keys %userinfo;	my @uroles = keys %userinfo;
my $srchstr;	my $srchstr;
my $active_chk = 'none';	my $active_chk = 'none';