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

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

version 1.95, 2009/05/07 19:36:49 version 1.96, 2009/05/19 20:00:24
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.95  
changed lines
  Added in v.1.96

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