version 1.131, 2005/11/01 21:59:24
|
version 1.132, 2005/11/08 21:54:03
|
Line 461 ENDHEADER
|
Line 461 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. |
if ($tremark) { $tremark.='<br />'; } |
|
$tremark.=&mt('Defined by ').$rauthor. |
&mt(' at ').$rdomain.'.'; |
&mt(' at ').$rdomain.'.'; |
$trole=$rrole; |
$trole=$rrole; |
} else { |
} else { |
Line 589 ENDHEADER
|
Line 590 ENDHEADER
|
$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><th>'. |
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th></tr>'."\n"); |
&mt('Remarks and Calendar Announcements').'</th></tr>'."\n"); |
|
my $doheaders=-1; |
my $doheaders=-1; |
foreach my $type ('Domain','Construction Space','Course','System') { |
foreach my $type ('Domain','Construction Space','Course','System') { |
my $haverole=0; |
my $haverole=0; |
Line 616 ENDHEADER
|
Line 616 ENDHEADER
|
} |
} |
} |
} |
if ($output) { |
if ($output) { |
$r->print("<tr><td align='center' colspan='6'><font face='arial'>". |
$r->print("<tr><td align='center' colspan='5'><font face='arial'>". |
&mt('Recent Roles')."</font></td>"); |
&mt('Recent Roles')."</font></td>"); |
$r->print($output); |
$r->print($output); |
$r->print("</tr>"); |
$r->print("</tr>"); |
Line 628 ENDHEADER
|
Line 628 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','Course','Domain','System') { |
foreach my $type ('Construction Space','Domain','Course','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 643 ENDHEADER
|
Line 643 ENDHEADER
|
if ($output) { |
if ($output) { |
if ($doheaders > 0) { |
if ($doheaders > 0) { |
$r->print("<tr>". |
$r->print("<tr>". |
"<td align='center' colspan='6'><font face='arial'>".&mt($type)."</font></td></tr>"); |
"<td align='center' colspan='5'><font face='arial'>".&mt($type)."</font></td></tr>"); |
} |
} |
$r->print($output); |
$r->print($output); |
} |
} |
Line 665 ENDHEADER
|
Line 665 ENDHEADER
|
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
} |
} |
$r->print('<td colspan="4"><font color="'.$tfont.'">'.&mt('No role specified'). |
$r->print('<td colspan="3"><font color="'.$tfont.'">'.&mt('No role specified'). |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
' </font></td></tr>'."\n"); |
' </font></td></tr>'."\n"); |
|
|
Line 765 sub role_status {
|
Line 765 sub role_status {
|
sub build_roletext { |
sub build_roletext { |
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_; |
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_; |
my $roletext='<tr bgcolor="'.$tbg.'">'; |
my $roletext='<tr bgcolor="'.$tbg.'">'; |
|
my $is_dc=($trolecode =~ m/^dc\./); |
|
my $rowspan=($is_dc) ? '' |
|
: ' rowspan="2" '; |
|
|
unless ($nochoose) { |
unless ($nochoose) { |
if (!$button) { |
if (!$button) { |
if ($switchserver) { |
if ($switchserver) { |
$roletext.='<td><a href="/adm/switchserver?'. |
$roletext.='<td'.$rowspan.'><a href="/adm/switchserver?'. |
$switchserver.'">'.&mt('Switch Server').'</a></td>'; |
$switchserver.'">'.&mt('Switch Server').'</a></td>'; |
} else { |
} else { |
$roletext.=('<td> </td>'); |
$roletext.=('<td> </td>'); |
} |
} |
} elsif ($tstatus eq 'is') { |
} elsif ($tstatus eq 'is') { |
$roletext.=('<td><input type=submit value="'. |
$roletext.=('<td'.$rowspan.'><input type=submit value="'. |
&mt('Select').'" name="'. |
&mt('Select').'" name="'. |
$trolecode.'"></td>'); |
$trolecode.'"></td>'); |
} elsif ($tryagain) { |
} elsif ($tryagain) { |
$roletext.= |
$roletext.= |
'<td><input type=submit value="'. |
'<td'.$rowspan.'><input type=submit value="'. |
&mt('Try Selecting Again').'" name="'.$trolecode.'"></td>'; |
&mt('Try Selecting Again').'" name="'.$trolecode.'"></td>'; |
} elsif ($advanced) { |
} elsif ($advanced) { |
$roletext.= |
$roletext.= |
'<td><input type=submit value="'. |
'<td'.$rowspan.'><input type=submit value="'. |
&mt('Re-Initialize').'" name="'.$trolecode.'"></td>'; |
&mt('Re-Initialize').'" name="'.$trolecode.'"></td>'; |
} else { |
} else { |
$roletext.='<td> </td>'; |
$roletext.='<td'.$rowspan.'> </td>'; |
} |
} |
} |
} |
$tremark.=&Apache::lonannounce::showday(time,1, |
$tremark.=&Apache::lonannounce::showday(time,1, |
&Apache::lonannounce::readcalendar($tdom.'_'.$trest)); |
&Apache::lonannounce::readcalendar($tdom.'_'.$trest)); |
|
|
|
|
$roletext.='<td><font color="'.$tfont.'">'.$trole. |
$roletext.='<td><font color="'.$tfont.'">'.$trole. |
'</font></td><td><font color="'.$tfont.'">'.$twhere. |
'</font></td><td><font color="'.$tfont.'">'.$twhere. |
'</font></td><td><font color="'.$tfont.'">'.$tpstart. |
'</font></td><td><font color="'.$tfont.'">'.$tpstart. |
'</font></td><td><font color="'.$tfont.'">'.$tpend. |
'</font></td><td><font color="'.$tfont.'">'.$tpend. |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
'</font></td></tr>'; |
' </font></td></tr>'."\n"; |
if (!$is_dc) { |
|
$roletext.='<tr bgcolor="'.$tbg.'"><td colspan="4"><font color="'.$tfont.'">'.$tremark. |
|
' </font></td></tr><tr><td colspan="5" height="3"></td></tr>'."\n"; |
|
} |
return $roletext; |
return $roletext; |
} |
} |
|
|
Line 895 function process_pick(dom) {
|
Line 901 function process_pick(dom) {
|
if (pickedCourse != '') { |
if (pickedCourse != '') { |
if (numbutton != -1) { |
if (numbutton != -1) { |
var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse |
var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse |
opener.document.rolechoice.elements[numbutton+1].name = courseTarget |
opener.document.rolechoice.elements[numbutton].name = courseTarget |
opener.document.rolechoice.submit() |
opener.document.rolechoice.submit() |
} |
} |
} |
} |
Line 951 sub allcourses_row {
|
Line 957 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="#99FF99">'. |
my $output = '<tr bgcolor="#77FF77">'. |
'<td><input type="button" value="'. |
'<input type="hidden" name="ccpick_'.$dcdom.'" />'. |
&mt('Select').'" name="ccpick_'.$dcdom.'"'. |
'<input type="hidden" name="pick_'.$dcdom.'" value="1" />'. |
'onClick="verifyCoursePick(this)">'. |
'<td colspan="5">'. |
'<input type="hidden" name="pick_'.$dcdom.'" value="1"></td>'. |
'<font color="#002200">'.$ccrole.'</font>'. |
'<td><font color="#002200">'. |
' <b>'.$selectlink.'</b>'. |
$ccrole.'</font></td>'. |
' from '.&mt('Domain').' '.$dcdom. |
'<td><font color="#002200">'.&mt('All courses').':<b> '. |
'<tr><td colspan="5" height="3"></td></tr>'."\n"; |
$selectlink.'</b>'. |
|
'<br />'.&mt('Domain').':'.$dcdom.'</font>'. |
|
'<td colspan="3"><font color="#002200">'. |
|
&mt('Course Coordinator access to all courses in domain'). |
|
': <b>'.$dcdom.'</b></font></td></tr>'."\n"; |
|
return $output; |
return $output; |
} |
} |
|
|