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

Diff for /loncom/interface/domainprefs.pm between versions 1.94 and 1.96

version 1.94, 2009/04/24 04:58:27 version 1.96, 2009/05/19 20:00:24
Line 162  sub handler { Line 162  sub handler {
                                 col2 => 'Information settable when self-creating account (if directory data blank)'}],                                  col2 => 'Information settable when self-creating account (if directory data blank)'}],
                   },                    },
         'scantron' =>          'scantron' =>
                   { text => 'Scantron format file',                    { text => 'Bubblesheet format file',
                     help => 'Domain_Configuration_Scantron_Format',                      help => 'Domain_Configuration_Scantron_Format',
                     header => [ {col1 => 'Item',                      header => [ {col1 => 'Item',
                                  col2 => '',                                   col2 => '',
Line 1833  sub print_scantronformat { Line 1833  sub print_scantronformat {
         %confhash);          %confhash);
     my $switchserver = &check_switchserver($dom,$confname);      my $switchserver = &check_switchserver($dom,$confname);
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                 default => 'Default scantron format file error',                  default => 'Default bubblesheet format file error',
                 custom  => 'Custom scantron format file error',                  custom  => 'Custom bubblesheet format file error',
              );               );
     my %scantronfiles = (      my %scantronfiles = (
         default => 'default.tab',          default => 'default.tab',
Line 1907  sub print_scantronformat { Line 1907  sub print_scantronformat {
                 }                  }
             }              }
         } else {          } else {
             $error{'default'} = &mt("Unable to copy default scantron formatfile to domain's RES space: [_1]",$switchserver);              $error{'default'} = &mt("Unable to copy default bubblesheet formatfile to domain's RES space: [_1]",$switchserver);
         }          }
     }      }
     if (ref($settings) eq 'HASH') {      if (ref($settings) eq 'HASH') {
Line 4200  sub modify_usercreation { Line 4200  sub modify_usercreation {
                             $chgtext .= '</ul>';                              $chgtext .= '</ul>';
                         }                          }
                     } elsif ($type eq 'statustocreate') {                      } elsif ($type eq 'statustocreate') {
                         if (@{$cancreate{'selfcreate'}} > 0) {                          if ((ref($cancreate{'selfcreate'}) eq 'ARRAY') &&
                             if (@{$cancreate{$type}} == 0) {                              (ref($cancreate{'statustocreate'}) eq 'ARRAY')) {
                                 if (!grep(/^email$/,@{$cancreate{'selfcreate'}})) {                              if (@{$cancreate{'selfcreate'}} > 0) {
                                     $chgtext .= &mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.");                                  if (@{$cancreate{'statustocreate'}} == 0) {
                                 }                                      if (!grep(/^email$/,@{$cancreate{'selfcreate'}})) {
                             } elsif (ref($usertypes) eq 'HASH') {                                          $chgtext .= &mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.");
                                 if (grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) {                                      }
                                     $chgtext .= &mt('creation of a new account for an institutional user is restricted to the following institutional affiliation(s):').'<ul>';                                  } elsif (ref($usertypes) eq 'HASH') {
                                     foreach my $case (@{$cancreate{$type}}) {                                      if (grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) {
                                         if ($case eq 'default') {                                          $chgtext .= &mt('creation of a new account for an institutional user is restricted to the following institutional affiliation(s):').'<ul>';
                                             $chgtext .= '<li>'.$othertitle.'</li>';                                          foreach my $case (@{$cancreate{$type}}) {
                                         } else {                                              if ($case eq 'default') {
                                             $chgtext .= '<li>'.$usertypes->{$case}.'</li>';                                                  $chgtext .= '<li>'.$othertitle.'</li>';
                                               } else {
                                                   $chgtext .= '<li>'.$usertypes->{$case}.'</li>';
                                               }
                                         }                                          }
                                           $chgtext .= '</ul>';
                                     }                                      }
                                     $chgtext .= '</ul>';  
                                 }                                  }
                             }                              }
                         }                          }
Removed from v.1.94  
changed lines
  Added in v.1.96

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