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

Diff for /loncom/interface/courseprefs.pm between versions 1.8.2.5 and 1.14

version 1.8.2.5, 2010/01/18 20:18:11 version 1.14, 2009/11/30 06:23:32
Line 281  sub handler { Line 281  sub handler {
                                 col2 => 'Value',}],                                  col2 => 'Value',}],
                     ordered => ['problem_stream_switch','suppress_tries',                      ordered => ['problem_stream_switch','suppress_tries',
                                 'default_paper_size','print_header_format',                                  'default_paper_size','print_header_format',
                                 'disableexampointprint'],                                  'disableexampointprint','canuse_pdfforms'],
                     itemtext => {                      itemtext => {
                         problem_stream_switch => 'Allow problems to be split over pages',                          problem_stream_switch => 'Allow problems to be split over pages',
                         suppress_tries        => 'Suppress number of tries in printing',                          suppress_tries        => 'Suppress number of tries in printing',
                         default_paper_size    => 'Default paper type',                          default_paper_size    => 'Default paper type',
                         print_header_format   => 'Print header format',                          print_header_format   => 'Print header format',
                         disableexampointprint => 'Disable automatically printing point values on exams',                          disableexampointprint => 'Disable automatically printing point values on exams',
                           canuse_pdfforms    => 'Users can print problems as PDF forms and upload later for grading',
                                 },                                  },
                   },                    },
         'spreadsheet' =>          'spreadsheet' =>
Line 983  sub store_changes { Line 984  sub store_changes {
                                         $displayname = &mt($text);                                          $displayname = &mt($text);
                                     }                                      }
                                     if (defined($yesno{$key})) {                                      if (defined($yesno{$key})) {
                                         $displayval = 'no';                                          $displayval = &mt('No');
                                         if ($changes->{$item}{$key} eq 'yes') {                                          if ($changes->{$item}{$key} eq 'yes') {
                                             $displayval = 'yes';                                                                        $displayval = &mt('Yes');                          
                                         }                                          }
                                     } elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) {                                      } elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) {
                                         $displayval = &Apache::lonlocal::locallocaltime($displayval);                                          $displayval = &Apache::lonlocal::locallocaltime($displayval);
                                     } elsif ($key eq 'categories') {                                      } elsif ($key eq 'categories') {
                                         $displayval = $env{'form.categories_display'};                                          $displayval = $env{'form.categories_display'};
                                     }                                        } elsif ($key eq 'canuse_pdfforms') {
                                           if ($changes->{$item}{$key} eq '1') {
                                               $displayval = &mt('Yes');
                                           } elsif ($changes->{$item}{$key} eq '0') {
                                               $displayval = &mt('No');
                                           }
                                       }
                                     if ($changes->{$item}{$key} eq '') {                                      if ($changes->{$item}{$key} eq '') {
                                         push(@delkeys,$key);                                          push(@delkeys,$key);
                                         $output .= '<li>'.&mt('Deleted setting for [_1]',                                          $output .= '<li>'.&mt('Deleted setting for [_1]',
Line 1037  sub store_changes { Line 1044  sub store_changes {
                     $output .= &mt('An error occurred when removing course settings which are no longer in use.');                      $output .= &mt('An error occurred when removing course settings which are no longer in use.');
                 }                  }
                 $output .= '</span>';                  $output .= '</span>';
               } else {
                   foreach my $key (@delkeys) {
                       &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key);
                   }
             }              }
         }          }
         if (@need_env_update) {          if (@need_env_update) {
Line 1298  sub print_courseinfo { Line 1309  sub print_courseinfo {
         }          }
     }      }
     if (!defined($categoriesform)) {      if (!defined($categoriesform)) {
         $categoriesform = &mt('No categories defined in this domain.');          $categoriesform = &mt('No categories defined for this domain');
     }      }
   
     my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);      my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);
Line 1756  sub print_feedback { Line 1767  sub print_feedback {
     my %sections = &Apache::loncommon::get_sections($cdom,$cnum);      my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
     my @sections = sort( { $a <=> $b } keys(%sections));      my @sections = sort( { $a <=> $b } keys(%sections));
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                                            currone  => 'Current recipient:',                                             currone => 'Current recipient:',
                                            currmult => 'Current recipients:',                                             curmult => 'Current recipients:',
                                            add      => 'Additional recipient:',                                             add     => 'Additional recipient:',
                                            del      => 'Delete?',                                             del     => 'Delete?',
                                            sec      => 'Sections:',                                             sec     => 'Sections:',
                                          );                                           );
   
     foreach my $item (@{$ordered}) {      foreach my $item (@{$ordered}) {
Line 1821  sub user_table { Line 1832  sub user_table {
         if ($num) {          if ($num) {
             $output .= '<tr>'.              $output .= '<tr>'.
                        '<td align="left"><i>';                         '<td align="left"><i>';
             if ($num == 1) {              if ($num > 1) {
                 $output .= $lt->{'currone'};                  $output .= $lt->{'currone'};
             } else {              } else {
                 $output .= $lt->{'currmult'};                  $output .= $lt->{'currmult'};
Line 1941  sub print_discussion { Line 1952  sub print_discussion {
     my %sections = &Apache::loncommon::get_sections($cdom,$cnum);      my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
     my @sections = sort( { $a <=> $b } keys(%sections));      my @sections = sort( { $a <=> $b } keys(%sections));
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                                           currone  => 'Disallowed:',                                            currone => 'Disallowed:',
                                           currmult => 'Disallowed:',                                            curmult => 'Disallowed:',
                                           add      => 'Disallow more:',                                            add     => 'Disallow more:',
                                           del      => 'Delete?',                                            del     => 'Delete?',
                                           sec      => 'Sections:',                                            sec     => 'Sections:',
                                          );                                           );
   
     foreach my $item (@{$ordered}) {      foreach my $item (@{$ordered}) {
Line 2301  sub print_printouts { Line 2312  sub print_printouts {
             text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>',              text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>',
             input => 'radio',              input => 'radio',
                                  },                                   },
           canuse_pdfforms => {
               text  => '<b>'.&mt($itemtext->{'canuse_pdfforms'}).'</b>',
               input => 'selectbox',
               options => {
                            1    => &mt('Yes'),
                            0    => &mt('No'),
                          },
               order => ['1','0'],
               nullval => 'None specified - use domain default',
                       }
     );      );
     return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype);      return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype);
 }  }
Removed from v.1.8.2.5  
changed lines
  Added in v.1.14

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