version 1.174, 2012/10/30 10:39:02
|
version 1.178, 2012/12/18 15:20:50
|
Line 815 sub print_login {
|
Line 815 sub print_login {
|
'<td><select name="'.$lonhost.'_server">'. |
'<td><select name="'.$lonhost.'_server">'. |
'<option value=""'.$direct.'>'.$choices{'directlogin'}. |
'<option value=""'.$direct.'>'.$choices{'directlogin'}. |
'</option>'; |
'</option>'; |
foreach my $hostid (keys(%servers)) { |
foreach my $hostid (sort keys(%servers)) { |
next if ($servers{$hostid} eq $servers{$lonhost}); |
next if ($servers{$hostid} eq $servers{$lonhost}); |
my $selected = ''; |
my $selected = ''; |
if (ref($disallowed{$lonhost}) eq 'HASH') { |
if (ref($disallowed{$lonhost}) eq 'HASH') { |
Line 1190 sub display_color_options {
|
Line 1190 sub display_color_options {
|
$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_; |
$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_; |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
my $css_class = $itemcount%2?' class="LC_odd_row"':''; |
my $css_class = $itemcount%2?' class="LC_odd_row"':''; |
my $js = "<script type='text/javascript'>\n"; |
my $datatable = '<tr'.$css_class.'>'. |
$js .= &Apache::lonhtmlcommon::color_picker(); |
|
my $js = "\n</script>\n"; |
|
my $datatable = $js . '<tr'.$css_class.'>'. |
|
'<td>'.$choices->{'font'}.'</td>'; |
'<td>'.$choices->{'font'}.'</td>'; |
if (!$is_custom->{'font'}) { |
if (!$is_custom->{'font'}) { |
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>'; |
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>'; |
Line 1974 sub print_requestmail {
|
Line 1971 sub print_requestmail {
|
$datatable .= '<span class="LC_nobreak"><label>'. |
$datatable .= '<span class="LC_nobreak"><label>'. |
'<input type="checkbox" name="reqapprovalnotify" '. |
'<input type="checkbox" name="reqapprovalnotify" '. |
'value="'.$domcoord[$i].'"'.$check.'/>'. |
'value="'.$domcoord[$i].'"'.$check.'/>'. |
$fullname.'</label></span></td>'; |
$fullname.' ('.$uname.':'.$udom.')</label></span></td>'; |
} |
} |
$datatable .= '</tr></table>'; |
$datatable .= '</tr></table>'; |
} else { |
} else { |
Line 6320 sub modify_autocreate {
|
Line 6317 sub modify_autocreate {
|
foreach my $item (@types) { |
foreach my $item (@types) { |
if ($changes{$item}) { |
if ($changes{$item}) { |
my $newtxt = $offon[$newvals{$item}]; |
my $newtxt = $offon[$newvals{$item}]; |
$resulttext .= '<li>'.&mt("$title{$item} set to [_1]$newtxt [_2]",'<b>','</b>').'</li>'; |
$resulttext .= '<li>'. |
|
&mt("$title{$item} set to [_1]$newtxt [_2]", |
|
'<b>','</b>'). |
|
'</li>'; |
} |
} |
} |
} |
if ($changes{'xmldc'}) { |
if ($changes{'xmldc'}) { |
my ($dcname,$dcdom) = split(':',$newvals{'xmldc'}); |
my ($dcname,$dcdom) = split(':',$newvals{'xmldc'}); |
my $newtxt = &Apache::loncommon::plainname($dcname,$dcdom); |
my $newtxt = &Apache::loncommon::plainname($dcname,$dcdom); |
$resulttext .= '<li>'.&mt("$title{'xmldc'} set to [_1]$newtxt [_2]",'<b>','</b>').'</li>'; |
$resulttext .= '<li>'.&mt("$title{'xmldc'} set to [_1]",'<b>'.$newtxt.'</b>').'</li>'; |
} |
} |
$resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
} else { |
} else { |
Line 6472 sub modify_directorysrch {
|
Line 6472 sub modify_directorysrch {
|
} else { |
} else { |
$chgtext =~ s/\; $//; |
$chgtext =~ s/\; $//; |
} |
} |
$resulttext .= '<li>'.&mt("Users from domain '<span class=\"LC_cusr_emph\">[_1]</span>' permitted to search the institutional directory set to: [_2]",$dom,$chgtext).'</li>'; |
$resulttext .= |
|
'<li>'. |
|
&mt("Users from domain '[_1]' permitted to search the institutional directory set to: [_2]", |
|
'<span class="LC_cusr_emph">'.$dom.'</span>',$chgtext). |
|
'</li>'; |
} |
} |
} |
} |
} |
} |
Line 6500 sub modify_directorysrch {
|
Line 6504 sub modify_directorysrch {
|
} |
} |
} |
} |
$chgtext =~ s/\; $//; |
$chgtext =~ s/\; $//; |
$resulttext .= '<li>'.&mt("$title{'searchtypes'} set to: \"[_1]\"",$chgtext).'</li>'; |
$resulttext .= '<li>'.&mt($title{'searchtypes'}.' set to: "[_1]"',$chgtext).'</li>'; |
} |
} |
$resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
} else { |
} else { |
Line 8465 sub active_dc_picker {
|
Line 8469 sub active_dc_picker {
|
'<input type="radio" name="autocreate_xmldc"'. |
'<input type="radio" name="autocreate_xmldc"'. |
' value="'.$dcs[$i].'"'.$check.'/>'. |
' value="'.$dcs[$i].'"'.$check.'/>'. |
&Apache::loncommon::plainname($dcname,$dcdom). |
&Apache::loncommon::plainname($dcname,$dcdom). |
|
' ('.$dcname.':'.$dcdom.')'. |
'</label></span></td>'; |
'</label></span></td>'; |
} |
} |
$datatable .= '</tr></table>'; |
$datatable .= '</tr></table>'; |