version 1.228, 2009/06/29 12:43:45
|
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?' |
Line 757 ENDHEADER
|
Line 757 ENDHEADER
|
unless ((!&Apache::loncommon::show_course()) || ($nochoose) || ($countactive==1)) { |
unless ((!&Apache::loncommon::show_course()) || ($nochoose) || ($countactive==1)) { |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
} |
} |
|
if ($env{'form.destinationurl'}) { |
|
$r->print('<input type="hidden" name="destinationurl" value="'. |
|
$env{'form.destinationurl'}.'" />'); |
|
if ($env{'form.destsymb'} ne '') { |
|
$r->print('<input type="hidden" name="destsymb" value="'. |
|
$env{'form.destsymb'}.'" />'); |
|
} |
|
} |
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose); |
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose); |
if ($env{'environment.recentroles'}) { |
if ($env{'environment.recentroles'}) { |
my %recent_roles = |
my %recent_roles = |