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

Diff for /loncom/interface/domainprefs.pm between versions 1.234 and 1.235

version 1.234, 2014/04/13 00:42:06 version 1.235, 2014/04/16 13:32:43
Line 165  use Apache::lonlocal; Line 165  use Apache::lonlocal;
 use Apache::lonmsg();  use Apache::lonmsg();
 use Apache::lonconfigsettings;  use Apache::lonconfigsettings;
 use Apache::lonuserutils();  use Apache::lonuserutils();
   use Apache::loncoursequeueadmin();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use LONCAPA::Enrollment;  use LONCAPA::Enrollment;
 use LONCAPA::lonauthcgi();  use LONCAPA::lonauthcgi();
Line 365  sub handler { Line 366  sub handler {
                              {col1 => 'Setting',                               {col1 => 'Setting',
                               col2 => 'Value'},                                col2 => 'Value'},
                              {col1 => 'Available textbooks',                               {col1 => 'Available textbooks',
                               col2 => ''}],                                col2 => ''},
                                {col1 => 'Validation (not official courses)',
                                 col2 => 'Value'},],
                   print => \&print_quotas,                    print => \&print_quotas,
                   modify => \&modify_quotas,                    modify => \&modify_quotas,
                  },                   },
Line 753  sub print_config_box { Line 756  sub print_config_box {
              <tr class="LC_info_row">               <tr class="LC_info_row">
               <td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>                <td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
               <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.                <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.
                        &print_textbookcourses($dom,$settings,\$rowtotal);                         &print_textbookcourses($dom,$settings,\$rowtotal).'
               </table>
              </td>
             </tr>
             <tr>
              <td>
               <table class="LC_nested">
                <tr class="LC_info_row">
                 <td class="LC_left_item"'.$colspan.' valign="top">'.&mt($item->{'header'}->[3]->{'col1'}).'</td>
                 <td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[3]->{'col2'}).'</td>
                </tr>'.
               &print_validation_rows('requestcourses',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'requestauthor') {          } elsif ($action eq 'requestauthor') {
             $output .= &print_requestmail($dom,$action,$settings,\$rowtotal);              $output .= &print_requestmail($dom,$action,$settings,\$rowtotal);
         } elsif ($action eq 'rolecolors') {          } elsif ($action eq 'rolecolors') {
Line 2974  sub print_selfenrollment { Line 2988  sub print_selfenrollment {
             $datatable .= '</table></td></tr>';              $datatable .= '</table></td></tr>';
         }          }
     } elsif ($position eq 'bottom') {      } elsif ($position eq 'bottom') {
         my ($itemsref,$namesref,$fieldsref) = &Apache::lonuserutils::selfenroll_validation_types();          $datatable .= &print_validation_rows('selfenroll',$dom,$settings,\$itemcount);
         my %currvalidation;      }
         if (ref($settings) eq 'HASH') {      $$rowtotal += $itemcount;
             if (ref($settings->{'validation'}) eq 'HASH') {      return $datatable;
                 %currvalidation = %{$settings->{'validation'}};   }
             }  
   sub print_validation_rows {
       my ($caller,$dom,$settings,$rowtotal) = @_;
       my ($itemsref,$namesref,$fieldsref);
       if ($caller eq 'selfenroll') { 
           ($itemsref,$namesref,$fieldsref) = &Apache::lonuserutils::selfenroll_validation_types();
       } elsif ($caller eq 'requestcourses') {
           ($itemsref,$namesref,$fieldsref) = &Apache::loncoursequeueadmin::requestcourses_validation_types();
       }
       my %currvalidation;
       if (ref($settings) eq 'HASH') {
           if (ref($settings->{'validation'}) eq 'HASH') {
               %currvalidation = %{$settings->{'validation'}};
         }          }
         foreach my $item (@{$itemsref}) {      }
             $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';      my $datatable;
             $datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'.      my $itemcount = 0;
                           $namesref->{$item}.      foreach my $item (@{$itemsref}) {
                           '</span></td>'.          my $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
                           '<td class="LC_left_item">';          $datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'.
             if (($item eq 'url') || ($item eq 'button')) {                        $namesref->{$item}.
                 $datatable .= '<span class="LC_nobreak">'.                        '</span></td>'.
                               '<input type="text" name="selfenroll_validation_'.$item.'"'.                        '<td class="LC_left_item">';
                               ' value="'.$currvalidation{$item}.'" size="50" /></span>';          if (($item eq 'url') || ($item eq 'button')) {
             } elsif ($item eq 'fields') {              $datatable .= '<span class="LC_nobreak">'.
                 my @currfields;                            '<input type="text" name="'.$caller.'_validation_'.$item.'"'.
                 if (ref($currvalidation{$item}) eq 'ARRAY') {                            ' value="'.$currvalidation{$item}.'" size="50" /></span>';
                     @currfields = @{$currvalidation{$item}};          } elsif ($item eq 'fields') {
                 }              my @currfields;
                 foreach my $field (@{$fieldsref}) {              if (ref($currvalidation{$item}) eq 'ARRAY') {
                     my $check = '';                  @currfields = @{$currvalidation{$item}};
                     if (grep(/^\Q$field\E$/,@currfields)) {              }
                         $check = ' checked="checked"';              foreach my $field (@{$fieldsref}) {
                     }                  my $check = '';
                     $datatable .= '<span class="LC_nobreak"><label>'.                  if (grep(/^\Q$field\E$/,@currfields)) {
                                   '<input type="checkbox" name="selfenroll_validation_fields"'.                      $check = ' checked="checked"';
                                   ' value="'.$field.'"'.$check.' />'.$field.                  }
                                   '</label></span> ';                  $datatable .= '<span class="LC_nobreak"><label>'.
                 }                                '<input type="checkbox" name="'.$caller.'_validation_fields"'.
             } elsif ($item eq 'markup') {                                ' value="'.$field.'"'.$check.' />'.$field.
                 $datatable .= '<textarea name="selfenroll_validation_markup" cols="50" rows="5" wrap="soft">'.                                '</label></span> ';
                               $currvalidation{$item}.               }
           } elsif ($item eq 'markup') {
               $datatable .= '<textarea name="'.$caller.'_validation_markup" cols="50" rows="5" wrap="soft">'.
                              $currvalidation{$item}.
                               '</textarea>';                                '</textarea>';
             }          }
             $datatable .= '</td></tr>'."\n";          $datatable .= '</td></tr>'."\n";
           if (ref($rowtotal)) {
             $itemcount ++;              $itemcount ++;
         }          }
     }      }
     $$rowtotal += $itemcount;      if ($caller eq 'requestcourses') {
           my %currhash;
           if (ref($settings->{'validation'}) eq 'HASH') {
               if ($settings->{'validation'}{'dc'} ne '') {
                   $currhash{$settings->{'validation'}{'dc'}} = 1;
               }
           }
           my $numinrow = 2;
           my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',
                                                          'validationdc',%currhash);
           if ($numdc > 1) {
               $datatable .= '</td></tr><tr class="LC_odd_row"><td>'.
                             &mt('Course creation processed as: (choose Dom. Coord.)').
                             '</td><td class="LC_left_item">'.$dctable.'</td></tr>';
           } else {
               $datatable .= $dctable.'</td></tr>';
           }
           $itemcount ++;
       }
       if (ref($rowtotal)) {
           $$rowtotal += $itemcount;
       }
     return $datatable;      return $datatable;
 }  }
   
Line 6422  sub modify_quotas { Line 6473  sub modify_quotas {
     my ($r,$dom,$action,$lastactref,%domconfig) = @_;      my ($r,$dom,$action,$lastactref,%domconfig) = @_;
     my ($context,@usertools,@options,%validations,%titles,%confhash,%toolshash,      my ($context,@usertools,@options,%validations,%titles,%confhash,%toolshash,
         %limithash,$toolregexp,%conditions,$resulttext,%changes,$confname,$configuserok,          %limithash,$toolregexp,%conditions,$resulttext,%changes,$confname,$configuserok,
         $author_ok,$switchserver,$errors);          $author_ok,$switchserver,$errors,$validationitemsref,$validationnamesref,
           $validationfieldsref);
     if ($action eq 'quotas') {      if ($action eq 'quotas') {
         $context = 'tools';           $context = 'tools'; 
     } else {      } else {
Line 6438  sub modify_quotas { Line 6490  sub modify_quotas {
         $confname = $dom.'-domainconfig';          $confname = $dom.'-domainconfig';
         my $servadm = $r->dir_config('lonAdmEMail');          my $servadm = $r->dir_config('lonAdmEMail');
         ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm);          ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm);
           ($validationitemsref,$validationnamesref,$validationfieldsref) = 
               &Apache::loncoursequeueadmin::requestcourses_validation_types();
     } elsif ($context eq 'requestauthor') {      } elsif ($context eq 'requestauthor') {
         @usertools = ('author');          @usertools = ('author');
         %titles = &authorrequest_titles();          %titles = &authorrequest_titles();
Line 6505  sub modify_quotas { Line 6559  sub modify_quotas {
                                '</span></li>';                                 '</span></li>';
                 }                  }
             }              }
   
         }          }
         if (ref($domconfig{$action}) eq 'HASH') {          if (ref($domconfig{$action}) eq 'HASH') {
             if (ref($domconfig{$action}{'notify'}) eq 'HASH') {              if (ref($domconfig{$action}{'notify'}) eq 'HASH') {
Line 6611  sub modify_quotas { Line 6666  sub modify_quotas {
                 }                  }
                 if ($env{'form.addbook_image.filename'} ne '') {                  if ($env{'form.addbook_image.filename'} ne '') {
                     my ($cdom,$cnum) = split(/_/,$newbook);                      my ($cdom,$cnum) = split(/_/,$newbook);
                     my ($imageurl,$error) =                       my ($imageurl,$error) =
                         &process_textbook_image($r,$dom,$confname,'addbook_image',$cdom,$cnum,$configuserok,                          &process_textbook_image($r,$dom,$confname,'addbook_image',$cdom,$cnum,$configuserok,
                                                 $switchserver,$author_ok);                                                  $switchserver,$author_ok);
                     if ($imageurl) {                      if ($imageurl) {
Line 6641  sub modify_quotas { Line 6696  sub modify_quotas {
                     }                      }
                 }                  }
             }              }
               if (ref($validationitemsref) eq 'ARRAY') {
                   foreach my $item (@{$validationitemsref}) {
                       if ($item eq 'fields') {
                           my @changed;
                           @{$confhash{'validation'}{$item}} = &Apache::loncommon::get_env_multiple('form.requestcourses_validation_'.$item);
                           if (@{$confhash{'validation'}{$item}} > 0) {
                               @{$confhash{'validation'}{$item}} = sort(@{$confhash{'validation'}{$item}});
                           }
                           if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
                               if (ref($domconfig{'requestcourses'}{'validation'}{$item}) eq 'ARRAY') {
                                   @changed = &Apache::loncommon::compare_arrays($confhash{'validation'}{$item},
                                                                                 $domconfig{'requestcourses'}{'validation'}{$item});
                               } else {
                                   @changed = @{$confhash{'validation'}{$item}};
                               }
                           } else {
                               @changed = @{$confhash{'validation'}{$item}};
                           }
                           if (@changed) {
                               if ($confhash{'validation'}{$item}) {
                                   $changes{'validation'}{$item} = join(', ',@{$confhash{'validation'}{$item}});
                               } else {
                                   $changes{'validation'}{$item} = &mt('None');
                               }
                           }
                       } else {
                           $confhash{'validation'}{$item} = $env{'form.requestcourses_validation_'.$item};
                           if ($item eq 'markup') {
                               if ($env{'form.requestcourses_validation_'.$item}) {
                                   $env{'form.requestcourses_validation_'.$item} =~ s/[\n\r\f]+/\s/gs;
                               }
                           }
                           if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
                               if ($domconfig{'requestcourses'}{'validation'}{$item} ne $confhash{'validation'}{$item}) {
                                   $changes{'validation'}{$item} = $confhash{'validation'}{$item};
                               }
                           } else {
                               if ($confhash{'validation'}{$item} ne '') {
                                   $changes{'validation'}{$item} = $confhash{'validation'}{$item};
                               }
                           }
                       }
                   }
               }
               if ($env{'form.validationdc'}) {
                   my $newval = $env{'form.validationdc'};
                   my %domcoords = &get_active_dcs($dom);
                   if (exists($domcoords{$newval})) {
                       $confhash{'validation'}{'dc'} = $newval;
                   }
               }
               if (ref($confhash{'validation'}) eq 'HASH') {
                   if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
                       if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {
                           unless ($confhash{'validation'}{'dc'} eq $domconfig{'requestcourses'}{'validation'}{'dc'}) {
                               if ($confhash{'validation'}{'dc'} eq '') {
                                   $changes{'validation'}{'dc'} = &mt('None');
                               } else {
                                   $changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
                               }
                           }
                       } elsif ($confhash{'validation'}{'dc'} ne '') {
                           $changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
                       }
                   } elsif ($confhash{'validation'}{'dc'} ne '') {
                       $changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
                   }
               } elsif (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
                   if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {
                       $changes{'validation'}{'dc'} = &mt('None');
                   }
               }
         }          }
     } else {      } else {
         $confhash{'defaultquota'}{'default'} = $env{'form.defaultquota'};          $confhash{'defaultquota'}{'default'} = $env{'form.defaultquota'};
Line 6956  sub modify_quotas { Line 7083  sub modify_quotas {
                     }                      }
                     $resulttext .= '</ul></li>';                      $resulttext .= '</ul></li>';
                 }                  }
                   if (ref($changes{'validation'}) eq 'HASH') {
                       if ((ref($validationitemsref) eq 'ARRAY') && (ref($validationnamesref) eq 'HASH')) {
                           $resulttext .= '<li>'.&mt('Validation of courses/communities updated').'<ul>';
                           foreach my $item (@{$validationitemsref}) {
                               if (exists($changes{'validation'}{$item})) {
                                   if ($item eq 'markup') {
                                       $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$validationnamesref->{$item},
                                                                 '<br /><pre>'.$changes{'validation'}{$item}.'</pre>').'</li>';
                                   } else {
                                       $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$validationnamesref->{$item},
                                                                 '<b>'.$changes{'validation'}{$item}.'</b>').'</li>';
                                   }
                               }
                           }
                           if (exists($changes{'validation'}{'dc'})) {
                               $resulttext .= '<li>'.&mt('Validated course requests identified as processed by: [_1]',
                                                        '<b>'.$changes{'validation'}{'dc'}.'</b>').'</li>';
                           }
                       }
                   }
             }              }
             $resulttext .= '</ul>';              $resulttext .= '</ul>';
             if (keys(%newenv)) {              if (keys(%newenv)) {
Line 10141  sub get_active_dcs { Line 10288  sub get_active_dcs {
   
 sub active_dc_picker {  sub active_dc_picker {
     my ($dom,$numinrow,$inputtype,$name,%currhash) = @_;      my ($dom,$numinrow,$inputtype,$name,%currhash) = @_;
     my %domcoords = &get_active_dcs($dom);       my %domcoords = &get_active_dcs($dom);
     my @domcoord = keys(%domcoords);      my @domcoord = keys(%domcoords);
     if (keys(%currhash)) {      if (keys(%currhash)) {
         foreach my $dc (keys(%currhash)) {          foreach my $dc (keys(%currhash)) {
Removed from v.1.234  
changed lines
  Added in v.1.235

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