[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 and 1.102.4.1

version 1.102, 2009/08/11 23:24:29 version 1.102.4.1, 2009/09/23 02:40:13
Line 105  affiliate type (and also default, and _L Line 105  affiliate type (and also default, and _L
 (official, unofficial and community).  In each case the radio buttons allow the   (official, unofficial and community).  In each case the radio buttons allow the 
 selection of one of four values:  selection of one of four values:
   
 0, approve, validate, autolimit=N (where N is blank, or a positive integer).  0, approval, validate, autolimit=N (where N is blank, or a positive integer).
 which have the following effects:  which have the following effects:
   
 0  0
Line 116  which have the following effects: Line 116  which have the following effects:
   
 =back  =back
   
 approve   approval 
   
 =over   =over 
   
Line 763  sub print_rolecolors { Line 763  sub print_rolecolors {
     my %defaults = (      my %defaults = (
                    img => $defaultdesign{$role.'.img'},                     img => $defaultdesign{$role.'.img'},
                    font => $defaultdesign{$role.'.font'},                     font => $defaultdesign{$role.'.font'},
    fontmenu => $defaultdesign{$role.'.fontmenu'},  
                    );                     );
     foreach my $item (@bgs) {      foreach my $item (@bgs) {
         $defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item};          $defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item};
Line 781  sub print_rolecolors { Line 780  sub print_rolecolors {
                 $designs{'font'} = $settings->{$role}->{'font'};                  $designs{'font'} = $settings->{$role}->{'font'};
                 $is_custom{'font'} = 1;                  $is_custom{'font'} = 1;
             }              }
             if ($settings->{$role}->{'fontmenu'} ne '') {  
                 $designs{'fontmenu'} = $settings->{$role}->{'fontmenu'};  
                 $is_custom{'fontmenu'} = 1;  
             }  
             foreach my $item (@bgs) {              foreach my $item (@bgs) {
                 if ($settings->{$role}->{$item} ne '') {                  if ($settings->{$role}->{$item} ne '') {
                     $designs{'bgs'}{$item} = $settings->{$role}->{$item};                      $designs{'bgs'}{$item} = $settings->{$role}->{$item};
Line 803  sub print_rolecolors { Line 798  sub print_rolecolors {
             $designs{img} = $designhash{$dom.'.'.$role.'.img'};              $designs{img} = $designhash{$dom.'.'.$role.'.img'};
             $is_custom{'img'} = 1;              $is_custom{'img'} = 1;
         }          }
         if ($designhash{$dom.'.'.$role.'.fontmenu'} ne '') {  
             $designs{fontmenu} = $designhash{$dom.'.'.$role.'.fontmenu'};  
             $is_custom{'fontmenu'} = 1;   
         }  
         if ($designhash{$dom.'.'.$role.'.font'} ne '') {          if ($designhash{$dom.'.'.$role.'.font'} ne '') {
             $designs{font} = $designhash{$dom.'.'.$role.'.font'};              $designs{font} = $designhash{$dom.'.'.$role.'.font'};
             $is_custom{'font'} = 1;              $is_custom{'font'} = 1;
Line 835  sub display_color_options { Line 826  sub display_color_options {
     my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,      my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,
         $images,$bgs,$links,$alt_text,$rowtotal,$logintext,$loginheader) = @_;          $images,$bgs,$links,$alt_text,$rowtotal,$logintext,$loginheader) = @_;
     my $css_class = $itemcount%2?' class="LC_odd_row"':'';      my $css_class = $itemcount%2?' class="LC_odd_row"':'';
     my $datatable = '<tr>'.      my $datatable = '<tr'.$css_class.'>'.
         '<td>'.$choices->{'font'}.'</td>';          '<td>'.$choices->{'font'}.'</td>';
     if (!$is_custom->{'font'}) {      if (!$is_custom->{'font'}) {
         $datatable .=  '<td>'.&mt('Default in use:').'&nbsp;<span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>';          $datatable .=  '<td>'.&mt('Default in use:').'&nbsp;<span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>';
Line 849  sub display_color_options { Line 840  sub display_color_options {
                   '&nbsp;<span id="css_'.$role.'_font" style="background-color: '.                    '&nbsp;<span id="css_'.$role.'_font" style="background-color: '.
                   $designs->{'font'}.';">&nbsp;&nbsp;&nbsp;</span>'.                    $designs->{'font'}.';">&nbsp;&nbsp;&nbsp;</span>'.
                   '</span></td></tr>';                    '</span></td></tr>';
     $datatable .= '<tr'.$css_class.'>'.  
         '<td>'.$choices->{'fontmenu'}.'</td>';  
     if (!$is_custom->{'fontmenu'}) {  
         $datatable .=  '<td>'.&mt('Default in use:').'&nbsp;<span id="css_default_'.$role.'_font" style="color: '.$defaults->{'fontmenu'}.';">'.$defaults->{'fontmenu'}.'</span></td>';  
     } else {  
         $datatable .= '<td>&nbsp;</td>';  
     }  
     $fontlink = &color_pick($phase,$role,'fontmenu',$choices->{'fontmenu'},$designs->{'fontmenu'});  
     $datatable .= '<td><span class="LC_nobreak">'.  
                   '<input type="text" size="10" name="'.$role.'_fontmenu"'.  
                   ' value="'.$designs->{'fontmenu'}.'" />&nbsp;'.$fontlink.  
                   '&nbsp;<span id="css_'.$role.'_fontmenu" style="background-color: '.  
                   $designs->{'fontmenu'}.';">&nbsp;&nbsp;&nbsp;</span>'.  
                   '</span></td></tr>';  
     my $switchserver = &check_switchserver($dom,$confname);      my $switchserver = &check_switchserver($dom,$confname);
     foreach my $img (@{$images}) {      foreach my $img (@{$images}) {
  $itemcount ++;   $itemcount ++;
Line 1149  sub print_quotas { Line 1126  sub print_quotas {
     my ($css_class,%titles);      my ($css_class,%titles);
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         @usertools = ('official','unofficial','community');          @usertools = ('official','unofficial','community');
         @options =('norequest','approve','autolimit','validate');          @options =('norequest','approval','autolimit','validate');
         %validations = &Apache::lonnet::auto_courserequest_checks($dom);          %validations = &Apache::lonnet::auto_courserequest_checks($dom);
         %titles = &courserequest_titles();          %titles = &courserequest_titles();
     } else {      } else {
Line 1222  sub print_quotas { Line 1199  sub print_quotas {
                             if ($option eq 'autolimit') {                              if ($option eq 'autolimit') {
                                 $cell{$item} .= '<input type="text" name="crsreq_'.                                  $cell{$item} .= '<input type="text" name="crsreq_'.
                                                 $item.'_limit_'.$type.'" size="1" '.                                                  $item.'_limit_'.$type.'" size="1" '.
                                                 'value="'.$currlimit.'" />';                                                   'value="'.$currlimit.'" />';
                               }
                               if ($option eq 'autolimit') {
                                   $cell{$item} .= $titles{'unlimited'};
                             }                              }
                             $cell{$item} .= '</span>&nbsp; ';                              $cell{$item} .= '</span>&nbsp; ';
                         }                          }
Line 1246  sub print_quotas { Line 1226  sub print_quotas {
                 if ($context eq 'requestcourses') {                  if ($context eq 'requestcourses') {
                     $datatable .= '</tr><tr>';                      $datatable .= '</tr><tr>';
                     foreach my $item (@usertools) {                      foreach my $item (@usertools) {
                         $datatable .= '<td>'.$cell{$item}.'</td>';                            $datatable .= '<td style="vertical-align: top;">'.$cell{$item}.'</td>';  
                     }                      }
                     $datatable .= '</tr></table>';                      $datatable .= '</tr></table>';
                 }                  }
Line 1328  sub print_quotas { Line 1308  sub print_quotas {
                                        'value="'.$currlimit.'" />';                                         'value="'.$currlimit.'" />';
                 }                  }
                 $defcell{$item} .= '</span>&nbsp; ';                  $defcell{$item} .= '</span>&nbsp; ';
                   if ($option eq 'autolimit') {
                       $defcell{$item} .= $titles{'unlimited'};
                   }
             }              }
         } else {          } else {
             my $checked = 'checked="checked" ';              my $checked = 'checked="checked" ';
Line 1349  sub print_quotas { Line 1332  sub print_quotas {
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         $datatable .= '</tr><tr>';          $datatable .= '</tr><tr>';
         foreach my $item (@usertools) {          foreach my $item (@usertools) {
             $datatable .= '<td>'.$defcell{$item}.'</td>';              $datatable .= '<td style="vertical-align: top;">'.$defcell{$item}.'</td>';
         }          }
         $datatable .= '</tr></table>';          $datatable .= '</tr></table>';
     }      }
Line 1363  sub print_quotas { Line 1346  sub print_quotas {
     $typecount ++;      $typecount ++;
     $css_class = $typecount%2?' class="LC_odd_row"':'';      $css_class = $typecount%2?' class="LC_odd_row"':'';
     $datatable .= '<tr'.$css_class.'>'.      $datatable .= '<tr'.$css_class.'>'.
                   '<td>'.&mt('LON-CAPA Advanced Users').                    '<td>'.&mt('LON-CAPA Advanced Users').' ';
                   ' <span class="LC_nobreak">('.  
                   &mt('overrides affiliation').')</span></td>'.  
                   '<td class="LC_left_item" colspan="2">';  
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         $datatable .= '<table><tr>';          $datatable .= &mt('(overrides affiliation, if set)').
                         '</td>'.
                         '<td class="LC_left_item">'.
                         '<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 1384  sub print_quotas { Line 1370  sub print_quotas {
                     }                      }
                 }                  }
             }              }
             if (!$curroption) {  
                 $curroption = 'norequest';  
             }  
             $datatable .= '<th>'.$titles{$item}.'</th>';              $datatable .= '<th>'.$titles{$item}.'</th>';
               my $checked = '';
               if ($curroption eq '') {
                   $checked = ' checked="checked"';
               }
               $advcell{$item} .= '<span class="LC_nobreak"><label>'.
                                  '<input type="radio" name="crsreq_'.$item.
                                  '__LC_adv" value=""'.$checked.' />'.
                                  &mt('No override set').'</label></span>&nbsp; ';
             foreach my $option (@options) {              foreach my $option (@options) {
                 my $val = $option;                  my $val = $option;
                 if ($option eq 'norequest') {                  if ($option eq 'norequest') {
Line 1403  sub print_quotas { Line 1394  sub print_quotas {
                     next if (!$canvalidate);                      next if (!$canvalidate);
                 }                  }
                 my $checked = '';                  my $checked = '';
                 if ($option eq $curroption) {                  if ($val eq $curroption) {
                     $checked = ' checked="checked"';                      $checked = ' checked="checked"';
                 } elsif ($option eq 'autolimit') {                  } elsif ($option eq 'autolimit') {
                     if ($curroption =~ /^autolimit/) {                      if ($curroption =~ /^autolimit/) {
Line 1420  sub print_quotas { Line 1411  sub print_quotas {
                                        'value="'.$currlimit.'" />';                                         'value="'.$currlimit.'" />';
                 }                  }
                 $advcell{$item} .= '</span>&nbsp; ';                  $advcell{$item} .= '</span>&nbsp; ';
                   if ($option eq 'autolimit') {
                       $advcell{$item} .= $titles{'unlimited'};
                   }
             }              }
         } else {          } else {
             my $checked = 'checked="checked" ';              my $checked = 'checked="checked" ';
Line 1441  sub print_quotas { Line 1435  sub print_quotas {
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         $datatable .= '</tr><tr>';          $datatable .= '</tr><tr>';
         foreach my $item (@usertools) {          foreach my $item (@usertools) {
             $datatable .= '<td>'.$advcell{$item}.'</td>';              $datatable .= '<td style="vertical-align: top;">'.$advcell{$item}.'</td>';
         }          }
         $datatable .= '</tr></table>';          $datatable .= '</tr></table>';
     }      }
Line 1452  sub print_quotas { Line 1446  sub print_quotas {
   
 sub print_courserequestmail {  sub print_courserequestmail {
     my ($dom,$settings,$rowtotal) = @_;      my ($dom,$settings,$rowtotal) = @_;
     my ($now,$datatable,%dompersonnel,@domcoord,@currapprove,$rows);      my ($now,$datatable,%dompersonnel,@domcoord,@currapproval,$rows);
     $now = time;      $now = time;
     $rows = 0;      $rows = 0;
     %dompersonnel = &Apache::lonnet::get_domain_roles($dom,['dc'],$now,$now);      %dompersonnel = &Apache::lonnet::get_domain_roles($dom,['dc'],$now,$now);
Line 1467  sub print_courserequestmail { Line 1461  sub print_courserequestmail {
     if (ref($settings) eq 'HASH') {      if (ref($settings) eq 'HASH') {
         if (ref($settings->{'notify'}) eq 'HASH') {          if (ref($settings->{'notify'}) eq 'HASH') {
             if ($settings->{'notify'}{'approval'} ne '') {              if ($settings->{'notify'}{'approval'} ne '') {
                @currapprove = split(',',$settings->{'notify'}{'approval'});                 @currapproval = split(',',$settings->{'notify'}{'approval'});
             }              }
         }          }
     }      }
     if (@currapprove) {      if (@currapproval) {
         foreach my $dc (@currapprove) {          foreach my $dc (@currapproval) {
             unless (grep(/^\Q$dc\E$/,@domcoord)) {              unless (grep(/^\Q$dc\E$/,@domcoord)) {
                 push(@domcoord,$dc);                  push(@domcoord,$dc);
             }              }
Line 1498  sub print_courserequestmail { Line 1492  sub print_courserequestmail {
                 $rows ++;                  $rows ++;
             }              }
             my $check = ' ';              my $check = ' ';
             if (grep(/^\Q$domcoord[$i]\E$/,@currapprove)) {              if (grep(/^\Q$domcoord[$i]\E$/,@currapproval)) {
                 $check = ' checked="checked" ';                  $check = ' checked="checked" ';
             }              }
             my ($uname,$udom) = split(':',$domcoord[$i]);              my ($uname,$udom) = split(':',$domcoord[$i]);
Line 1869  sub courserequest_titles { Line 1863  sub courserequest_titles {
                                    unofficial => 'Unofficial',                                     unofficial => 'Unofficial',
                                    community  => 'Communities',                                     community  => 'Communities',
                                    norequest  => 'Not allowed',                                     norequest  => 'Not allowed',
                                    approve    => 'Approval by Dom. Coord.',                                     approval   => 'Approval by Dom. Coord.',
                                    validate   => 'With validation',                                     validate   => 'With validation',
                                    autolimit  => 'Numerical limit',                                     autolimit  => 'Numerical limit',
                                      unlimited  => '(blank for unlimited)',
                  );                   );
     return %titles;      return %titles;
 }  }
   
 sub courserequest_conditions {  sub courserequest_conditions {
     my %conditions = &Apache::lonlocal::texthash (      my %conditions = &Apache::lonlocal::texthash (
        approve    => '(Processing of request subject to approval by Domain Coordinator).',         approval   => '(Processing of request subject to approval by Domain Coordinator).',
        validate   => '(Processing of request subject to instittutional validation).',         validate   => '(Processing of request subject to instittutional validation).',
                  );                   );
     return %conditions;      return %conditions;
Line 2665  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 2721  $jstext Line 2717  $jstext
     }      }
     return;      return;
 }  }
   // ]]>
 </script>  </script>
   
 ENDSCRIPT  ENDSCRIPT
Line 3139  sub color_font_choices { Line 3136  sub color_font_choices {
             links => "Link colors",              links => "Link colors",
             images => "Images",              images => "Images",
             font => "Font color",              font => "Font color",
             fontmenu => "Font Menu",  
             pgbg => "Page",              pgbg => "Page",
             tabbg => "Header",              tabbg => "Header",
             sidebg => "Border",              sidebg => "Border",
Line 3206  sub modify_colors { Line 3202  sub modify_colors {
             @bgs = ('pgbg','tabbg','sidebg');               @bgs = ('pgbg','tabbg','sidebg'); 
         }          }
         $confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};          $confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
  $confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'};  
         foreach my $item (@bgs,@links,@logintext) {          foreach my $item (@bgs,@links,@logintext) {
             $confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};              $confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
         }          }
Line 3320  sub modify_colors { Line 3315  sub modify_colors {
                         $changes{$role}{'font'} = 1;                          $changes{$role}{'font'} = 1;
                     }                      }
                 }                  }
                 if ($domconfig->{$role}{'fontmenu'} ne '') {  
                     if ($confhash->{$role}{'fontmenu'} ne $domconfig->{$role}{'fontmenu'}) {  
                         $changes{$role}{'fontmenu'} = 1;  
                     }  
                 } else {  
                     if ($confhash->{$role}{'fontmenu'}) {  
                         $changes{$role}{'fontmenu'} = 1;  
                     }  
                 }  
                 foreach my $item (@bgs) {                  foreach my $item (@bgs) {
                     if ($domconfig->{$role}{$item} ne '') {                      if ($domconfig->{$role}{$item} ne '') {
                         if ($confhash->{$role}{$item} ne $domconfig->{$role}{$item}) {                          if ($confhash->{$role}{$item} ne $domconfig->{$role}{$item}) {
Line 3769  sub modify_quotas { Line 3755  sub modify_quotas {
     }      }
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         @usertools = ('official','unofficial','community');          @usertools = ('official','unofficial','community');
         @options =('norequest','approve','autolimit','validate');          @options =('norequest','approval','autolimit','validate');
         %validations = &Apache::lonnet::auto_courserequest_checks($dom);          %validations = &Apache::lonnet::auto_courserequest_checks($dom);
         %titles = &courserequest_titles();          %titles = &courserequest_titles();
         $toolregexp = join('|',@usertools);          $toolregexp = join('|',@usertools);
Line 3824  sub modify_quotas { Line 3810  sub modify_quotas {
     }      }
     foreach my $item (@usertools) {      foreach my $item (@usertools) {
         foreach my $type (@{$types},'default','_LC_adv') {          foreach my $type (@{$types},'default','_LC_adv') {
               my $unset;
             if ($context eq 'requestcourses') {              if ($context eq 'requestcourses') {
                   $unset = '0';
                   if ($type eq '_LC_adv') {
                       $unset = '';
                   }
                 if ($confhash{$item}{$type} eq 'autolimit') {                  if ($confhash{$item}{$type} eq 'autolimit') {
                     $confhash{$item}{$type} .= '=';                      $confhash{$item}{$type} .= '=';
                     unless ($limithash{$item}{$type} =~ /\D/) {                      unless ($limithash{$item}{$type} =~ /\D/) {
Line 3845  sub modify_quotas { Line 3836  sub modify_quotas {
                     }                      }
                 } else {                  } else {
                     if ($context eq 'requestcourses') {                      if ($context eq 'requestcourses') {
                         if ($confhash{$item}{$type} ne 'norequest') {                          if ($confhash{$item}{$type} ne $unset) {
                             $changes{$item}{$type} = 1;                              $changes{$item}{$type} = 1;
                         }                          }
                     } else {                      } else {
Line 3856  sub modify_quotas { Line 3847  sub modify_quotas {
                 }                  }
             } else {              } else {
                 if ($context eq 'requestcourses') {                  if ($context eq 'requestcourses') {
                     if ($confhash{$item}{$type} eq 'norequest') {                      if ($confhash{$item}{$type} ne $unset) {
                         $changes{$item}{$type} = 1;                          $changes{$item}{$type} = 1;
                     }                      }
                 } else {                  } else {
Line 3948  sub modify_quotas { Line 3939  sub modify_quotas {
                                                           $env{'user.domain'},                                                            $env{'user.domain'},
                                                           $item,'reload',$context);                                                            $item,'reload',$context);
                     if ($context eq 'requestcourses') {                      if ($context eq 'requestcourses') {
                         if ($env{'environment.crsrequest.'.$item} ne $newacc) {                          if ($env{'environment.canrequest.'.$item} ne $newacc) {
                             $newenv{'environment.crsrequest.'.$item} = $newacc;                              $newenv{'environment.canrequest.'.$item} = $newacc;
                         }                          }
                     } else {                      } else {
                         if ($env{'environment.availabletools.'.$item} ne $newacc) {                           if ($env{'environment.availabletools.'.$item} ne $newacc) { 
Line 3982  sub modify_quotas { Line 3973  sub modify_quotas {
                                     $resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>';                                      $resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>';
                                 }                                  }
                             } else {                              } else {
                                 $resulttext .= '<li>'.&mt('Set to be unavailable to [_1]',$typetitle).'</li>';                                  if ($type eq '_LC_adv') {
                                       if ($confhash{$item}{$type} eq '0') {
                                           $resulttext .= '<li>'.&mt('Set to be unavailable to [_1]',$typetitle).'</li>';
                                       } else { 
                                           $resulttext .= '<li>'.&mt('No override set for [_1]',$typetitle).'</li>';
                                       }
                                   } else {
                                       $resulttext .= '<li>'.&mt('Set to be unavailable to [_1]',$typetitle).'</li>';
                                   }
                             }                              }
                         }                          }
                     }                      }
Line 4530  sub modify_usercreation { Line 4529  sub modify_usercreation {
         if (@{$types} > 0) {          if (@{$types} > 0) {
             @{$cancreate{'statustocreate'}} =               @{$cancreate{'statustocreate'}} = 
                 &Apache::loncommon::get_env_multiple('form.statustocreate');                  &Apache::loncommon::get_env_multiple('form.statustocreate');
           } else {
               @{$cancreate{'statustocreate'}} = ();
         }          }
         push(@contexts,'statustocreate');          push(@contexts,'statustocreate');
     }      }
Line 4538  sub modify_usercreation { Line 4539  sub modify_usercreation {
             if (($item eq 'selfcreate') || ($item eq 'statustocreate')) {              if (($item eq 'selfcreate') || ($item eq 'statustocreate')) {
                 if (ref($curr_usercreation{'cancreate'}{$item}) eq 'ARRAY') {                  if (ref($curr_usercreation{'cancreate'}{$item}) eq 'ARRAY') {
                     foreach my $curr (@{$curr_usercreation{'cancreate'}{$item}}) {                      foreach my $curr (@{$curr_usercreation{'cancreate'}{$item}}) {
                         if (!grep(/^$curr$/,@{$cancreate{$item}})) {                          if (ref($cancreate{$item}) eq 'ARRAY') {
                             if (!grep(/^$item$/,@{$changes{'cancreate'}})) {                              if (!grep(/^$curr$/,@{$cancreate{$item}})) {
                                 push(@{$changes{'cancreate'}},$item);                                  if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
                                       push(@{$changes{'cancreate'}},$item);
                                   }
                             }                              }
                         }                          }
                     }                      }
Line 5009  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 (code2language($langcode) eq '') {                      if ($langcode ne 'x_chef') {
                         push(@errors,$item);                          if (code2language($langcode) eq '') {
                               push(@errors,$item);
                           }
                     }                      }
                 } else {                  } else {
                     push(@errors,$item);                      push(@errors,$item);
Removed from v.1.102  
changed lines
  Added in v.1.102.4.1

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