version 1.160.6.20, 2013/07/05 19:18:34
|
version 1.160.6.22, 2013/08/08 00:54:47
|
Line 1123 sub print_rolecolors {
|
Line 1123 sub print_rolecolors {
|
my %designhash = &Apache::loncommon::get_domainconf($dom); |
my %designhash = &Apache::loncommon::get_domainconf($dom); |
my %defaultdesign = %Apache::loncommon::defaultdesign; |
my %defaultdesign = %Apache::loncommon::defaultdesign; |
my (%is_custom,%designs); |
my (%is_custom,%designs); |
my %defaults = ( |
my %defaults = &role_defaults($role,\@bgs,\@links,\@images); |
img => $defaultdesign{$role.'.img'}, |
|
font => $defaultdesign{$role.'.font'}, |
|
fontmenu => $defaultdesign{$role.'.fontmenu'}, |
|
); |
|
foreach my $item (@bgs) { |
|
$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item}; |
|
} |
|
foreach my $item (@links) { |
|
$defaults{'links'}{$item} = $defaultdesign{$role.'.'.$item}; |
|
} |
|
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{$role}) eq 'HASH') { |
if (ref($settings->{$role}) eq 'HASH') { |
if ($settings->{$role}->{'img'} ne '') { |
if ($settings->{$role}->{'img'} ne '') { |
Line 1194 sub print_rolecolors {
|
Line 1184 sub print_rolecolors {
|
return $datatable; |
return $datatable; |
} |
} |
|
|
|
sub role_defaults { |
|
my ($role,$bgs,$links,$images,$logintext) = @_; |
|
my %defaults; |
|
unless ((ref($bgs) eq 'ARRAY') && (ref($links) eq 'ARRAY') && (ref($images) eq 'ARRAY')) { |
|
return %defaults; |
|
} |
|
my %defaultdesign = %Apache::loncommon::defaultdesign; |
|
if ($role eq 'login') { |
|
%defaults = ( |
|
font => $defaultdesign{$role.'.font'}, |
|
); |
|
if (ref($logintext) eq 'ARRAY') { |
|
foreach my $item (@{$logintext}) { |
|
$defaults{'logintext'}{$item} = $defaultdesign{$role.'.'.$item}; |
|
} |
|
} |
|
foreach my $item (@{$images}) { |
|
$defaults{'showlogo'}{$item} = 1; |
|
} |
|
} else { |
|
%defaults = ( |
|
img => $defaultdesign{$role.'.img'}, |
|
font => $defaultdesign{$role.'.font'}, |
|
fontmenu => $defaultdesign{$role.'.fontmenu'}, |
|
); |
|
} |
|
foreach my $item (@{$bgs}) { |
|
$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item}; |
|
} |
|
foreach my $item (@{$links}) { |
|
$defaults{'links'}{$item} = $defaultdesign{$role.'.'.$item}; |
|
} |
|
foreach my $item (@{$images}) { |
|
$defaults{$item} = $defaultdesign{$role.'.'.$item}; |
|
} |
|
return %defaults; |
|
} |
|
|
sub display_color_options { |
sub display_color_options { |
my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs, |
my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs, |
$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_; |
$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_; |
Line 1220 sub display_color_options {
|
Line 1248 sub display_color_options {
|
} else { |
} else { |
$datatable .= '<td> </td>'; |
$datatable .= '<td> </td>'; |
} |
} |
$current_color = $designs->{'fontmenu'} ? |
$current_color = $designs->{'fontmenu'} ? |
$designs->{'fontmenu'} : $defaults->{'fontmenu'}; |
$designs->{'fontmenu'} : $defaults->{'fontmenu'}; |
$datatable .= '<td><span class="LC_nobreak">'. |
$datatable .= '<td><span class="LC_nobreak">'. |
'<input class="colorchooser" type="text" size="10" name="' |
'<input class="colorchooser" type="text" size="10" name="' |
.$role.'_fontmenu"'. |
.$role.'_fontmenu"'. |
' value="'.$current_color.'" /> '. |
' value="'.$current_color.'" /> '. |
' </td></tr>'; |
' </td></tr>'; |
} |
} |
Line 1241 sub display_color_options {
|
Line 1269 sub display_color_options {
|
&login_header_options($img,$role,$defaults,$is_custom,$choices); |
&login_header_options($img,$role,$defaults,$is_custom,$choices); |
$logincolors = |
$logincolors = |
&login_text_colors($img,$role,$logintext,$phase,$choices, |
&login_text_colors($img,$role,$logintext,$phase,$choices, |
$designs); |
$designs,$defaults); |
} elsif ($img ne 'domlogo') { |
} elsif ($img ne 'domlogo') { |
$datatable.= &logo_display_options($img,$defaults,$designs); |
$datatable.= &logo_display_options($img,$defaults,$designs); |
} |
} |
Line 1320 sub display_color_options {
|
Line 1348 sub display_color_options {
|
$datatable .= &image_changes($is_custom->{$img},$alt_text->{$img},$img_import, |
$datatable .= &image_changes($is_custom->{$img},$alt_text->{$img},$img_import, |
$showfile,$fullsize,$role,$img,$imgfile,$logincolors); |
$showfile,$fullsize,$role,$img,$imgfile,$logincolors); |
} else { |
} else { |
$datatable .= '<td colspan="2" class="LC_right_item"><br />'. |
$datatable .= '<td> </td><td class="LC_left_item">'. |
&mt('Upload:'); |
&mt('Upload:').'<br />'; |
} |
} |
} else { |
} else { |
$datatable .= '<td colspan="2" class="LC_right_item"><br />'. |
$datatable .= '<td> </td><td class="LC_left_item">'. |
&mt('Upload:'); |
&mt('Upload:').'<br />'; |
} |
} |
if ($switchserver) { |
if ($switchserver) { |
$datatable .= &mt('Upload to library server: [_1]',$switchserver); |
$datatable .= &mt('Upload to library server: [_1]',$switchserver); |
Line 1355 sub display_color_options {
|
Line 1383 sub display_color_options {
|
'<table border="0"><tr>'; |
'<table border="0"><tr>'; |
|
|
foreach my $item (@{$bgs}) { |
foreach my $item (@{$bgs}) { |
$datatable .= '<td align="center">'; |
$datatable .= '<td 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 1382 sub display_color_options {
|
Line 1410 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}) { |
my $color = $designs->{'link'}{$item} ? $designs->{'link'}{$item} : $defaults->{'links'}{$item}; |
my $color = $designs->{'link'}{$item} ? $designs->{'link'}{$item} : $defaults->{'links'}{$item}; |
$datatable .= '<td align="center">'."\n"; |
$datatable .= '<td align="center">'.$choices->{$item}."\n"; |
|
|
if ($designs->{'links'}{$item}) { |
if ($designs->{'links'}{$item}) { |
$datatable.=' '; |
$datatable.=' '; |
} |
} |
Line 1442 sub login_header_options {
|
Line 1469 sub login_header_options {
|
} |
} |
|
|
sub login_text_colors { |
sub login_text_colors { |
my ($img,$role,$logintext,$phase,$choices,$designs) = @_; |
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}) { |
my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'logintext'}{$item}); |
$color_menu .= '<td align="center">'.$choices->{$item}; |
$color_menu .= '<td align="center">'.$link; |
my $color = $designs->{'logintext'}{$item} ? $designs->{'logintext'}{$item} : $defaults->{'logintext'}{$item}; |
if ($designs->{'logintext'}{$item}) { |
$color_menu .= '<br /><input type="text" class="colorchooser" size="8" name="'.$role.'_'.$item.'" value="'.$color. |
$color_menu .= ' <span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'logintext'}{$item}.';"> </span>'; |
'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>'; |
} |
|
$color_menu .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'. |
|
$designs->{'logintext'}{$item}.'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>'. |
|
'<td> </td>'; |
|
} |
} |
$color_menu .= '</tr></table><br />'; |
$color_menu .= '</tr></table><br />'; |
return $color_menu; |
return $color_menu; |
Line 1484 sub image_changes {
|
Line 1507 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="bottom">'.$logincolors.&mt('Upload:').'<br />'; |
$output .= '<td valign="middle">'.$logincolors.&mt('Upload:').'<br />'; |
} |
} |
} |
} |
return $output; |
return $output; |
} |
} |
|
|
sub color_pick { |
|
my ($phase,$role,$item,$desc,$curcol) = @_; |
|
my $link = '<a href="javascript:pjump('."'color_custom','".$desc. |
|
"','".$curcol."','".$role.'_'.$item."','parmform.pres','psub'". |
|
');">'.$desc.'</a>'; |
|
return $link; |
|
} |
|
|
|
sub print_quotas { |
sub print_quotas { |
my ($dom,$settings,$rowtotal,$action) = @_; |
my ($dom,$settings,$rowtotal,$action) = @_; |
my $context; |
my $context; |
Line 2426 sub print_coursedefaults {
|
Line 2441 sub print_coursedefaults {
|
my $itemcount = 1; |
my $itemcount = 1; |
my %choices = &Apache::lonlocal::texthash ( |
my %choices = &Apache::lonlocal::texthash ( |
canuse_pdfforms => 'Course/Community users can create/upload PDF forms', |
canuse_pdfforms => 'Course/Community users can create/upload PDF forms', |
|
uploadquota => 'Default quota for files uploaded directly to course/community using Course Editor (MB)', |
anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys', |
anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys', |
coursecredits => 'Credits can be specified for courses', |
coursecredits => 'Credits can be specified for courses', |
); |
); |
|
my %staticdefaults = ( |
|
anonsurvey_threshold => 10, |
|
uploadquota => 500, |
|
); |
if ($position eq 'top') { |
if ($position eq 'top') { |
%defaultchecked = ('canuse_pdfforms' => 'off'); |
%defaultchecked = ('canuse_pdfforms' => 'off'); |
@toggles = ('canuse_pdfforms'); |
@toggles = ('canuse_pdfforms'); |
Line 2436 sub print_coursedefaults {
|
Line 2456 sub print_coursedefaults {
|
\%choices,$itemcount); |
\%choices,$itemcount); |
} else { |
} else { |
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
my ($currdefresponder,$def_official_credits,$def_unofficial_credits); |
my ($currdefresponder,$def_official_credits,$def_unofficial_credits,%curruploadquota); |
my $currusecredits = 0; |
my $currusecredits = 0; |
|
my @types = ('official','unofficial','community'); |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
$currdefresponder = $settings->{'anonsurvey_threshold'}; |
$currdefresponder = $settings->{'anonsurvey_threshold'}; |
|
if (ref($settings->{'uploadquota'}) eq 'HASH') { |
|
foreach my $type (keys(%{$settings->{'uploadquota'}})) { |
|
$curruploadquota{$type} = $settings->{'uploadquota'}{$type}; |
|
} |
|
} |
if (ref($settings->{'coursecredits'}) eq 'HASH') { |
if (ref($settings->{'coursecredits'}) eq 'HASH') { |
$def_official_credits = $settings->{'coursecredits'}->{'official'}; |
$def_official_credits = $settings->{'coursecredits'}->{'official'}; |
$def_unofficial_credits = $settings->{'coursecredits'}->{'unofficial'}; |
$def_unofficial_credits = $settings->{'coursecredits'}->{'unofficial'}; |
Line 2449 sub print_coursedefaults {
|
Line 2475 sub print_coursedefaults {
|
} |
} |
} |
} |
if (!$currdefresponder) { |
if (!$currdefresponder) { |
$currdefresponder = 10; |
$currdefresponder = $staticdefaults{'anonsurvey_threshold'}; |
} elsif ($currdefresponder < 1) { |
} elsif ($currdefresponder < 1) { |
$currdefresponder = 1; |
$currdefresponder = 1; |
} |
} |
|
foreach my $type (@types) { |
|
if ($curruploadquota{$type} eq '') { |
|
$curruploadquota{$type} = $staticdefaults{'uploadquota'}; |
|
} |
|
} |
$datatable .= |
$datatable .= |
'<tr'.$css_class.'><td><span class="LC_nobreak">'. |
'<tr'.$css_class.'><td><span class="LC_nobreak">'. |
$choices{'anonsurvey_threshold'}. |
$choices{'anonsurvey_threshold'}. |
Line 2460 sub print_coursedefaults {
|
Line 2491 sub print_coursedefaults {
|
'<td class="LC_right_item"><span class="LC_nobreak">'. |
'<td class="LC_right_item"><span class="LC_nobreak">'. |
'<input type="text" name="anonsurvey_threshold"'. |
'<input type="text" name="anonsurvey_threshold"'. |
' value="'.$currdefresponder.'" size="5" /></span>'. |
' value="'.$currdefresponder.'" size="5" /></span>'. |
'</td></tr>'."\n"; |
'</td></tr>'."\n". |
$itemcount ++; |
'<tr><td><span class="LC_nobreak">'. |
|
$choices{'uploadquota'}. |
|
'</span></td>'. |
|
'<td align="right" class="LC_right_item">'. |
|
'<table><tr>'; |
|
foreach my $type (@types) { |
|
$datatable .= '<td align="center">'.&mt($type).'<br />'. |
|
'<input type="text" name="uploadquota_'.$type.'"'. |
|
' value="'.$curruploadquota{$type}.'" size="5" /></td>'; |
|
} |
|
$datatable .= '</tr></table></td></tr>'."\n"; |
|
$itemcount += 2; |
my $onclick = 'toggleCredits(this.form);'; |
my $onclick = 'toggleCredits(this.form);'; |
my $display = 'none'; |
my $display = 'none'; |
if ($currusecredits) { |
if ($currusecredits) { |
Line 3874 sub print_scantronformat {
|
Line 3916 sub print_scantronformat {
|
$datatable .= '<td>'.&mt('Default in use:').'<br />'. |
$datatable .= '<td>'.&mt('Default in use:').'<br />'. |
'<span class="LC_nobreak">'; |
'<span class="LC_nobreak">'; |
if ($scantronurl) { |
if ($scantronurl) { |
$datatable .= '<a href="'.$scantronurl.'" target="_blank">'. |
$datatable .= &Apache::loncommon::modal_link($scantronurl,&mt('Default bubblesheet format file'),600,500, |
&mt('Default bubblesheet format file').'</a>'; |
undef,undef,undef,undef,'background-color:#ffffff'); |
} else { |
} else { |
$datatable = &mt('File unavailable for display'); |
$datatable = &mt('File unavailable for display'); |
} |
} |
Line 3900 sub print_scantronformat {
|
Line 3942 sub print_scantronformat {
|
} |
} |
$datatable .= '<td>'.$errorstr.'</td><td> '; |
$datatable .= '<td>'.$errorstr.'</td><td> '; |
} elsif ($scantronurl) { |
} elsif ($scantronurl) { |
|
my $link = &Apache::loncommon::modal_link($scantronurl,&mt('Custom bubblesheet format file'),600,500, |
|
undef,undef,undef,undef,'background-color:#ffffff'); |
$datatable .= '<td><span class="LC_nobreak">'. |
$datatable .= '<td><span class="LC_nobreak">'. |
'<a href="'.$scantronurl.'" target="_blank">'. |
$link. |
&mt('Custom bubblesheet format file').'</a><label>'. |
'<label><input type="checkbox" name="scantronformat_del"'. |
'<input type="checkbox" name="scantronformat_del"'. |
' value="1" />'.&mt('Delete?').'</label></span></td>'. |
'" value="1" />'.&mt('Delete?').'</label></span></td>'. |
|
'<td><span class="LC_nobreak"> '. |
'<td><span class="LC_nobreak"> '. |
&mt('Replace:').'</span><br />'; |
&mt('Replace:').'</span><br />'; |
} |
} |
Line 5010 sub color_font_choices {
|
Line 5053 sub color_font_choices {
|
links => "Link colors", |
links => "Link colors", |
images => "Images", |
images => "Images", |
font => "Font color", |
font => "Font color", |
fontmenu => "Font Menu", |
fontmenu => "Font menu", |
pgbg => "Page", |
pgbg => "Page", |
tabbg => "Header", |
tabbg => "Header", |
sidebg => "Border", |
sidebg => "Border", |
Line 5062 sub modify_colors {
|
Line 5105 sub modify_colors {
|
my @images; |
my @images; |
my $servadm = $r->dir_config('lonAdmEMail'); |
my $servadm = $r->dir_config('lonAdmEMail'); |
my $errors; |
my $errors; |
|
my %defaults; |
foreach my $role (@{$roles}) { |
foreach my $role (@{$roles}) { |
if ($role eq 'login') { |
if ($role eq 'login') { |
%choices = &login_choices(); |
%choices = &login_choices(); |
@logintext = ('textcol','bgcol'); |
@logintext = ('textcol','bgcol'); |
} else { |
} else { |
%choices = &color_font_choices(); |
%choices = &color_font_choices(); |
$confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'}; |
|
} |
} |
if ($role eq 'login') { |
if ($role eq 'login') { |
@images = ('img','logo','domlogo','login'); |
@images = ('img','logo','domlogo','login'); |
@bgs = ('pgbg','mainbg','sidebg'); |
@bgs = ('pgbg','mainbg','sidebg'); |
} else { |
} else { |
@images = ('img'); |
@images = ('img'); |
@bgs = ('pgbg','tabbg','sidebg'); |
@bgs = ('pgbg','tabbg','sidebg'); |
} |
} |
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'}; |
my %defaults = &role_defaults($role,\@bgs,\@links,\@images,\@logintext); |
foreach my $item (@bgs,@links,@logintext) { |
unless ($env{'form.'.$role.'_font'} eq $defaults{'font'}) { |
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item}; |
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'}; |
|
} |
|
if ($role eq 'login') { |
|
foreach my $item (@logintext) { |
|
unless ($env{'form.'.$role.'_'.$item} eq $defaults{'logintext'}{$item}) { |
|
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item}; |
|
} |
|
} |
|
} else { |
|
unless($env{'form.'.$role.'_fontmenu'} eq $defaults{'fontmenu'}) { |
|
$confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'}; |
|
} |
|
} |
|
foreach my $item (@bgs) { |
|
unless ($env{'form.'.$role.'_'.$item} eq $defaults{'bgs'}{$item} ) { |
|
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item}; |
|
} |
|
} |
|
foreach my $item (@links) { |
|
unless ($env{'form.'.$role.'_'.$item} eq $defaults{'links'}{$item}) { |
|
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item}; |
|
} |
} |
} |
my ($configuserok,$author_ok,$switchserver) = |
my ($configuserok,$author_ok,$switchserver) = |
&config_check($dom,$confname,$servadm); |
&config_check($dom,$confname,$servadm); |
Line 7889 sub modify_coursedefaults {
|
Line 7953 sub modify_coursedefaults {
|
my ($resulttext,$errors,%changes,%defaultshash); |
my ($resulttext,$errors,%changes,%defaultshash); |
my %defaultchecked = ('canuse_pdfforms' => 'off'); |
my %defaultchecked = ('canuse_pdfforms' => 'off'); |
my @toggles = ('canuse_pdfforms'); |
my @toggles = ('canuse_pdfforms'); |
|
my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial', |
|
'uploadquota_community'); |
|
my @types = ('official','unofficial','community'); |
|
my %staticdefaults = ( |
|
anonsurvey_threshold => 10, |
|
uploadquota => 500, |
|
); |
|
|
$defaultshash{'coursedefaults'} = {}; |
$defaultshash{'coursedefaults'} = {}; |
|
|
Line 7917 sub modify_coursedefaults {
|
Line 7988 sub modify_coursedefaults {
|
} |
} |
$defaultshash{'coursedefaults'}{$item} = $env{'form.'.$item}; |
$defaultshash{'coursedefaults'}{$item} = $env{'form.'.$item}; |
} |
} |
my $currdefresponder = $domconfig{'coursedefaults'}{'anonsurvey_threshold'}; |
foreach my $item (@numbers) { |
my $newdefresponder = $env{'form.anonsurvey_threshold'}; |
my ($currdef,$newdef); |
$newdefresponder =~ s/\D//g; |
my $newdef = $env{'form.'.$item}; |
if ($newdefresponder eq '' || $newdefresponder < 1) { |
if ($item eq 'anonsurvey_threshold') { |
$newdefresponder = 1; |
$currdef = $domconfig{'coursedefaults'}{$item}; |
} |
$newdef =~ s/\D//g; |
$defaultshash{'coursedefaults'}{'anonsurvey_threshold'} = $newdefresponder; |
if ($newdef eq '' || $newdef < 1) { |
if ($currdefresponder ne $newdefresponder) { |
$newdef = 1; |
unless ($currdefresponder eq '' && $newdefresponder == 10) { |
} |
$changes{'anonsurvey_threshold'} = 1; |
$defaultshash{'coursedefaults'}{$item} = $newdef; |
|
} else { |
|
my ($type) = ($item =~ /^\Quploadquota_\E(\w+)$/); |
|
if (ref($domconfig{'coursedefaults'}{'uploadquota'}) eq 'HASH') { |
|
$currdef = $domconfig{'coursedefaults'}{'uploadquota'}{$type}; |
|
} |
|
$newdef =~ s/[^\w.\-]//g; |
|
$defaultshash{'coursedefaults'}{'uploadquota'}{$type} = $newdef; |
|
} |
|
if ($currdef ne $newdef) { |
|
my $staticdef; |
|
if ($item eq 'anonsurvey_threshold') { |
|
unless (($currdef eq '') && ($newdef == $staticdefaults{$item})) { |
|
$changes{$item} = 1; |
|
} |
|
} else { |
|
unless (($currdef eq '') && ($newdef == $staticdefaults{'uploadquota'})) { |
|
$changes{'uploadquota'} = 1; |
|
} |
|
} |
} |
} |
} |
} |
my $officialcreds = $env{'form.official_credits'}; |
my $officialcreds = $env{'form.official_credits'}; |
Line 7952 sub modify_coursedefaults {
|
Line 8042 sub modify_coursedefaults {
|
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
my %domdefaults; |
my %domdefaults; |
if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
if (($changes{'canuse_pdfforms'}) || ($changes{'coursecredits'})) { |
if (($changes{'canuse_pdfforms'}) || ($changes{'coursecredits'}) || ($changes{'uploadquota'})) { |
%domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
%domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
if ($changes{'canuse_pdfforms'}) { |
if ($changes{'canuse_pdfforms'}) { |
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'}; |
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'}; |
Line 7965 sub modify_coursedefaults {
|
Line 8055 sub modify_coursedefaults {
|
$defaultshash{'coursedefaults'}{'coursecredits'}{'unofficial'}; |
$defaultshash{'coursedefaults'}{'coursecredits'}{'unofficial'}; |
} |
} |
} |
} |
|
if ($changes{'uploadquota'}) { |
|
if (ref($defaultshash{'coursedefaults'}{'uploadquota'}) eq 'HASH') { |
|
foreach my $type (@types) { |
|
$domdefaults{$type.'quota'}=$defaultshash{'coursedefaults'}{'uploadquota'}{$type}; |
|
} |
|
} |
|
} |
my $cachetime = 24*60*60; |
my $cachetime = 24*60*60; |
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
} |
} |
Line 7978 sub modify_coursedefaults {
|
Line 8075 sub modify_coursedefaults {
|
} |
} |
} 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') { |
|
if (ref($defaultshash{'coursedefaults'}{'uploadquota'}) eq 'HASH') { |
|
$resulttext .= '<li>'.&mt('Default quota for content uploaded to a course/community via Course Editor set as follows:').'<ul>'. |
|
'<li>'.&mt('Official courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'official'}.'</b>').'</li>'. |
|
'<li>'.&mt('Unofficial courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'unofficial'}.'</b>').'</li>'. |
|
'<li>'.&mt('Communities: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'community'}.'</b>').'</li>'. |
|
'</ul>'. |
|
'</li>'; |
|
} else { |
|
$resulttext .= '<li>'.&mt('Default quota for content uploaded via Course Editor remains default: [_1] MB',$staticdefaults{'uploadquota'}).'</li>'; |
|
} |
} elsif ($item eq 'coursecredits') { |
} elsif ($item eq 'coursecredits') { |
if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') { |
if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') { |
if (($domdefaults{'officialcredits'} eq '') && |
if (($domdefaults{'officialcredits'} eq '') && |