version 1.12, 2006/02/07 05:08:21
|
version 1.13, 2006/02/07 16:36:10
|
Line 256 sub validate_courseID {
|
Line 256 sub validate_courseID {
|
# (a) $authparam - the value of <autharg> from the classlist.xml files, |
# (a) $authparam - the value of <autharg> from the classlist.xml files, |
# or if this blank, the default autharg, set by the domain coordinator when |
# or if this blank, the default autharg, set by the domain coordinator when |
# creating the course with loncreatecourse.pm |
# creating the course with loncreatecourse.pm |
# (b) $username - the username of the new user |
|
# (b) $dom - the domain of the new user. |
# (b) $dom - the domain of the new user. |
|
# (c) $username - the username of the new user (currently not actually used) |
# |
# |
# Four values are returned: |
# Four values are returned: |
# (a) the value of $authparam - which might have been changed |
# (a) the value of $authparam - which might have been changed |
Line 286 sub validate_courseID {
|
Line 286 sub validate_courseID {
|
############################### |
############################### |
|
|
sub create_password { |
sub create_password { |
my ($authparam,$username,$dom) = @_; |
my ($authparam,$dom,$username) = @_; |
my $authchk = 'ok'; |
my $authchk = 'ok'; |
my $newpasswd = ''; |
my $newpasswd = ''; |
my $create_passwd = 0; |
my $create_passwd = 0; |