[BACK]Return to courseprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/courseprefs.pm between versions 1.3 and 1.8

version 1.3, 2009/05/12 21:20:42 version 1.8, 2009/10/13 04:48:03
Line 66  sub handler { Line 66  sub handler {
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
     }      }
   
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['phase','actions','origin']);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &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',      &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/courseprefs',
         text=>"Course Configuration"});          text=>"Course Configuration"});
     my $breadcrumbs =      my $breadcrumbs =
         &Apache::lonhtmlcommon::breadcrumbs('Edit Course Configuration');          &Apache::lonhtmlcommon::breadcrumbs('Edit Course Configuration');
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},  
                                             ['phase','actions']);  
   
     my $phase = 'pickactions';      my $phase = 'pickactions';
     if ( exists($env{'form.phase'}) ) {      if ( exists($env{'form.phase'}) ) {
         $phase = $env{'form.phase'};          $phase = $env{'form.phase'};
Line 188  sub handler { Line 191  sub handler {
                           default_xml_style       => 'Default XML Style File',                            default_xml_style       => 'Default XML Style File',
                           pageseparators          => 'Visibly Separate Items on Pages',                            pageseparators          => 'Visibly Separate Items on Pages',
                           disable_receipt_display => 'Disable display of problem receipts',                            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',                            tthoptions              => 'Default set of options to pass to tth/m when converting TeX',
                                   },                                    },
                   },                    },
Line 248  sub handler { Line 251  sub handler {
                     itemtext => {                      itemtext => {
                         task_messages         => 'Send message to student when clicking Done on Tasks',                          task_messages         => 'Send message to student when clicking Done on Tasks',
                         task_grading          => 'Bridge Task grading by instructors and TAs in sections' ,                          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' =>          'other' =>
Line 551  sub process_changes { Line 554  sub process_changes {
                                 if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) {                                  if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) {
                                     my $dupname = 0;                                      my $dupname = 0;
                                     if ($newvalues{$ext_entry} ne '') {                                      if ($newvalues{$ext_entry} ne '') {
                                         my $dupname = 0;  
                                         if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) {                                          if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) {
                                             $dupname = 1;                                              $dupname = 1;
                                             push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry});                                              push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry});
Line 652  sub process_changes { Line 654  sub process_changes {
                             }                              }
                             foreach my $key (keys(%env)) {                              foreach my $key (keys(%env)) {
                                 if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) {                                  if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) {
                                     if ($env{'form.'.$key}) {                                      if ($env{$key}) {
                                        my $nothide = $1;                                         my $nothide = $1;
                                        if (!grep(/^\Q$nothide\E$/,@new_nothide)) {                                         if (!grep(/^\Q$nothide\E$/,@new_nothide)) {
                                            push(@new_nothide,$nothide);                                              push(@new_nothide,$nothide); 
Line 1421  sub assign_course_categories { Line 1423  sub assign_course_categories {
     }      }
     my $catwin_js;      my $catwin_js;
     if ($hascats) {      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 = <<ENDSCRIPT;          $catwin_js = <<ENDSCRIPT;
 <script type="text/javascript">  <script type="text/javascript">
   
Line 1755  sub print_discussion { Line 1757  sub print_discussion {
         'plc.roles.denied' => {          'plc.roles.denied' => {
                    text => '<b>'.&mt($itemtext->{'plc.roles.denied'}).'</b>'.                     text => '<b>'.&mt($itemtext->{'plc.roles.denied'}).'</b>'.
                            &Apache::loncommon::help_open_topic("Course_Disable_Discussion").                             &Apache::loncommon::help_open_topic("Course_Disable_Discussion").
                            &mt('(roles-based)'),                             &mt('(role-based)'),
                    input => 'checkbox',                     input => 'checkbox',
                  },                   },
   
Line 2073  sub print_grading { Line 2075  sub print_grading {
                  },                   },
         'receiptalg'  => {          'receiptalg'  => {
                    text => '<b>'.&mt($itemtext->{'receiptalg'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'receiptalg'}).'</b><br />'.
                            &mt('This controls how receipt numbers are generated.'),                             &mt('This controls how receipt numbers are generated'),
                    input => 'selectbox',                     input => 'selectbox',
                    options => {                     options => {
                                 receipt  => 'receipt',                                  receipt  => 'receipt',
Line 2408  sub nothidepriv_row { Line 2410  sub nothidepriv_row {
             }              }
         }          }
         if (exists($privileged{$udom}{$uname})) {          if (exists($privileged{$udom}{$uname})) {
             push(@privusers,$user);              unless (grep(/^\Q$user\E$/,@privusers)) {
                   push(@privusers,$user);
               }
         }          }
     }      }
     if (@privusers) {      if (@privusers) {
Line 2428  sub nothidepriv_row { Line 2432  sub nothidepriv_row {
                           '</td><td align="left">'.                            '</td><td align="left">'.
                           '<span class="LC_nobreak"><label>'.                            '<span class="LC_nobreak"><label>'.
                           '<input type="radio" name="'.$item.'_'.$user.'"'.                            '<input type="radio" name="'.$item.'_'.$user.'"'.
                           $hideon.' value="yes" />'.&mt('Hidden').'</label>&nbsp;'.                            $hideon.' value="" />'.&mt('Hidden').'</label>&nbsp;'.
                           '<label><input type="radio" name="'.$item.'_'.$user.'"'.                          $hideoff.' value="" />'.&mt('Shown').'</label></span></td>'.                            '<label><input type="radio" name="'.$item.'_'.$user.'"'.                          $hideoff.' value="yes" />'.&mt('Shown').'</label></span></td>'.
                           '</tr>';                            '</tr>';
         }          }
         $datatable .= '</table>';          $datatable .= '</table>';
Removed from v.1.3  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>