version 1.191, 2008/05/14 23:52:52
|
version 1.192, 2008/05/15 01:00:37
|
Line 719 ENDHEADER
|
Line 719 ENDHEADER
|
$r->print('<tr bgcolor="#77FF77">'); |
$r->print('<tr bgcolor="#77FF77">'); |
} |
} |
$r->print('<td></td><td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified'). |
$r->print('<td></td><td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified'). |
'</font></span></td><td><font color="'.$tfont.'">'.$tremark. |
'</span></font></td><td><font color="'.$tfont.'">'.$tremark. |
' </font></td></tr>'."\n"); |
' </font></td></tr>'."\n"); |
|
|
$r->print('</table>'); |
$r->print('</table>'); |
Line 752 ENDHEADER
|
Line 752 ENDHEADER
|
$output.=$roletext{'user.role.'.$_}; |
$output.=$roletext{'user.role.'.$_}; |
if ($_ =~ m-dc\./($match_domain)/- |
if ($_ =~ m-dc\./($match_domain)/- |
&& $dcroles{$1}) { |
&& $dcroles{$1}) { |
$output .= &allcourses_row($1,'recent'). |
$output .= &adhoc_roles_row($1,'recent'); |
&allcoauthors_row($1,'recent'); |
|
} |
} |
} elsif ($numdc > 0) { |
} elsif ($numdc > 0) { |
unless ($_ =~/^error\:/) { |
unless ($_ =~/^error\:/) { |
Line 763 ENDHEADER
|
Line 762 ENDHEADER
|
} |
} |
if ($output) { |
if ($output) { |
$r->print("<tr><td align='center' colspan='5'><font face='arial'>". |
$r->print("<tr><td align='center' colspan='5'><font face='arial'>". |
&mt('Recent Roles')."</font></td>"); |
&mt('Recent Roles')."</font></td></tr>"); |
$r->print($output); |
$r->print($output); |
$r->print("</tr>"); |
|
$doheaders ++; |
$doheaders ++; |
} |
} |
} |
} |
Line 787 ENDHEADER
|
Line 785 ENDHEADER
|
unless ($nochoose) { |
unless ($nochoose) { |
if ($env{'request.role'} ne 'cm') { |
if ($env{'request.role'} ne 'cm') { |
$r->print('<td><input type="submit" value="'. |
$r->print('<td><input type="submit" value="'. |
&mt('Select').'" name="cm"></td>'); |
&mt('Select').'" name="cm" /></td>'); |
} else { |
} else { |
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
} |
} |
$r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified'). |
$r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified'). |
'</font></span></td><td><font color="'.$tfont.'">'.$tremark. |
'</span></font></td><td><font color="'.$tfont.'">'.$tremark. |
' </font></td></tr>'."\n"); |
' </font></td></tr>'."\n"); |
|
|
$r->print('</table>'); |
$r->print('</table>'); |
Line 857 sub print_rolerows {
|
Line 855 sub print_rolerows {
|
if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) { |
if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) { |
if (ref($dcroles) eq 'HASH') { |
if (ref($dcroles) eq 'HASH') { |
if ($dcroles->{$1}) { |
if ($dcroles->{$1}) { |
$output .= &allcourses_row($1,''). |
$output .= &adhoc_roles_row($1,''); |
&allcoauthors_row($1,''); |
|
} |
} |
} |
} |
} |
} |
Line 997 sub build_roletext {
|
Line 994 sub build_roletext {
|
} elsif ($tstatus eq 'is') { |
} elsif ($tstatus eq 'is') { |
$roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'. |
$roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'. |
&mt('Select').'" onClick="javascript:enterrole(this.form,\''. |
&mt('Select').'" onClick="javascript:enterrole(this.form,\''. |
$trolecode."','".$buttonname.'\');"></td>'; |
$trolecode."','".$buttonname.'\');" /></td>'; |
} elsif ($tryagain) { |
} elsif ($tryagain) { |
$roletext.= |
$roletext.= |
'<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'. |
'<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'. |
&mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''. |
&mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''. |
$trolecode."','".$buttonname.'\');"></td>'; |
$trolecode."','".$buttonname.'\');" /></td>'; |
} elsif ($advanced) { |
} elsif ($advanced) { |
$roletext.= |
$roletext.= |
'<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'. |
'<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'. |
&mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''. |
&mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''. |
$trolecode."','".$buttonname.'\');"></td>'; |
$trolecode."','".$buttonname.'\');" /></td>'; |
} else { |
} else { |
$roletext.='<td'.$rowspan.'> </td>'; |
$roletext.='<td'.$rowspan.'> </td>'; |
} |
} |
Line 1225 sub display_cc_role {
|
Line 1222 sub display_cc_role {
|
return ($roletext); |
return ($roletext); |
} |
} |
|
|
sub allcourses_row { |
sub adhoc_roles_row { |
my ($dcdom,$rowtype) = @_; |
my ($dcdom,$rowtype) = @_; |
my $output = '<tr bgcolor="#77FF77">'. |
my $output = '<tr bgcolor="#77FF77">'. |
' <td colspan="5">'; |
' <td colspan="5"><table><tr><td><span class="LC_rolesinfo">' |
|
.&mt('[_1]Ad hoc[_2] roles in domain [_3] --', |
|
'<span class="LC_cusr_emph">','</span>',$dcdom).'</span></td><td>'; |
my $selectlink = &courselink($dcdom,$rowtype); |
my $selectlink = &courselink($dcdom,$rowtype); |
my $ccrole = &Apache::lonnet::plaintext('cc'); |
my $ccrole = &Apache::lonnet::plaintext('cc'); |
$output.= '<span class="LC_rolesinfo">'. |
|
&mt('[_1]: [_2] from domain [_3]',$ccrole,$selectlink,$dcdom). |
|
'</span><br /></tr>'."\n"; |
|
return $output; |
|
} |
|
|
|
sub allcoauthors_row { |
|
my ($dcdom,$rowtype) = @_; |
|
my $output = '<tr bgcolor="#77FF77">'. |
|
' <td colspan="5">'; |
|
my $carole = &Apache::lonnet::plaintext('ca'); |
my $carole = &Apache::lonnet::plaintext('ca'); |
my $inputlink='<input type="text" size="10" name="adhoccauname'.$rowtype.'.'.$dcdom.'" />'; |
my $inputlink='<input type="text" size="10" name="adhoccauname'.$rowtype.'.'.$dcdom.'" />'; |
my $gobutton='<input type="submit" name="adhocca./'.$dcdom.'" value="'.&mt('Go').'" />'; |
my $gobutton='<input type="submit" name="adhocca./'.$dcdom.'" value="'.&mt('Go').'" />'; |
$output.= '<span class="LC_rolesinfo">'. |
$output.= '<span class="LC_rolesinfo">'. |
&mt('[_1]: [_2] in domain [_3] [_4]',$carole,$inputlink,$dcdom,$gobutton). |
&mt('[_1]: [_2]',$ccrole,$selectlink). |
'</span><br /></tr><tr><td colspan="5" height="3"></td></tr>'."\n"; |
'</span><br /></td><td> </td><td><span class="LC_rolesinfo">'. |
|
&mt('[_1]: [_2] [_3]',$carole,$inputlink,$gobutton). |
|
'</span><br /></td></tr></table></td></tr>'. |
|
'<tr><td colspan="5" height="3"></td></tr>'."\n"; |
return $output; |
return $output; |
} |
} |
|
|