version 1.114, 2004/12/03 05:34:04
|
version 1.116, 2005/03/03 07:16:44
|
Line 339 ENDHEADER
|
Line 339 ENDHEADER
|
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<hr><pre>Access : ". |
$r->print("<hr><pre>Access : ". |
Apache::lonnet::plaintext($priv)."\n"); |
Apache::lonnet::plaintext($priv)."\n"); |
$r->print("Resource: $fn\n"); |
$r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n"); |
$r->print("Action : $msg\n</pre><hr>"); |
$r->print("Action : $msg\n</pre><hr>"); |
} else { |
} else { |
if ($ENV{'user.error.msg'}) { |
if ($ENV{'user.error.msg'}) { |
Line 376 ENDHEADER
|
Line 376 ENDHEADER
|
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
} |
} |
$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type="hidden" name="orgurl" value="'.$fn.'" />'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
$r->print('<input type="hidden" name="selectrole" value="1" />'); |
} |
} |
if ($ENV{'user.adv'}) { |
if ($ENV{'user.adv'}) { |
$r->print( |
$r->print( |
'<br />'.&mt('Show all roles').': <input type="checkbox" name="showall"'); |
'<br /><label>'.&mt('Show all roles').': <input type="checkbox" name="showall"'); |
if ($ENV{'form.showall'}) { $r->print(' checked'); } |
if ($ENV{'form.showall'}) { $r->print(' checked="checked" '); } |
$r->print('><input type=submit value="'.&mt('Display').'">'); |
$r->print(' /></label><input type="submit" value="'.&mt('Display').'" />'); |
} |
} |
|
|
my (%roletext,%sortrole,%roleclass); |
my (%roletext,%sortrole,%roleclass); |