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

Diff for /loncom/interface/domainprefs.pm between versions 1.102.2.2 and 1.102.4.3

version 1.102.2.2, 2009/08/23 12:40:50 version 1.102.4.3, 2009/10/02 16:36:09
Line 1348  sub print_quotas { Line 1348  sub print_quotas {
     $datatable .= '<tr'.$css_class.'>'.      $datatable .= '<tr'.$css_class.'>'.
                   '<td>'.&mt('LON-CAPA Advanced Users').' ';                    '<td>'.&mt('LON-CAPA Advanced Users').' ';
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         $datatable .= &mt('(overrides affiliation, if set)');          $datatable .= &mt('(overrides affiliation, if set)').
     } else {                        '</td>'.
         $datatable .= &mt('(overrides affiliation, if checked)');                        '<td class="LC_left_item">'.
     }                        '<table><tr>';
     $datatable .= '</td>'.  
     if ($context eq 'requestcourses') {  
         $datatable .= '<table><tr>';  
     } else {      } else {
         $datatable .= '<br />';          $datatable .= &mt('(overrides affiliation, if checked)').
                         '</td>'.
                         '<td class="LC_left_item" colspan="2">'.
                         '<br />';
     }      }
     my %advcell;      my %advcell;
     foreach my $item (@usertools) {      foreach my $item (@usertools) {
Line 1370  sub print_quotas { Line 1370  sub print_quotas {
                     }                      }
                 }                  }
             }              }
             if (!$curroption) {  
                 $curroption = 'norequest';  
             }  
             $datatable .= '<th>'.$titles{$item}.'</th>';              $datatable .= '<th>'.$titles{$item}.'</th>';
             my $checked = '';              my $checked = '';
             if ($curroption eq '') {              if ($curroption eq '') {
Line 2663  sub coursecategories_javascript { Line 2660  sub coursecategories_javascript {
     }      }
     $output = <<"ENDSCRIPT";      $output = <<"ENDSCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function reorderCats(form,parent,item,idx) {  function reorderCats(form,parent,item,idx) {
     var changedVal;      var changedVal;
 $jstext  $jstext
Line 2719  $jstext Line 2717  $jstext
     }      }
     return;      return;
 }  }
   // ]]>
 </script>  </script>
   
 ENDSCRIPT  ENDSCRIPT
Line 5013  sub modify_defaults { Line 5012  sub modify_defaults {
             if ($newvalues{$item} ne '') {              if ($newvalues{$item} ne '') {
                 if ($newvalues{$item} =~ /^(\w+)/) {                  if ($newvalues{$item} =~ /^(\w+)/) {
                     my $langcode = $1;                      my $langcode = $1;
                     if ($langcode ne 'x_chef') {                      if (($langcode ne 'gci') && ($langcode ne 'gct') && 
                           ($langcode ne 'x_chef')) {
                         if (code2language($langcode) eq '') {                          if (code2language($langcode) eq '') {
                             push(@errors,$item);                              push(@errors,$item);
                         }                          }
Removed from v.1.102.2.2  
changed lines
  Added in v.1.102.4.3

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