version 1.305, 2017/08/03 16:22:08
|
version 1.314, 2017/10/07 00:50:47
|
Line 762 sub print_config_box {
|
Line 762 sub print_config_box {
|
$output .= |
$output .= |
'<table class="LC_nested_outer"> |
'<table class="LC_nested_outer"> |
<tr> |
<tr> |
<th align="left" valign="middle"><span class="LC_nobreak">'. |
<th class="LC_left_item LC_middle"><span class="LC_nobreak">'. |
&mt($item->{text}).' '. |
&mt($item->{text}).' '. |
&Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n". |
&Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n". |
'</tr>'; |
'</tr>'; |
Line 978 sub print_config_box {
|
Line 978 sub print_config_box {
|
<td> |
<td> |
<table class="LC_nested"> |
<table class="LC_nested"> |
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item"'.$colspan.' valign="top">'.&mt($item->{'header'}->[4]->{'col1'}).'</td> |
<td class="LC_left_item"'.$colspan.' style="vertical-align: top">'.&mt($item->{'header'}->[4]->{'col1'}).'</td> |
<td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[4]->{'col2'}).'</td> |
<td class="LC_right_item" style="vertical-align: top">'.&mt($item->{'header'}->[4]->{'col2'}).'</td> |
</tr>'. |
</tr>'. |
&print_validation_rows('requestcourses',$dom,$settings,\$rowtotal); |
&print_validation_rows('requestcourses',$dom,$settings,\$rowtotal); |
} elsif ($action eq 'requestauthor') { |
} elsif ($action eq 'requestauthor') { |
Line 994 sub print_config_box {
|
Line 994 sub print_config_box {
|
<td> |
<td> |
<table class="LC_nested"> |
<table class="LC_nested"> |
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item"'.$colspan.' valign="top">'. |
<td class="LC_left_item"'.$colspan.' style="vertical-align: top">'. |
&mt($item->{'header'}->[2]->{'col1'}).'</td> |
&mt($item->{'header'}->[2]->{'col1'}).'</td> |
<td class="LC_right_item" valign="top">'. |
<td class="LC_right_item" style="vertical-align: top">'. |
&mt($item->{'header'}->[2]->{'col2'}).'</td> |
&mt($item->{'header'}->[2]->{'col2'}).'</td> |
</tr>'. |
</tr>'. |
&print_rolecolors($phase,'author',$dom,$confname,$settings,\$rowtotal).' |
&print_rolecolors($phase,'author',$dom,$confname,$settings,\$rowtotal).' |
Line 1024 sub print_config_box {
|
Line 1024 sub print_config_box {
|
<td class="LC_left_item" colspan="2">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>'; |
<td class="LC_left_item" colspan="2">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>'; |
} elsif ($action eq 'serverstatuses') { |
} elsif ($action eq 'serverstatuses') { |
$output .= ' |
$output .= ' |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}). |
<td class="LC_left_item" style="vertical-align: top">'.&mt($item->{'header'}->[0]->{'col1'}). |
'<br />('.&mt('Automatic access for Dom. Coords.').')</td>'; |
'<br />('.&mt('Automatic access for Dom. Coords.').')</td>'; |
|
|
} else { |
} else { |
$output .= ' |
$output .= ' |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>'; |
<td class="LC_left_item" style="vertical-align: top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>'; |
} |
} |
if (defined($item->{'header'}->[0]->{'col3'})) { |
if (defined($item->{'header'}->[0]->{'col3'})) { |
$output .= '<td class="LC_left_item" valign="top">'. |
$output .= '<td class="LC_left_item" style="vertical-align: top">'. |
&mt($item->{'header'}->[0]->{'col2'}); |
&mt($item->{'header'}->[0]->{'col2'}); |
if ($action eq 'serverstatuses') { |
if ($action eq 'serverstatuses') { |
$output .= '<br />(<tt>'.&mt('user1:domain1,user2:domain2 etc.').'</tt>)'; |
$output .= '<br />(<tt>'.&mt('user1:domain1,user2:domain2 etc.').'</tt>)'; |
} |
} |
} else { |
} else { |
$output .= '<td class="LC_right_item" valign="top">'. |
$output .= '<td class="LC_right_item" style="vertical-align: top">'. |
&mt($item->{'header'}->[0]->{'col2'}); |
&mt($item->{'header'}->[0]->{'col2'}); |
} |
} |
$output .= '</td>'; |
$output .= '</td>'; |
if ($item->{'header'}->[0]->{'col3'}) { |
if ($item->{'header'}->[0]->{'col3'}) { |
if (defined($item->{'header'}->[0]->{'col4'})) { |
if (defined($item->{'header'}->[0]->{'col4'})) { |
$output .= '<td class="LC_left_item" valign="top">'. |
$output .= '<td class="LC_left_item" style="vertical-align: top">'. |
&mt($item->{'header'}->[0]->{'col3'}); |
&mt($item->{'header'}->[0]->{'col3'}); |
} else { |
} else { |
$output .= '<td class="LC_right_item" valign="top">'. |
$output .= '<td class="LC_right_item" style="vertical-align: top">'. |
&mt($item->{'header'}->[0]->{'col3'}); |
&mt($item->{'header'}->[0]->{'col3'}); |
} |
} |
if ($action eq 'serverstatuses') { |
if ($action eq 'serverstatuses') { |
Line 1056 sub print_config_box {
|
Line 1056 sub print_config_box {
|
$output .= '</td>'; |
$output .= '</td>'; |
} |
} |
if ($item->{'header'}->[0]->{'col4'}) { |
if ($item->{'header'}->[0]->{'col4'}) { |
$output .= '<td class="LC_right_item" valign="top">'. |
$output .= '<td class="LC_right_item" style="vertical-align: top">'. |
&mt($item->{'header'}->[0]->{'col4'}); |
&mt($item->{'header'}->[0]->{'col4'}); |
} |
} |
$output .= '</tr>'; |
$output .= '</tr>'; |
Line 1089 sub print_login {
|
Line 1089 sub print_login {
|
my $choice = $choices{'disallowlogin'}; |
my $choice = $choices{'disallowlogin'}; |
$css_class = ' class="LC_odd_row"'; |
$css_class = ' class="LC_odd_row"'; |
$datatable .= '<tr'.$css_class.'><td>'.$choice.'</td>'. |
$datatable .= '<tr'.$css_class.'><td>'.$choice.'</td>'. |
'<td align="right"><table><tr><th>'.$choices{'hostid'}.'</th>'. |
'<td style="text-align: right"><table><tr><th>'.$choices{'hostid'}.'</th>'. |
'<th>'.$choices{'server'}.'</th>'. |
'<th>'.$choices{'server'}.'</th>'. |
'<th>'.$choices{'serverpath'}.'</th>'. |
'<th>'.$choices{'serverpath'}.'</th>'. |
'<th>'.$choices{'custompath'}.'</th>'. |
'<th>'.$choices{'custompath'}.'</th>'. |
Line 1370 sub print_login {
|
Line 1370 sub print_login {
|
my $choice = $choices{'headtag'}; |
my $choice = $choices{'headtag'}; |
$css_class = ' class="LC_odd_row"'; |
$css_class = ' class="LC_odd_row"'; |
$datatable .= '<tr'.$css_class.'><td colspan="2">'.$choice.'</td>'. |
$datatable .= '<tr'.$css_class.'><td colspan="2">'.$choice.'</td>'. |
'<td align="left"><table><tr><th>'.$choices{'hostid'}.'</th>'. |
'<td style="text-align: left"><table><tr><th>'.$choices{'hostid'}.'</th>'. |
'<th>'.$choices{'current'}.'</th>'. |
'<th>'.$choices{'current'}.'</th>'. |
'<th>'.$choices{'action'}.'</th>'. |
'<th>'.$choices{'action'}.'</th>'. |
'<th>'.$choices{'exempt'}.'</th></tr>'."\n"; |
'<th>'.$choices{'exempt'}.'</th></tr>'."\n"; |
Line 1726 sub display_color_options {
|
Line 1726 sub display_color_options {
|
'<table border="0"><tr>'; |
'<table border="0"><tr>'; |
|
|
foreach my $item (@{$bgs}) { |
foreach my $item (@{$bgs}) { |
$datatable .= '<td align="center">'.$choices->{$item}; |
$datatable .= '<td style="text-align: center">'.$choices->{$item}; |
my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item}; |
my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item}; |
if ($designs->{'bgs'}{$item}) { |
if ($designs->{'bgs'}{$item}) { |
$datatable .= ' '; |
$datatable .= ' '; |
Line 1754 sub display_color_options {
|
Line 1754 sub display_color_options {
|
'<table border="0"><tr>'; |
'<table border="0"><tr>'; |
foreach my $item (@{$links}) { |
foreach my $item (@{$links}) { |
my $color = $designs->{'links'}{$item} ? $designs->{'links'}{$item} : $defaults->{'links'}{$item}; |
my $color = $designs->{'links'}{$item} ? $designs->{'links'}{$item} : $defaults->{'links'}{$item}; |
$datatable .= '<td align="center">'.$choices->{$item}."\n"; |
$datatable .= '<td style="text-align: center">'.$choices->{$item}."\n"; |
if ($designs->{'links'}{$item}) { |
if ($designs->{'links'}{$item}) { |
$datatable.=' '; |
$datatable.=' '; |
} |
} |
Line 1815 sub login_text_colors {
|
Line 1815 sub login_text_colors {
|
my ($img,$role,$logintext,$phase,$choices,$designs,$defaults) = @_; |
my ($img,$role,$logintext,$phase,$choices,$designs,$defaults) = @_; |
my $color_menu = '<table border="0"><tr>'; |
my $color_menu = '<table border="0"><tr>'; |
foreach my $item (@{$logintext}) { |
foreach my $item (@{$logintext}) { |
$color_menu .= '<td align="center">'.$choices->{$item}; |
$color_menu .= '<td style="text-align: center">'.$choices->{$item}; |
my $color = $designs->{'logintext'}{$item} ? $designs->{'logintext'}{$item} : $defaults->{'logintext'}{$item}; |
my $color = $designs->{'logintext'}{$item} ? $designs->{'logintext'}{$item} : $defaults->{'logintext'}{$item}; |
$color_menu .= '<br /><input type="text" class="colorchooser" size="8" name="'.$role.'_'.$item.'" value="'.$color. |
$color_menu .= '<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>'; |
Line 1850 sub image_changes {
|
Line 1850 sub image_changes {
|
$role.'_del_'.$img.'" value="1" />'.&mt('Delete?'). |
$role.'_del_'.$img.'" value="1" />'.&mt('Delete?'). |
'</label> '.&mt('Replace:').'</span><br />'; |
'</label> '.&mt('Replace:').'</span><br />'; |
} else { |
} else { |
$output .= '<td valign="middle">'.$logincolors.&mt('Upload:').'<br />'; |
$output .= '<td class="LC_middle">'.$logincolors.&mt('Upload:').'<br />'; |
} |
} |
} |
} |
return $output; |
return $output; |
Line 3356 sub print_helpsettings {
|
Line 3356 sub print_helpsettings {
|
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype); |
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype); |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$num."_pos'".');"'; |
my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$num."_pos'".');"'; |
$datatable .= '<tr '.$css_class.'><td valign="top"><b>'.$role.'</b><br />'. |
$datatable .= '<tr '.$css_class.'><td style="vertical-align: top"><b>'.$role.'</b><br />'. |
'<select name="helproles_'.$num.'_pos"'.$chgstr.'>'; |
'<select name="helproles_'.$num.'_pos"'.$chgstr.'>'; |
for (my $k=0; $k<=$maxnum; $k++) { |
for (my $k=0; $k<=$maxnum; $k++) { |
my $vpos = $k+1; |
my $vpos = $k+1; |
Line 3395 sub print_helpsettings {
|
Line 3395 sub print_helpsettings {
|
&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent); |
&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent); |
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype); |
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype); |
my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$count."_pos'".');"'; |
my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$count."_pos'".');"'; |
$datatable .= '<tr '.$css_class.'><td valign="top"><span class="LC_nobreak"><label>'. |
$datatable .= '<tr '.$css_class.'><td style="vertical-align: top"><span class="LC_nobreak"><label>'. |
'<input type="hidden" name="helproles_maxnum" value="'.$maxnum.'" />'."\n". |
'<input type="hidden" name="helproles_maxnum" value="'.$maxnum.'" />'."\n". |
'<select name="helproles_'.$count.'_pos"'.$chgstr.'>'; |
'<select name="helproles_'.$count.'_pos"'.$chgstr.'>'; |
for (my $k=0; $k<$maxnum+1; $k++) { |
for (my $k=0; $k<$maxnum+1; $k++) { |
Line 3674 sub radiobutton_prefs {
|
Line 3674 sub radiobutton_prefs {
|
foreach my $item (@{$toggles}) { |
foreach my $item (@{$toggles}) { |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
$datatable .= |
$datatable .= |
'<tr'.$css_class.'><td valign="top">'. |
'<tr'.$css_class.'><td style="vertical-align: top">'. |
'<span class="LC_nobreak">'.$choices->{$item}. |
'<span class="LC_nobreak">'.$choices->{$item}. |
'</span></td>'; |
'</span></td>'; |
if ($align eq 'left') { |
if ($align eq 'left') { |
Line 3865 sub print_ltitools {
|
Line 3865 sub print_ltitools {
|
if (!$rolemaps{$role}) { |
if (!$rolemaps{$role}) { |
$selectnone = ' selected="selected"'; |
$selectnone = ' selected="selected"'; |
} |
} |
$datatable .= '<td align="center">'. |
$datatable .= '<td style="text-align: center">'. |
&Apache::lonnet::plaintext($role,'Course').'<br />'. |
&Apache::lonnet::plaintext($role,'Course').'<br />'. |
'<select name="ltitools_roles_'.$role.'_'.$i.'">'. |
'<select name="ltitools_roles_'.$role.'_'.$i.'">'. |
'<option value=""'.$selectnone.'>'.&mt('Select').'</option>'; |
'<option value=""'.$selectnone.'>'.&mt('Select').'</option>'; |
Line 3999 sub print_ltitools {
|
Line 3999 sub print_ltitools {
|
'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>'; |
'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>'; |
foreach my $role (@courseroles) { |
foreach my $role (@courseroles) { |
my ($checked,$checkednone); |
my ($checked,$checkednone); |
$datatable .= '<td align="center">'. |
$datatable .= '<td style="text-align: center">'. |
&Apache::lonnet::plaintext($role,'Course').'<br />'. |
&Apache::lonnet::plaintext($role,'Course').'<br />'. |
'<select name="ltitools_add_roles_'.$role.'">'. |
'<select name="ltitools_add_roles_'.$role.'">'. |
'<option value="" selected="selected">'.&mt('Select').'</option>'; |
'<option value="" selected="selected">'.&mt('Select').'</option>'; |
Line 4073 sub print_coursedefaults {
|
Line 4073 sub print_coursedefaults {
|
coursecredits => 'Credits can be specified for courses', |
coursecredits => 'Credits can be specified for courses', |
uselcmath => 'Math preview uses LON-CAPA previewer (javascript) in place of DragMath (Java)', |
uselcmath => 'Math preview uses LON-CAPA previewer (javascript) in place of DragMath (Java)', |
usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)', |
usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)', |
|
texengine => 'Default method to display mathematics', |
postsubmit => 'Disable submit button/keypress following student submission', |
postsubmit => 'Disable submit button/keypress following student submission', |
canclone => "People who may clone a course (besides course's owner and coordinators)", |
canclone => "People who may clone a course (besides course's owner and coordinators)", |
mysqltables => 'Lifetime (s) of "Temporary" MySQL tables (student performance data) on homeserver', |
mysqltables => 'Lifetime (s) of "Temporary" MySQL tables (student performance data) on homeserver', |
); |
); |
my %staticdefaults = ( |
my %staticdefaults = ( |
|
texengine => 'MathJax', |
anonsurvey_threshold => 10, |
anonsurvey_threshold => 10, |
uploadquota => 500, |
uploadquota => 500, |
postsubmit => 60, |
postsubmit => 60, |
Line 4091 sub print_coursedefaults {
|
Line 4093 sub print_coursedefaults {
|
'canclone' => 'none', |
'canclone' => 'none', |
); |
); |
@toggles = ('canuse_pdfforms','uselcmath','usejsme'); |
@toggles = ('canuse_pdfforms','uselcmath','usejsme'); |
|
my $deftex = $staticdefaults{'texengine'}; |
|
if (ref($settings) eq 'HASH') { |
|
if ($settings->{'texengine'}) { |
|
if ($settings->{'texengine'} =~ /^(MathJax|mimetex|tth)$/) { |
|
$deftex = $settings->{'texengine'}; |
|
} |
|
} |
|
} |
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
my $mathdisp = '<tr'.$css_class.'><td style="vertical-align: top">'. |
|
'<span class="LC_nobreak">'.$choices{'texengine'}. |
|
'</span></td><td class="LC_right_item">'. |
|
'<select name="texengine">'."\n"; |
|
my %texoptions = ( |
|
MathJax => 'MathJax', |
|
mimetex => &mt('Convert to Images'), |
|
tth => &mt('TeX to HTML'), |
|
); |
|
foreach my $renderer ('MathJax','mimetex','tth') { |
|
my $selected = ''; |
|
if ($renderer eq $deftex) { |
|
$selected = ' selected="selected"'; |
|
} |
|
$mathdisp .= '<option value="'.$renderer.'"'.$selected.'>'.$texoptions{$renderer}.'</option>'."\n"; |
|
} |
|
$mathdisp .= '</select></td></tr>'."\n"; |
|
$itemcount ++; |
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked, |
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked, |
\%choices,$itemcount); |
\%choices,$itemcount); |
|
$datatable = $mathdisp.$datatable; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
$datatable .= |
$datatable .= |
'<tr'.$css_class.'><td valign="top">'. |
'<tr'.$css_class.'><td style="vertical-align: top">'. |
'<span class="LC_nobreak">'.$choices{'canclone'}. |
'<span class="LC_nobreak">'.$choices{'canclone'}. |
'</span></td><td class="LC_left_item">'; |
'</span></td><td class="LC_left_item">'; |
my $currcanclone = 'none'; |
my $currcanclone = 'none'; |
Line 4247 sub print_coursedefaults {
|
Line 4277 sub print_coursedefaults {
|
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'. |
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'. |
$choices{'uploadquota'}. |
$choices{'uploadquota'}. |
'</span></td>'. |
'</span></td>'. |
'<td align="right" class="LC_right_item">'. |
'<td style="text-align: right" class="LC_right_item">'. |
'<table><tr>'; |
'<table><tr>'; |
foreach my $type (@types) { |
foreach my $type (@types) { |
$datatable .= '<td align="center">'.&mt($type).'<br />'. |
$datatable .= '<td style="text-align: center">'.&mt($type).'<br />'. |
'<input type="text" name="uploadquota_'.$type.'"'. |
'<input type="text" name="uploadquota_'.$type.'"'. |
' value="'.$curruploadquota{$type}.'" size="5" /></td>'; |
' value="'.$curruploadquota{$type}.'" size="5" /></td>'; |
} |
} |
Line 4265 sub print_coursedefaults {
|
Line 4295 sub print_coursedefaults {
|
'<i>'.&mt('Default credits').'</i><br /><table><tr>'; |
'<i>'.&mt('Default credits').'</i><br /><table><tr>'; |
foreach my $type (@types) { |
foreach my $type (@types) { |
next if ($type eq 'community'); |
next if ($type eq 'community'); |
$additional .= '<td align="center">'.&mt($type).'<br />'. |
$additional .= '<td style="text-align: center">'.&mt($type).'<br />'. |
'<input type="text" name="'.$type.'_credits"'. |
'<input type="text" name="'.$type.'_credits"'. |
' value="'.$defcredits{$type}.'" size="3" /></td>'; |
' value="'.$defcredits{$type}.'" size="3" /></td>'; |
} |
} |
Line 4289 sub print_coursedefaults {
|
Line 4319 sub print_coursedefaults {
|
'<i>'.&mt('Enter 0 to remain disabled until page reload.').'</i><br />'. |
'<i>'.&mt('Enter 0 to remain disabled until page reload.').'</i><br />'. |
'<table><tr>'; |
'<table><tr>'; |
foreach my $type (@types) { |
foreach my $type (@types) { |
$additional .= '<td align="center">'.&mt($type).'<br />'. |
$additional .= '<td style="text-align: center">'.&mt($type).'<br />'. |
'<input type="text" name="'.$type.'_timeout" value="'. |
'<input type="text" name="'.$type.'_timeout" value="'. |
$deftimeout{$type}.'" size="5" /></td>'; |
$deftimeout{$type}.'" size="5" /></td>'; |
} |
} |
Line 4307 sub print_coursedefaults {
|
Line 4337 sub print_coursedefaults {
|
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'. |
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'. |
$choices{'mysqltables'}. |
$choices{'mysqltables'}. |
'</span></td>'. |
'</span></td>'. |
'<td align="right" class="LC_right_item">'. |
'<td style="text-align: right" class="LC_right_item">'. |
'<table><tr>'; |
'<table><tr>'; |
foreach my $type (@types) { |
foreach my $type (@types) { |
$datatable .= '<td align="center">'.&mt($type).'<br />'. |
$datatable .= '<td style="text-align: center">'.&mt($type).'<br />'. |
'<input type="text" name="mysqltables_'.$type.'"'. |
'<input type="text" name="mysqltables_'.$type.'"'. |
' value="'.$currmysql{$type}.'" size="8" /></td>'; |
' value="'.$currmysql{$type}.'" size="8" /></td>'; |
} |
} |
Line 5209 sub print_loadbalancing {
|
Line 5239 sub print_loadbalancing {
|
my $disabled_div_style = 'display: block'; |
my $disabled_div_style = 'display: block'; |
my $homedom_div_style = 'display: none'; |
my $homedom_div_style = 'display: none'; |
$datatable .= '<tr class="'.$css_class[$cssidx].'">'. |
$datatable .= '<tr class="'.$css_class[$cssidx].'">'. |
'<td rowspan="'.$rownum.'" valign="top">'. |
'<td rowspan="'.$rownum.'" style="vertical-align: top">'. |
'<p>'; |
'<p>'; |
if ($lonhost eq '') { |
if ($lonhost eq '') { |
$datatable .= '<span class="LC_nobreak">'; |
$datatable .= '<span class="LC_nobreak">'; |
Line 5242 sub print_loadbalancing {
|
Line 5272 sub print_loadbalancing {
|
$homedom_div_style = 'display: block'; |
$homedom_div_style = 'display: block'; |
} |
} |
} |
} |
$datatable .= '</p></td><td rowspan="'.$rownum.'" valign="top">'. |
$datatable .= '</p></td><td rowspan="'.$rownum.'" style="vertical-align: top">'. |
'<div id="loadbalancing_disabled_'.$balnum.'" style="'. |
'<div id="loadbalancing_disabled_'.$balnum.'" style="'. |
$disabled_div_style.'">'.$disabledtext.'</div>'."\n". |
$disabled_div_style.'">'.$disabledtext.'</div>'."\n". |
'<div id="loadbalancing_targets_'.$balnum.'" style="'.$targets_div_style.'">'.&mt('Offloads to:').'<br />'; |
'<div id="loadbalancing_targets_'.$balnum.'" style="'.$targets_div_style.'">'.&mt('Offloads to:').'<br />'; |
Line 5457 sub loadbalance_rule_row {
|
Line 5487 sub loadbalance_rule_row {
|
$space = '<div display="inline-block"> </div>'; |
$space = '<div display="inline-block"> </div>'; |
} |
} |
my $output = |
my $output = |
'<tr class="'.$css_class.'" id="balanceruletr_'.$balnum.'_'.$num.'"><td valign="top">'.$space. |
'<tr class="'.$css_class.'" id="balanceruletr_'.$balnum.'_'.$num.'"><td style="vertical-align: top">'.$space. |
'<div id="balanceruletitle_'.$balnum.'_'.$type.'" style="'.$style.'">'.$title.'</div></td>'."\n". |
'<div id="balanceruletitle_'.$balnum.'_'.$type.'" style="'.$style.'">'.$title.'</div></td>'."\n". |
'<td valaign="top">'.$space. |
'<td valaign="top">'.$space. |
'<div id="balancerule_'.$balnum.'_'.$type.'" style="'.$style.'">'."\n"; |
'<div id="balancerule_'.$balnum.'_'.$type.'" style="'.$style.'">'."\n"; |
Line 5694 sub print_usercreation {
|
Line 5724 sub print_usercreation {
|
} |
} |
$datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
'<td><span class="LC_nobreak">'.$lt{$item}. |
'<td><span class="LC_nobreak">'.$lt{$item}. |
'</span></td><td align="right">'; |
'</span></td><td style="text-align: right">'; |
my @options = ('any'); |
my @options = ('any'); |
if (ref($rules) eq 'HASH') { |
if (ref($rules) eq 'HASH') { |
if (keys(%{$rules}) > 0) { |
if (keys(%{$rules}) > 0) { |
Line 6137 sub noninst_users {
|
Line 6167 sub noninst_users {
|
} |
} |
$output .= '</tr><tr>'; |
$output .= '</tr><tr>'; |
foreach my $item ('approve','email','username') { |
foreach my $item ('approve','email','username') { |
$output .= '<td valign="top">'; |
$output .= '<td style="vertical-align: top">'; |
my (%choices,@options,$hashref,$defoption,$name,$onclick,$hascustom); |
my (%choices,@options,$hashref,$defoption,$name,$onclick,$hascustom); |
if ($item eq 'approve') { |
if ($item eq 'approve') { |
%choices = &Apache::lonlocal::texthash ( |
%choices = &Apache::lonlocal::texthash ( |
Line 6402 sub user_formats_row {
|
Line 6432 sub user_formats_row {
|
} |
} |
$output .= '<td class="LC_left_item">'. |
$output .= '<td class="LC_left_item">'. |
'<span class="LC_nobreak"><label>'. |
'<span class="LC_nobreak"><label>'. |
'<input type="checkbox" name="'.$name.'"'. |
'<input type="checkbox" name="'.$name.'" '. |
'value="'.$ruleorder->[$i].'"'.$check.'/>'. |
'value="'.$ruleorder->[$i].'"'.$check.'/>'. |
$rules->{$ruleorder->[$i]}{'name'}.'</label></span></td>'; |
$rules->{$ruleorder->[$i]}{'name'}.'</label></span></td>'; |
} |
} |
Line 6849 sub print_scantronformat {
|
Line 6879 sub print_scantronformat {
|
} |
} |
$datatable .= '</span></td>'; |
$datatable .= '</span></td>'; |
if (keys(%error) == 0) { |
if (keys(%error) == 0) { |
$datatable .= '<td valign="bottom">'; |
$datatable .= '<td style="vertical-align: bottom">'; |
if (!$switchserver) { |
if (!$switchserver) { |
$datatable .= &mt('Upload:').'<br />'; |
$datatable .= &mt('Upload:').'<br />'; |
} |
} |
Line 7643 sub modifiable_userdata_row {
|
Line 7673 sub modifiable_userdata_row {
|
if ($rowid) { |
if ($rowid) { |
$rowid = ' id="'.$rowid.'"'; |
$rowid = ' id="'.$rowid.'"'; |
} |
} |
|
|
$output = '<tr '.$css_class.$rowid.'>'. |
$output = '<tr '.$css_class.$rowid.'>'. |
'<td><span class="LC_nobreak">'.$rolename.'</span></td>'. |
'<td><span class="LC_nobreak">'.$rolename.'</span></td>'. |
'<td class="LC_left_item" colspan="2"><table>'; |
'<td class="LC_left_item" colspan="2"><table>'; |
Line 8736 sub display_colorchgs {
|
Line 8765 sub display_colorchgs {
|
} else { |
} else { |
my $newitem = $confhash->{$role}{$item}; |
my $newitem = $confhash->{$role}{$item}; |
if ($key eq 'images') { |
if ($key eq 'images') { |
$newitem = '<img src="'.$confhash->{$role}{$item}.'" alt="'.$choices{$item}.'" valign="bottom" />'; |
$newitem = '<img src="'.$confhash->{$role}{$item}.'" alt="'.$choices{$item}.'" style="vertical-align: bottom" />'; |
} |
} |
$resulttext .= '<li>'.&mt("$choices{$item} set to [_1]",$newitem).'</li>'; |
$resulttext .= '<li>'.&mt("$choices{$item} set to [_1]",$newitem).'</li>'; |
} |
} |
Line 9270 sub modify_quotas {
|
Line 9299 sub modify_quotas {
|
#FIXME need to obsolete item in RES space |
#FIXME need to obsolete item in RES space |
} elsif ($env{'form.'.$type.'_image_'.$i.'.filename'}) { |
} elsif ($env{'form.'.$type.'_image_'.$i.'.filename'}) { |
my ($cdom,$cnum) = split(/_/,$key); |
my ($cdom,$cnum) = split(/_/,$key); |
my ($imgurl,$error) = &process_textbook_image($r,$dom,$confname,$type.'_image_'.$i, |
if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { |
$cdom,$cnum,$type,$configuserok, |
$errors .= '<li><span class="LC_error">'.&mt('Image not saved: could not find textbook course').'</li>'; |
$switchserver,$author_ok); |
} else { |
if ($imgurl) { |
my ($imgurl,$error) = &process_textbook_image($r,$dom,$confname,$type.'_image_'.$i, |
$confhash{$type}{$key}{'image'} = $imgurl; |
$cdom,$cnum,$type,$configuserok, |
$changes{$type}{$key} = 1; |
$switchserver,$author_ok); |
|
if ($imgurl) { |
|
$confhash{$type}{$key}{'image'} = $imgurl; |
|
$changes{$type}{$key} = 1; |
|
} |
|
if ($error) { |
|
&Apache::lonnet::logthis($error); |
|
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
|
} |
} |
} |
if ($error) { |
|
&Apache::lonnet::logthis($error); |
|
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
|
} |
|
} elsif ($domconfig{$action}{$type}{$key}{'image'}) { |
} elsif ($domconfig{$action}{$type}{$key}{'image'}) { |
$confhash{$type}{$key}{'image'} = |
$confhash{$type}{$key}{'image'} = |
$domconfig{$action}{$type}{$key}{'image'}; |
$domconfig{$action}{$type}{$key}{'image'}; |
Line 9313 sub modify_quotas {
|
Line 9346 sub modify_quotas {
|
if ($type eq 'textbooks') { |
if ($type eq 'textbooks') { |
if ($env{'form.'.$type.'_addbook_image.filename'} ne '') { |
if ($env{'form.'.$type.'_addbook_image.filename'} ne '') { |
my ($cdom,$cnum) = split(/_/,$newbook{$type}); |
my ($cdom,$cnum) = split(/_/,$newbook{$type}); |
my ($imageurl,$error) = |
if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { |
&process_textbook_image($r,$dom,$confname,$type.'_addbook_image',$cdom,$cnum,$type, |
$errors .= '<li><span class="LC_error">'.&mt('Image not saved: could not find textbook course').'</li>'; |
$configuserok,$switchserver,$author_ok); |
} else { |
if ($imageurl) { |
my ($imageurl,$error) = |
$confhash{$type}{$newbook{$type}}{'image'} = $imageurl; |
&process_textbook_image($r,$dom,$confname,$type.'_addbook_image',$cdom,$cnum,$type, |
} |
$configuserok,$switchserver,$author_ok); |
if ($error) { |
if ($imageurl) { |
&Apache::lonnet::logthis($error); |
$confhash{$type}{$newbook{$type}}{'image'} = $imageurl; |
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
} |
|
if ($error) { |
|
&Apache::lonnet::logthis($error); |
|
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
|
} |
} |
} |
} |
} |
} |
} |
Line 9813 sub process_textbook_image {
|
Line 9850 sub process_textbook_image {
|
} elsif ($author_ok eq 'ok') { |
} elsif ($author_ok eq 'ok') { |
my ($result,$imageurl) = |
my ($result,$imageurl) = |
&publishlogo($r,'upload',$caller,$dom,$confname, |
&publishlogo($r,'upload',$caller,$dom,$confname, |
"$type/$dom/$cnum/cover",$width,$height); |
"$type/$cdom/$cnum/cover",$width,$height); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$url = $imageurl; |
$url = $imageurl; |
} else { |
} else { |
Line 9896 sub modify_ltitools {
|
Line 9933 sub modify_ltitools {
|
} |
} |
if ($env{'form.ltitools_add_image.filename'} ne '') { |
if ($env{'form.ltitools_add_image.filename'} ne '') { |
my ($imageurl,$error) = |
my ($imageurl,$error) = |
&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$dom, |
&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$newid, |
$configuserok,$switchserver,$author_ok); |
$configuserok,$switchserver,$author_ok); |
if ($imageurl) { |
if ($imageurl) { |
$confhash{$newid}{'image'} = $imageurl; |
$confhash{$newid}{'image'} = $imageurl; |
Line 9959 sub modify_ltitools {
|
Line 9996 sub modify_ltitools {
|
my $maxnum = $env{'form.ltitools_maxnum'}; |
my $maxnum = $env{'form.ltitools_maxnum'}; |
for (my $i=0; $i<=$maxnum; $i++) { |
for (my $i=0; $i<=$maxnum; $i++) { |
my $itemid = $env{'form.ltitools_id_'.$i}; |
my $itemid = $env{'form.ltitools_id_'.$i}; |
|
$itemid =~ s/\D+//g; |
if (ref($domconfig{$action}{$itemid}) eq 'HASH') { |
if (ref($domconfig{$action}{$itemid}) eq 'HASH') { |
if ($deletions{$itemid}) { |
if ($deletions{$itemid}) { |
if ($domconfig{$action}{$itemid}{'image'}) { |
if ($domconfig{$action}{$itemid}{'image'}) { |
Line 12072 sub modify_selfcreation {
|
Line 12110 sub modify_selfcreation {
|
if (@types) { |
if (@types) { |
if (@statuses) { |
if (@statuses) { |
$chgtext .= &mt('Processing of requests to create account with e-mail verification set as follows:'). |
$chgtext .= &mt('Processing of requests to create account with e-mail verification set as follows:'). |
'<ul>'; |
'<ul>'; |
foreach my $status (@statuses) { |
foreach my $status (@statuses) { |
if ($status eq 'default') { |
if ($status eq 'default') { |
$chgtext .= '<li>'.$othertitle.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$status}}.'</li>'; |
$chgtext .= '<li>'.$othertitle.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$status}}.'</li>'; |
Line 12273 sub modify_selfcreation {
|
Line 12311 sub modify_selfcreation {
|
} |
} |
} |
} |
$chgtext .= '</ul>'; |
$chgtext .= '</ul>'; |
|
my $typename; |
if (@types) { |
if (@types) { |
my $typename; |
|
if ($type eq 'default') { |
if ($type eq 'default') { |
$typename = $othertitle; |
$typename = $othertitle; |
} else { |
} else { |
Line 12290 sub modify_selfcreation {
|
Line 12328 sub modify_selfcreation {
|
'</li>'; |
'</li>'; |
} else { |
} else { |
$resulttext .= '<li>'. |
$resulttext .= '<li>'. |
&mt('There are now no restrictions on e-mail addresses which may be used for verification when a user requests an account.', |
&mt('There are now no restrictions on e-mail addresses which may be used for verification when a user requests an account.'). |
$usertypes{$type}). |
|
'</li>'. |
'</li>'. |
&mt('(Affiliation: [_1])',$type); |
&mt('(Affiliation: [_1])',$typename); |
} |
} |
} |
} |
} |
} |
Line 13656 sub modify_coursedefaults {
|
Line 13693 sub modify_coursedefaults {
|
postsubmit => 60, |
postsubmit => 60, |
mysqltables => 172800, |
mysqltables => 172800, |
); |
); |
|
my %texoptions = ( |
|
MathJax => 'MathJax', |
|
mimetex => &mt('Convert to Images'), |
|
tth => &mt('TeX to HTML'), |
|
); |
$defaultshash{'coursedefaults'} = {}; |
$defaultshash{'coursedefaults'} = {}; |
|
|
if (ref($domconfig{'coursedefaults'}) ne 'HASH') { |
if (ref($domconfig{'coursedefaults'}) ne 'HASH') { |
Line 13716 sub modify_coursedefaults {
|
Line 13757 sub modify_coursedefaults {
|
} |
} |
} |
} |
} |
} |
|
my $texengine; |
|
if ($env{'form.texengine'} =~ /^(MathJax|mimetex|tth)$/) { |
|
$texengine = $env{'form.texengine'}; |
|
if ($defaultshash{'coursedefaults'}{'texengine'} eq '') { |
|
unless ($texengine eq 'MathJax') { |
|
$changes{'texengine'} = 1; |
|
} |
|
} elsif ($defaultshash{'coursedefaults'}{'texengine'} ne $texengine) { |
|
$changes{'texengine'} = 1; |
|
} |
|
} |
|
if ($texengine ne '') { |
|
$defaultshash{'coursedefaults'}{'texengine'} = $texengine; |
|
} |
my $currclone = $domconfig{'coursedefaults'}{'canclone'}; |
my $currclone = $domconfig{'coursedefaults'}{'canclone'}; |
my @currclonecode; |
my @currclonecode; |
if (ref($currclone) eq 'HASH') { |
if (ref($currclone) eq 'HASH') { |
Line 13836 sub modify_coursedefaults {
|
Line 13891 sub modify_coursedefaults {
|
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
if (($changes{'canuse_pdfforms'}) || ($changes{'uploadquota'}) || ($changes{'postsubmit'}) || |
if (($changes{'canuse_pdfforms'}) || ($changes{'uploadquota'}) || ($changes{'postsubmit'}) || |
($changes{'coursecredits'}) || ($changes{'uselcmath'}) || ($changes{'usejsme'}) || |
($changes{'coursecredits'}) || ($changes{'uselcmath'}) || ($changes{'usejsme'}) || |
($changes{'canclone'}) || ($changes{'mysqltables'})) { |
($changes{'canclone'}) || ($changes{'mysqltables'}) || ($changes{'texengine'})) { |
foreach my $item ('canuse_pdfforms','uselcmath','usejsme') { |
foreach my $item ('canuse_pdfforms','uselcmath','usejsme','texengine') { |
if ($changes{$item}) { |
if ($changes{$item}) { |
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item}; |
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item}; |
} |
} |
Line 13906 sub modify_coursedefaults {
|
Line 13961 sub modify_coursedefaults {
|
} else { |
} else { |
$resulttext .= '<li>'.&mt('Molecule editor uses JME (Java), if supported by client OS.').'</li>'; |
$resulttext .= '<li>'.&mt('Molecule editor uses JME (Java), if supported by client OS.').'</li>'; |
} |
} |
|
} elsif ($item eq 'texengine') { |
|
if ($defaultshash{'coursedefaults'}{'texengine'} ne '') { |
|
$resulttext .= '<li>'.&mt('Default method to display mathematics set to: "[_1]"', |
|
$texoptions{$defaultshash{'coursedefaults'}{'texengine'}}).'</li>'; |
|
} |
} elsif ($item eq 'anonsurvey_threshold') { |
} elsif ($item eq 'anonsurvey_threshold') { |
$resulttext .= '<li>'.&mt('Responder count required for display of anonymous survey submissions set to [_1].',$defaultshash{'coursedefaults'}{'anonsurvey_threshold'}).'</li>'; |
$resulttext .= '<li>'.&mt('Responder count required for display of anonymous survey submissions set to [_1].',$defaultshash{'coursedefaults'}{'anonsurvey_threshold'}).'</li>'; |
} elsif ($item eq 'uploadquota') { |
} elsif ($item eq 'uploadquota') { |