loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1201, 2014/12/01 22:52:48	version 1.1202, 2014/12/11 01:16:33
Line 8386 role status: active, previous or future.	Line 8386 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 %userinfo = &Apache::lonnet::dump('roles',$udom,$uname);	my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname);
my @uroles = keys %userinfo;	my @uroles = keys(%userinfo);
my $srchstr;	my $srchstr;
my $active_chk = 'none';	my $active_chk = 'none';
my $now = time;	my $now = time;