version 1.48, 2012/05/16 21:19:39
|
version 1.49, 2012/05/17 17:41:48
|
Line 838 sub create_account {
|
Line 838 sub create_account {
|
sub username_validation { |
sub username_validation { |
my ($r,$username,$domain,$domdesc,$contact_name,$contact_email,$courseid, |
my ($r,$username,$domain,$domdesc,$contact_name,$contact_email,$courseid, |
$lonhost,$statustocreate) = @_; |
$lonhost,$statustocreate) = @_; |
|
# $username,$domain: for the user who needs to be validated |
|
# $domdesc: full name of the domain (for error messages) |
|
# $contact_name, $contact_email: name and email for user assistance (for error messages in &username_check |
|
# $courseid: ID of the course that the user should be validated for, goes into start_session |
|
# $statustocreate: -> inststatus in username_check ('faculty', 'staff', 'student', ...) |
|
|
my ($retrieved,$output,$upass); |
my ($retrieved,$output,$upass); |
|
|
$username= &LONCAPA::clean_username($username); |
$username= &LONCAPA::clean_username($username); |
Line 1230 ENDSERVERFORM
|
Line 1236 ENDSERVERFORM
|
} |
} |
|
|
sub process_credentials { |
sub process_credentials { |
|
# |
|
# Fetches the information from the logtoken via tmpget |
|
# Token contains the DES-key and the stage of the process (would only be "createaccount") |
|
# $lonhost in this routine is *not* necessarily the machine that this runs on, |
|
# but $env{'form.serverid'}, the machine that issued the token. |
|
# |
my ($logtoken,$lonhost) = @_; |
my ($logtoken,$lonhost) = @_; |
my $tmpinfo=Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost); |
my $tmpinfo=Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost); |
my ($retrieved,$output,$upass); |
my ($retrieved,$output,$upass); |
Line 1251 sub process_credentials {
|
Line 1263 sub process_credentials {
|
} else { |
} else { |
$output = &mt('Unable to retrieve your log-in information - unexpected context'); |
$output = &mt('Unable to retrieve your log-in information - unexpected context'); |
} |
} |
|
# $retrieved is 'ok' if retrieved okay |
|
# $output is screen output for the user |
|
# $upass is $env{'form.upass'}, decrypted with the DES-key, if stage was 'createaccount' |
|
|
return ($retrieved,$output,$upass); |
return ($retrieved,$output,$upass); |
} |
} |
|
|