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

Diff for /loncom/enrollment/Enrollment.pm between versions 1.53 and 1.56

version 1.53, 2019/05/14 13:39:18 version 1.56, 2021/10/08 18:49:17
Line 25 Line 25
 #  #
 package LONCAPA::Enrollment;  package LONCAPA::Enrollment;
   
   use lib '/home/httpd/lib/perl';
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
Line 35  use HTML::Parser; Line 36  use HTML::Parser;
 use LONCAPA::Configuration;  use LONCAPA::Configuration;
 use Math::Random;  use Math::Random;
 use Time::Local;  use Time::Local;
 use lib '/home/httpd/lib/perl';  
   
 use strict;  use strict;
   
Line 331  sub update_LC { Line 331  sub update_LC {
                     }                      }
                 }                  }
 # Check for institutional section change  # Check for institutional section change
                 if (($$currlist{$uname}[$instidx] ne $instsec) && (!$added)) {                  if (($$currlist{$uname}[$instidx] ne $instsec) && (!$added) && ($$currlist{$uname}[$type] eq "auto")) {
                     my $modify_instsec_result =                      my $modify_instsec_result =
                         &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$enddate,$startdate,'auto','',$cid,'',$context,$credits,$instsec);                          &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$enddate,$startdate,'auto','',$cid,'',$context,$credits,$instsec);
                     if ($modify_instsec_result =~ /^ok/) {                      if ($modify_instsec_result =~ /^ok/) {
Line 955  sub create_password { Line 955  sub create_password {
     my ($udom) = @_;      my ($udom) = @_;
     my %passwdconf = &Apache::lonnet::get_passwdconf($udom);      my %passwdconf = &Apache::lonnet::get_passwdconf($udom);
     my ($min,$max,@chars);      my ($min,$max,@chars);
       $min = $Apache::lonnet::passwdmin;
     if (ref($passwdconf{'chars'}) eq 'ARRAY') {      if (ref($passwdconf{'chars'}) eq 'ARRAY') {
         if ($passwdconf{'min'} =~ /^\d+$/) {          if ($passwdconf{'min'} =~ /^\d+$/) {
             $min = $passwdconf{'min'};              if ($passwdconf{'min'} > $min) {
                   $min = $passwdconf{'min'};
               }
         }          }
         if ($passwdconf{'max'} =~ /^\d+$/) {          if ($passwdconf{'max'} =~ /^\d+$/) {
             $max = $passwdconf{'max'};              $max = $passwdconf{'max'};
Removed from v.1.53  
changed lines
  Added in v.1.56

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