version 1.125, 2005/06/19 00:41:32
|
version 1.127, 2005/07/13 19:56:17
|
Line 343 ENDHEADER
|
Line 343 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("<hr><pre>Access : ". |
$r->print("<!-- LONCAPAACCESSCONTROLERRORSCREEN --><hr /><pre>Access : ". |
Apache::lonnet::plaintext($priv)."\n"); |
Apache::lonnet::plaintext($priv)."\n"); |
$r->print("Resource: ".&Apache::lonenc::check_encrypt($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 />"); |
Line 387 ENDHEADER
|
Line 387 ENDHEADER
|
($env{'user.name'},$env{'user.domain'})}. |
($env{'user.name'},$env{'user.domain'})}. |
"<br />\n"); |
"<br />\n"); |
$r->print(&mt( |
$r->print(&mt( |
"Author and Co-Author roles may not be available on servers other than your home server.")); |
"Author and Co-Author roles are not available on servers other than their respective home servers.")); |
} |
} |
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) { |
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) { |
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
Line 460 ENDHEADER
|
Line 460 ENDHEADER
|
my $trole; |
my $trole; |
if ($role =~ /^cr\//) { |
if ($role =~ /^cr\//) { |
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role); |
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role); |
$tremark.='<br>'.&mt('Defined by ').$rauthor. |
$tremark.='<br />'.&mt('Defined by ').$rauthor. |
&mt(' at ').$rdomain.'.'; |
&mt(' at ').$rdomain.'.'; |
$trole=$rrole; |
$trole=$rrole; |
} else { |
} else { |
Line 619 ENDHEADER
|
Line 619 ENDHEADER
|
} |
} |
} |
} |
if ($output) { |
if ($output) { |
$r->print("<tr bgcolor='#BBffBB'><td align='center' colspan='6'>". |
$r->print("<tr><td align='center' colspan='6'><font face='arial'>". |
&mt('Recent Roles')."</td>"); |
&mt('Recent Roles')."</font></td>"); |
$r->print($output); |
$r->print($output); |
$r->print("</tr>"); |
$r->print("</tr>"); |
$doheaders ++; |
$doheaders ++; |
Line 645 ENDHEADER
|
Line 645 ENDHEADER
|
} |
} |
if ($output) { |
if ($output) { |
if ($doheaders > 0) { |
if ($doheaders > 0) { |
$r->print("<tr bgcolor='#BBffBB'>". |
$r->print("<tr>". |
"<td align='center' colspan='6'>".&mt($type)."</td></tr>"); |
"<td align='center' colspan='6'><font face='arial'>".&mt($type)."</font></td></tr>"); |
} |
} |
$r->print($output); |
$r->print($output); |
} |
} |
Line 678 ENDHEADER
|
Line 678 ENDHEADER
|
} |
} |
# ------------------------------------------------------------ Privileges Info |
# ------------------------------------------------------------ Privileges Info |
if (($advanced) && (($env{'user.error.msg'}) || ($error))) { |
if (($advanced) && (($env{'user.error.msg'}) || ($error))) { |
$r->print('<hr><h2>Current Privileges</h2>'); |
$r->print('<hr /><h2>Current Privileges</h2>'); |
|
|
foreach $envkey (sort keys %env) { |
foreach $envkey (sort keys %env) { |
if ($envkey=~/^user\.priv\.$env{'request.role'}\./) { |
if ($envkey=~/^user\.priv\.$env{'request.role'}\./) { |
Line 954 sub allcourses_row {
|
Line 954 sub allcourses_row {
|
my $dcdom = shift; |
my $dcdom = shift; |
my $ccrole = Apache::lonnet::plaintext('cc'); |
my $ccrole = Apache::lonnet::plaintext('cc'); |
my $selectlink = &courselink($dcdom); |
my $selectlink = &courselink($dcdom); |
my $output = '<tr bgcolor="#77FF77">'. |
my $output = '<tr bgcolor="#99FF99">'. |
'<td><input type="button" value="'. |
'<td><input type="button" value="'. |
&mt('Select').'" name="ccpick_'.$dcdom.'"'. |
&mt('Select').'" name="ccpick_'.$dcdom.'"'. |
'onClick="verifyCoursePick(this)">'. |
'onClick="verifyCoursePick(this)">'. |