loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.229, 2009/07/22 21:51:03	version 1.230, 2009/07/24 02:00:28
Line 260 sub handler {	Line 260 sub handler {
($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {	($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {
if ($dcroles{$domain}) {	if ($dcroles{$domain}) {
&Apache::lonnet::check_adhoc_privs($domain,$coursenum,	&Apache::lonnet::check_adhoc_privs($domain,$coursenum,
$then,$now,'cc');	$then,$refresh,$now,'cc');
}	}
last;	last;
}	}
Line 301 sub handler {	Line 301 sub handler {
my ($server_status,$home) = &check_author_homeserver($user,$domain);	my ($server_status,$home) = &check_author_homeserver($user,$domain);
if (($server_status eq 'ok') \|\| ($server_status eq 'switchserver')) {	if (($server_status eq 'ok') \|\| ($server_status eq 'switchserver')) {
&Apache::lonnet::check_adhoc_privs($domain,$user,$then,	&Apache::lonnet::check_adhoc_privs($domain,$user,$then,
$now,'ca');	$refresh,$now,'ca');
if ($server_status eq 'switchserver') {	if ($server_status eq 'switchserver') {
my $trolecode = 'ca./'.$domain.'/'.$user;	my $trolecode = 'ca./'.$domain.'/'.$user;
my $switchserver = '/adm/switchserver?'	my $switchserver = '/adm/switchserver?'