--- loncom/interface/courseprefs.pm 2009/05/12 21:20:42 1.3 +++ loncom/interface/courseprefs.pm 2009/10/13 04:48:03 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set configuration settings for a course # -# $Id: courseprefs.pm,v 1.3 2009/05/12 21:20:42 raeburn Exp $ +# $Id: courseprefs.pm,v 1.8 2009/10/13 04:48:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -66,15 +66,18 @@ sub handler { return HTTP_NOT_ACCEPTABLE; } + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['phase','actions','origin']); &Apache::lonhtmlcommon::clear_breadcrumbs(); + if ($env{'form.origin'} eq 'params') { + &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset", + text=>"Parameter Manager"}); + } &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/courseprefs', text=>"Course Configuration"}); my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Edit Course Configuration'); - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['phase','actions']); - my $phase = 'pickactions'; if ( exists($env{'form.phase'}) ) { $phase = $env{'form.phase'}; @@ -188,7 +191,7 @@ sub handler { default_xml_style => 'Default XML Style File', pageseparators => 'Visibly Separate Items on Pages', disable_receipt_display => 'Disable display of problem receipts', - texengine => 'Force use of a specific math rendering engine.', + texengine => 'Force use of a specific math rendering engine', tthoptions => 'Default set of options to pass to tth/m when converting TeX', }, }, @@ -248,7 +251,7 @@ sub handler { itemtext => { task_messages => 'Send message to student when clicking Done on Tasks', task_grading => 'Bridge Task grading by instructors and TAs in sections' , - suppress_embed_prompt => 'Hi$de upload references prompt if uploading file to portfolio', + suppress_embed_prompt => 'Hide upload references prompt if uploading file to portfolio', }, }, 'other' => @@ -551,7 +554,6 @@ sub process_changes { if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) { my $dupname = 0; if ($newvalues{$ext_entry} ne '') { - my $dupname = 0; if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) { $dupname = 1; push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry}); @@ -652,7 +654,7 @@ sub process_changes { } foreach my $key (keys(%env)) { if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) { - if ($env{'form.'.$key}) { + if ($env{$key}) { my $nothide = $1; if (!grep(/^\Q$nothide\E$/,@new_nothide)) { push(@new_nothide,$nothide); @@ -1421,7 +1423,7 @@ sub assign_course_categories { } my $catwin_js; if ($hascats) { - my $alert = &mt('Use \"Save\" in the main window to save course categories'); + my $alert = &mt("Use 'Save' in the main window to save course categories"); $catwin_js = < @@ -1755,7 +1757,7 @@ sub print_discussion { 'plc.roles.denied' => { text => ''.&mt($itemtext->{'plc.roles.denied'}).''. &Apache::loncommon::help_open_topic("Course_Disable_Discussion"). - &mt('(roles-based)'), + &mt('(role-based)'), input => 'checkbox', }, @@ -2073,7 +2075,7 @@ sub print_grading { }, 'receiptalg' => { text => ''.&mt($itemtext->{'receiptalg'}).'
'. - &mt('This controls how receipt numbers are generated.'), + &mt('This controls how receipt numbers are generated'), input => 'selectbox', options => { receipt => 'receipt', @@ -2408,7 +2410,9 @@ sub nothidepriv_row { } } if (exists($privileged{$udom}{$uname})) { - push(@privusers,$user); + unless (grep(/^\Q$user\E$/,@privusers)) { + push(@privusers,$user); + } } } if (@privusers) { @@ -2428,8 +2432,8 @@ sub nothidepriv_row { ''. ' '. - ''. + $hideon.' value="" />'.&mt('Hidden').' '. + ''. ''; } $datatable .= '';