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?' |