[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.4 and 1.8.2.6

version 1.8.2.4, 2010/01/03 01:59:25 version 1.8.2.6, 2010/02/12 00:39:51
Line 983  sub store_changes { Line 983  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);
Line 1038  sub store_changes { Line 1038  sub store_changes {
                 }                  }
                 $output .= '</span>';                  $output .= '</span>';
             }              }
           } else {
               foreach my $key (@delkeys) {
                   &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key);
               }
         }          }
         if (@need_env_update) {          if (@need_env_update) {
             $chome = &Apache::lonnet::homeserver($cnum,$cdom);              $chome = &Apache::lonnet::homeserver($cnum,$cdom);
Line 1756  sub print_feedback { Line 1760  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:',
                                            curmult => 'Current recipients:',                                             currmult => '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 1825  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 1945  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:',
                                           curmult => 'Disallowed:',                                            currmult => 'Disallowed:',
                                           add     => 'Disallow more:',                                            add      => 'Disallow more:',
                                           del     => 'Delete?',                                            del      => 'Delete?',
                                           sec     => 'Sections:',                                            sec      => 'Sections:',
                                          );                                           );
   
     foreach my $item (@{$ordered}) {      foreach my $item (@{$ordered}) {
Removed from v.1.8.2.4  
changed lines
  Added in v.1.8.2.6

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