# The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # # $Id: lonconfigsettings.pm,v 1.6 2009/08/23 17:21:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA# # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # # ############################################################### ############################################################## package Apache::lonconfigsettings; use strict; use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); use Apache::lonlocal; sub print_header { my ($r,$phase,$context,$jscript) = @_; my ($pagetitle,$brcrumtitle,$action); if ($context eq 'domain') { ($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','Domain Settings'); $action = '/adm/domainprefs'; } else { ($pagetitle, $brcrumtitle) = ('Course Configuration','Course Configuration'); $action = '/adm/courseprefs'; } my $alert = &mt('You must select at least one functionality type to display.'); my $js = ' '; if ($jscript) { $js .= " $jscript "; } my $additem; if ($phase eq 'pickactions') { my %loaditems = ( 'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);setDisplayColumns();setFormElements(document.pickactions);", ); $additem = {'add_entries' => \%loaditems,}; } else { my %loaditems = ( 'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);", ); $additem = {'add_entries' => \%loaditems,}; } $r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem)); $r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle)); $r->print('
'); $r->print(''.&Apache::loncommon::end_page()); } return; } sub make_changes { my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$roles,$allitems) = @_; my %brcrumtext = &get_crumb_text(); my @actions = &Apache::loncommon::get_env_multiple('form.actions'); my ($numchanged,%changes,%disallowed); &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'display')", text=>$brcrumtext{$context}}, {href=>"javascript:changePage(document.$phase,'$phase')", text=>"Updated"}); &print_header($r,$phase,$context); if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($prefs) eq 'HASH')) { foreach my $item (@{$prefs_order}) { if (grep(/^\Q$item\E$/,@actions)) { if ($context eq 'domain') { $r->print(''); foreach my $item ('cloners','rolenames','feedback','discussion','localization') { if (ref($disallowed{$item}) eq 'HASH') { if (keys(%{$disallowed{$item}}) > 0) { $r->print(&Apache::courseprefs::display_disallowed($item,$disallowed{$item}, $prefs)); } } } $r->print('
'); } } $r->print(''); my $footer_text = 'Back to configuration display'; if ($context eq 'course') { $footer_text = 'Back to display/edit settings'; } &print_footer($r,$phase,'display',$footer_text,\@actions); $r->print('
'); } sub display_settings { my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$jscript, $allitems) = @_; my %brcrumtext = &get_crumb_text(); my @actions = &Apache::loncommon::get_env_multiple('form.actions'); &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'display')", text=>"Display/Edit Settings"}); &print_header($r,$phase,$context,$jscript); if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { if (@actions > 0) { my $rowsum = 0; my (%output,%rowtotal,@items); my $halfway = @actions/2; foreach my $item (@{$prefs_order}) { if (grep(/^\Q$item\E$/,@actions)) { push(@items,$item); if ($context eq 'domain') { ($output{$item},$rowtotal{$item}) = &Apache::domainprefs::print_config_box($r,$dom,$confname, $phase,$item,$prefs->{$item},$values->{$item}); } else { ($output{$item},$rowtotal{$item}) = &Apache::courseprefs::print_config_box($r,$dom,$phase, $item,$prefs->{$item},$values,$allitems); } $rowsum += $rowtotal{$item}; } } my $colend; my $halfway = $rowsum/2; my $aggregate = 0; my $sumleft = 0; my $sumright = 0; my $crossover; for (my $i=0; $i<@items; $i++) { $aggregate += $rowtotal{$items[$i]}; if ($aggregate > $halfway) { $crossover = $i; last; } } for (my $i=0; $i<$crossover; $i++) { $sumleft += $rowtotal{$items[$i]}; } for (my $i=$crossover+1; $i<@items; $i++) { $sumright += $rowtotal{$items[$i]}; } if ((@items > 1) && ($env{'form.numcols'} == 2)) { my $sumdiff = $sumright - $sumleft; if ($sumdiff > 0) { $colend = $crossover + 1; } else { $colend = $crossover; } } else { $colend = @items; } $r->print(''); for (my $i=0; $i<$colend; $i++) { $r->print($output{$items[$i]}); } $r->print(' | '); if ($colend < @items) { for (my $i=$colend; $i<@items; $i++) { $r->print($output{$items[$i]}); } } $r->print(' |
'.(' 'x2). '
'.&mt('Display using: ')."\n". '
'); } $r->print(&print_footer($r,$phase,'display','Go')); $r->print(''); $r->print(&Apache::loncommon::end_page()); return; } sub javascript_set_colnums { return <