# The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # # $Id: lonconfigsettings.pm,v 1.13 2010/04/02 21:47:54 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,$call_category_check); if ($context eq 'domain') { ($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','View/Modify Domain Settings'); $action = '/adm/domainprefs'; if ($phase eq 'display') { my @actions = &Apache::loncommon::get_env_multiple('form.actions'); if (grep(/^coursecategories$/,@actions)) { $call_category_check = qq| if (formname == document.display) { if (!categoryCheck(formname)) { return; } } |; } } } else { if (&Apache::loncommon::course_type() eq 'Community') { ($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration'); } 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' => "setFormElements(document.pickactions);", ); $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); my $crstype; if ($context eq 'course') { $crstype = &Apache::loncommon::course_type(); } 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,$crstype)); } } } $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,$crstype) = @_; 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); my $divwidth = 900; if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { if (@actions > 0) { my $rowsum = 0; my (%output,%rowtotal,@items); 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,$crstype); } $rowsum += $rowtotal{$item}; } } $r->print('