version 1.171, 2012/09/25 19:54:21
|
version 1.177, 2012/12/12 12:54:01
|
Line 406 sub handler {
|
Line 406 sub handler {
|
col2 => 'Value'}], |
col2 => 'Value'}], |
}; |
}; |
} |
} |
|
|
|
|
|
|
my @roles = ('student','coordinator','author','admin'); |
my @roles = ('student','coordinator','author','admin'); |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:changePage(document.$phase,'pickactions')", |
({href=>"javascript:changePage(document.$phase,'pickactions')", |
text=>"Settings to display/modify"}); |
text=>"Settings to display/modify"}); |
my $confname = $dom.'-domainconfig'; |
my $confname = $dom.'-domainconfig'; |
|
|
if ($phase eq 'process') { |
if ($phase eq 'process') { |
&Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,\@roles); |
&Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,\@roles); |
} elsif ($phase eq 'display') { |
} elsif ($phase eq 'display') { |
Line 460 sub handler {
|
Line 464 sub handler {
|
} |
} |
} |
} |
} |
} |
|
|
&Apache::lonconfigsettings::display_choices($r,$phase,$context,\@prefs_order,\%prefs); |
&Apache::lonconfigsettings::display_choices($r,$phase,$context,\@prefs_order,\%prefs); |
} |
} |
return OK; |
return OK; |
Line 521 sub print_config_box {
|
Line 526 sub print_config_box {
|
my ($r,$dom,$confname,$phase,$action,$item,$settings) = @_; |
my ($r,$dom,$confname,$phase,$action,$item,$settings) = @_; |
my $rowtotal = 0; |
my $rowtotal = 0; |
my $output; |
my $output; |
|
|
if ($action eq 'coursecategories') { |
if ($action eq 'coursecategories') { |
$output = &coursecategories_javascript($settings); |
$output = &coursecategories_javascript($settings); |
} |
} |
Line 809 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 1191 sub display_color_options {
|
Line 1197 sub display_color_options {
|
} else { |
} else { |
$datatable .= '<td> </td>'; |
$datatable .= '<td> </td>'; |
} |
} |
my $fontlink = &color_pick($phase,$role,'font',$choices->{'font'},$designs->{'font'}); |
my $current_color = $designs->{'font'} ? $designs->{'font'} : $defaults->{'font'}; |
|
|
$datatable .= '<td><span class="LC_nobreak">'. |
$datatable .= '<td><span class="LC_nobreak">'. |
'<input type="text" size="10" name="'.$role.'_font"'. |
'<input type="text" class="colorchooser" size="10" name="'.$role.'_font"'. |
' value="'.$designs->{'font'}.'" /> '.$fontlink. |
' value="'.$current_color.'" /> '. |
' <span id="css_'.$role.'_font" style="background-color: '. |
' </td></tr>'; |
$designs->{'font'}.';"> </span>'. |
|
'</span></td></tr>'; |
|
unless ($role eq 'login') { |
unless ($role eq 'login') { |
$datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
'<td>'.$choices->{'fontmenu'}.'</td>'; |
'<td>'.$choices->{'fontmenu'}.'</td>'; |
Line 1206 sub display_color_options {
|
Line 1211 sub display_color_options {
|
} else { |
} else { |
$datatable .= '<td> </td>'; |
$datatable .= '<td> </td>'; |
} |
} |
$fontlink = &color_pick($phase,$role,'fontmenu',$choices->{'fontmenu'},$designs->{'fontmenu'}); |
$current_color = $designs->{'fontmenu'} ? |
|
$designs->{'fontmenu'} : $defaults->{'fontmenu'}; |
$datatable .= '<td><span class="LC_nobreak">'. |
$datatable .= '<td><span class="LC_nobreak">'. |
'<input type="text" size="10" name="'.$role.'_fontmenu"'. |
'<input class="colorchooser" type="text" size="10" name="' |
' value="'.$designs->{'fontmenu'}.'" /> '.$fontlink. |
.$role.'_fontmenu"'. |
' <span id="css_'.$role.'_fontmenu" style="background-color: '. |
' value="'.$current_color.'" /> '. |
$designs->{'fontmenu'}.';"> </span>'. |
' </td></tr>'; |
'</span></td></tr>'; |
|
} |
} |
my $switchserver = &check_switchserver($dom,$confname); |
my $switchserver = &check_switchserver($dom,$confname); |
foreach my $img (@{$images}) { |
foreach my $img (@{$images}) { |
Line 1339 sub display_color_options {
|
Line 1344 sub display_color_options {
|
} |
} |
$datatable .= '<td class="LC_right_item">'. |
$datatable .= '<td class="LC_right_item">'. |
'<table border="0"><tr>'; |
'<table border="0"><tr>'; |
|
|
|
|
foreach my $item (@{$bgs}) { |
foreach my $item (@{$bgs}) { |
my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'bgs'}{$item}); |
# my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'bgs'}{$item}); |
$datatable .= '<td align="center">'.$link; |
$datatable .= '<td align="center">'; |
|
my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item}; |
if ($designs->{'bgs'}{$item}) { |
if ($designs->{'bgs'}{$item}) { |
$datatable .= ' <span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'bgs'}{$item}.';"> </span>'; |
$datatable .= ' '; |
} |
} |
$datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'bgs'}{$item}. |
$datatable .= '<br /><input type="text" class="colorchooser" size="8" name="'.$role.'_'.$item.'" value="'.$color. |
'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>'; |
'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>'; |
} |
} |
$datatable .= '</tr></table></td></tr>'; |
$datatable .= '</tr></table></td></tr>'; |
Line 1367 sub display_color_options {
|
Line 1375 sub display_color_options {
|
$datatable .= '<td class="LC_right_item">'. |
$datatable .= '<td class="LC_right_item">'. |
'<table border="0"><tr>'; |
'<table border="0"><tr>'; |
foreach my $item (@{$links}) { |
foreach my $item (@{$links}) { |
$datatable .= '<td align="center">'."\n". |
my $color = $designs->{'link'}{$item} ? $designs->{'link'}{$item} : $defaults->{'links'}{$item}; |
&color_pick($phase,$role,$item,$choices->{$item}, |
$datatable .= '<td align="center">'."\n"; |
$designs->{'links'}{$item}); |
|
if ($designs->{'links'}{$item}) { |
if ($designs->{'links'}{$item}) { |
$datatable.=' <span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'links'}{$item}.';"> </span>'; |
$datatable.=' '; |
} |
} |
$datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'links'}{$item}. |
$datatable .= '<br /><input type="text" size="8" class="colorchooser" name="'.$role.'_'.$item.'" value="'.$color. |
'" /></td>'; |
'" /></td>'; |
} |
} |
$$rowtotal += $itemcount; |
$$rowtotal += $itemcount; |
Line 1714 sub print_quotas {
|
Line 1722 sub print_quotas {
|
} elsif ($context eq 'requestauthor') { |
} elsif ($context eq 'requestauthor') { |
my $curroption; |
my $curroption; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{'requestauthor'}) eq 'HASH') { |
$curroption = $settings->{'default'}; |
$curroption = $settings->{'requestauthor'}; |
|
} |
|
} |
} |
if (!$curroption) { |
if (!$curroption) { |
$curroption = 'norequest'; |
$curroption = 'norequest'; |
Line 1861 sub print_quotas {
|
Line 1867 sub print_quotas {
|
$checked = ' checked="checked"'; |
$checked = ' checked="checked"'; |
} |
} |
$datatable .= '<span class="LC_nobreak"><label>'. |
$datatable .= '<span class="LC_nobreak"><label>'. |
'<input type="radio" name="crsreq_'.$item. |
'<input type="radio" name="authorreq__LC_adv"'. |
'__LC_adv" value="'.$val.'"'.$checked.' />'. |
' value="'.$val.'"'.$checked.' />'. |
$titles{$option}.'</label></span> '; |
$titles{$option}.'</label></span> '; |
} |
} |
} else { |
} else { |
Line 1965 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 5934 sub modify_quotas {
|
Line 5940 sub modify_quotas {
|
$cond = $conditions{$inconf{$type}}; |
$cond = $conditions{$inconf{$type}}; |
} |
} |
$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>'; |
$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>'; |
|
} elsif ($context eq 'requestauthor') { |
|
$resulttext .= '<li>'.&mt('Set to "[_1]" for "[_2]".', |
|
$titles{$inconf{$type}},$typetitle); |
|
|
} else { |
} else { |
$resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>'; |
$resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>'; |
} |
} |
Line 8452 sub active_dc_picker {
|
Line 8462 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>'; |