loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.274, 2012/08/16 17:02:46	version 1.275, 2012/08/19 03:11:43
Line 291 sub handler {	Line 291 sub handler {
if (my ($ccrole,$domain,$coursenum) =	if (my ($ccrole,$domain,$coursenum) =
($envkey =~ m-^form\.(cc\|co)\./($match_domain)/($match_courseid)$-)) {	($envkey =~ m-^form\.(cc\|co)\./($match_domain)/($match_courseid)$-)) {
if ($dcroles{$domain}) {	if ($dcroles{$domain}) {
&Apache::lonnet::check_adhoc_privs($domain,$coursenum,	if (&Apache::lonnet::check_adhoc_privs($domain,$coursenum,
$update,$refresh,$now,$ccrole);	$update,$refresh,$now,$ccrole)) {
	&Apache::lonnet::appenv({"environment.internal.$domain.$coursenum.$ccrole.adhoc" => time});
	}
}	}
last;	last;
}	}
Line 515 ENDENTERKEY	Line 517 ENDENTERKEY
my $msg;	my $msg;
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
	unless (($ferr) \|\| ($env{'form.switchrole'}) \|\|
	($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {
	&Apache::lonnet::put('nohist_crslastlogin',
	{$env{'user.name'}.':'.$env{'user.domain'}.
	':'.$csec.':'.$role => $now},$cdom,$cnum);
	}
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
($env{'form.orgurl'}!~/^\/adm\/flip/)) {	($env{'form.orgurl'}!~/^\/adm\/flip/)) {
my $dest=$env{'form.orgurl'};	my $dest=$env{'form.orgurl'};