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

Diff for /loncom/interface/lonuserutils.pm between versions 1.184.4.10.2.1 and 1.184.4.10.2.4

version 1.184.4.10.2.1, 2022/02/20 19:48:31 version 1.184.4.10.2.4, 2023/09/04 16:17:12
Line 510  END Line 510  END
 ";  ";
     } elsif ($mode eq 'modifycourse') {      } elsif ($mode eq 'modifycourse') {
         $auth_checks .= "          $auth_checks .= "
     if (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '') {      if ((current.argfield !== null) && (current.argfield !== undefined) && (current.argfield !== '') && (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '')) {
 ";  ";
     }      }
     if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {      if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
Line 6066  sub get_permission { Line 6066  sub get_permission {
                     $permission{'selfenrolladmin'} = 1;                      $permission{'selfenrolladmin'} = 1;
                 }                  }
             }              }
               unless ($permission{'selfenrolladmin'}) {
                   $permission{'selfenrollview'} = 1;
               }
         }          }
         if ($env{'request.course.id'}) {          if ($env{'request.course.id'}) {
             my $user;              my $user;
Line 6114  sub get_permission { Line 6117  sub get_permission {
         }          }
     }      }
     my $allowed = 0;      my $allowed = 0;
     foreach my $perm (values(%permission)) {      foreach my $key (keys(%permission)) {
         if ($perm) { $allowed=1; last; }          next if (($key eq 'owner') || ($key eq 'co-owner'));
           if ($permission{$key}) { $allowed=1; last; }
     }      }
     return (\%permission,$allowed);      return (\%permission,$allowed);
 }  }
Line 6528  sub selfenrollment_administration { Line 6532  sub selfenrollment_administration {
         }          }
     }      }
     if ($settings{'internal.selfenrollmgrdc'} ne '') {      if ($settings{'internal.selfenrollmgrdc'} ne '') {
         my @in_domain = split(/,/,$settings{'internal.selfenrollmgrdc'});          @in_domain = split(/,/,$settings{'internal.selfenrollmgrdc'});
         my @diffs = &Apache::loncommon::compare_arrays(\@in_domain,$possconfigs);          my @diffs = &Apache::loncommon::compare_arrays(\@in_domain,$possconfigs);
         unless (@diffs) {          unless (@diffs) {
             return (\@in_course,\@in_domain);              return (\@in_course,\@in_domain);
Removed from v.1.184.4.10.2.1  
changed lines
  Added in v.1.184.4.10.2.4

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