version 1.173, 2006/12/11 21:56:53
|
version 1.174, 2006/12/14 20:49:23
|
Line 407 ENDHEADER
|
Line 407 ENDHEADER
|
# --------------------------------------------------------------- Error Header? |
# --------------------------------------------------------------- Error Header? |
if ($error) { |
if ($error) { |
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<!-- LONCAPAACCESSCONTROLERRORSCREEN --><hr /><pre>Access : ". |
$r->print("<!-- LONCAPAACCESSCONTROLERRORSCREEN --><hr /><pre>"); |
Apache::lonnet::plaintext($priv)."\n"); |
if ($priv ne '') { |
$r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n"); |
$r->print("Access : ".&Apache::lonnet::plaintext($priv)."\n"); |
$r->print("Action : $msg\n</pre><hr />"); |
} |
|
if ($fn ne '') { |
|
$r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n"); |
|
} |
|
if ($msg ne '') { |
|
$r->print("Action : $msg\n"); |
|
} |
|
$r->print("</pre><hr />"); |
my $url=$fn; |
my $url=$fn; |
my $last; |
my $last; |
if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |