|
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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonroles.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth