version 1.172, 2006/12/05 02:55:56
|
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', |
Line 639 ENDHEADER
|
Line 646 ENDHEADER
|
# More than one possible role |
# More than one possible role |
# ----------------------------------------------------------------------- Table |
# ----------------------------------------------------------------------- Table |
unless (($advanced) || ($nochoose)) { |
unless (($advanced) || ($nochoose)) { |
$r->print("<h2>".&mt('Select a Course/Group to Enter')."</h2>\n"); |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
} |
} |
$r->print('<br /><table><tr>'); |
$r->print('<br /><table><tr>'); |
unless ($nochoose) { $r->print('<th> </th>'); } |
unless ($nochoose) { $r->print('<th> </th>'); } |
$r->print('<th>'.&mt('User Role').'</th><th>'.&mt('Extent'). |
$r->print('<th>'.&mt('User Role').'</th><th>'.&mt('Extent'). |
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th></tr>'."\n"); |
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th></tr>'."\n"); |
my $doheaders=-1; |
my $doheaders=-1; |
foreach my $type ('Domain','Construction Space','Course','Group','Unavailable','System') { |
foreach my $type ('Domain','Construction Space','Course','Unavailable','System') { |
my $haverole=0; |
my $haverole=0; |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
Line 686 ENDHEADER
|
Line 693 ENDHEADER
|
$r->print(&coursepick_jscript()); |
$r->print(&coursepick_jscript()); |
$r->print(&Apache::loncommon::coursebrowser_javascript()); |
$r->print(&Apache::loncommon::coursebrowser_javascript()); |
} |
} |
foreach my $type ('Construction Space','Domain','Course','Group','Unavailable','System') { |
foreach my $type ('Construction Space','Domain','Course','Unavailable','System') { |
my $output; |
my $output; |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
Line 912 sub courselink {
|
Line 919 sub courselink {
|
my $courseform=&Apache::loncommon::selectcourse_link |
my $courseform=&Apache::loncommon::selectcourse_link |
('rolechoice','dccourse'.$rowtype.'_'.$dcdom, |
('rolechoice','dccourse'.$rowtype.'_'.$dcdom, |
'dcdomain'.$rowtype.'_'.$dcdom,'coursedesc'.$rowtype.'_'. |
'dcdomain'.$rowtype.'_'.$dcdom,'coursedesc'.$rowtype.'_'. |
$dcdom,$dcdom,undef,$selecttype); |
$dcdom,$dcdom,undef); |
my $hiddenitems = '<input type="hidden" name="dcdomain'.$rowtype.'_'.$dcdom.'" value="'.$dcdom.'" />'. |
my $hiddenitems = '<input type="hidden" name="dcdomain'.$rowtype.'_'.$dcdom.'" value="'.$dcdom.'" />'. |
'<input type="hidden" name="origdom'.$rowtype.'_'.$dcdom.'" value="'.$dcdom.'" />'. |
'<input type="hidden" name="origdom'.$rowtype.'_'.$dcdom.'" value="'.$dcdom.'" />'. |
'<input type="hidden" name="dccourse'.$rowtype.'_'.$dcdom.'" value="" />'. |
'<input type="hidden" name="dccourse'.$rowtype.'_'.$dcdom.'" value="" />'. |
Line 1018 sub allcourses_row {
|
Line 1025 sub allcourses_row {
|
my ($dcdom,$rowtype) = @_; |
my ($dcdom,$rowtype) = @_; |
my $output = '<tr bgcolor="#77FF77">'. |
my $output = '<tr bgcolor="#77FF77">'. |
' <td colspan="5">'; |
' <td colspan="5">'; |
foreach my $type ('Course','Group') { |
my $selectlink = &courselink($dcdom,$rowtype); |
my $selectlink = &courselink($dcdom,$rowtype,$type); |
my $ccrole = &Apache::lonnet::plaintext('cc'); |
my $ccrole = &Apache::lonnet::plaintext('cc',$type); |
$output.= '<font color="#002200">'.$ccrole.'</font>'. |
$output.= '<font color="#002200">'.$ccrole.'</font>'. |
|
' <b>'.$selectlink.'</b>'. |
' <b>'.$selectlink.'</b>'. |
' from '.&mt('Domain').' '.$dcdom.'<br />'; |
' from '.&mt('Domain').' '.$dcdom.'<br />'; |
} |
|
$output .= '</tr><tr><td colspan="5" height="3"></td></tr>'."\n"; |
$output .= '</tr><tr><td colspan="5" height="3"></td></tr>'."\n"; |
return $output; |
return $output; |
} |
} |