version 1.43, 2014/02/12 20:47:40
|
version 1.44, 2014/03/03 17:11:41
|
Line 876 sub update_request_queue {
|
Line 876 sub update_request_queue {
|
|
|
if (ref($curr{$uname}) eq 'HASH') { |
if (ref($curr{$uname}) eq 'HASH') { |
my ($username,$logtoken,$serverid,$encpass,$courseid,$id,$firstname, |
my ($username,$logtoken,$serverid,$encpass,$courseid,$id,$firstname, |
$middlename,$lastname,$generation); |
$middlename,$lastname,$generation,$inststatus); |
$curr{$uname}{'timestamp'} = $now; |
$curr{$uname}{'timestamp'} = $now; |
$curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'}; |
$curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'}; |
$courseid = $curr{$uname}{'courseid'}; |
$courseid = $curr{$uname}{'courseid'}; |
Line 885 sub update_request_queue {
|
Line 885 sub update_request_queue {
|
$middlename = $curr{$uname}{'middlename'}; |
$middlename = $curr{$uname}{'middlename'}; |
$lastname = $curr{$uname}{'lastname'}; |
$lastname = $curr{$uname}{'lastname'}; |
$generation = $curr{$uname}{'generation'}; |
$generation = $curr{$uname}{'generation'}; |
|
$inststatus = $curr{$uname}{'usertype'}; |
|
|
my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'}); |
my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'}); |
if ($caller eq 'createaccount') { |
if ($caller eq 'createaccount') { |
Line 901 sub update_request_queue {
|
Line 902 sub update_request_queue {
|
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
push(@warn_approves,$uname); |
push(@warn_approves,$uname); |
} else { |
} else { |
|
unless (($inststatus eq 'default') || ($inststatus eq '')) { |
|
&Apache::lonnet::put('environment',{inststatus => $inststatus},$cdom,$uname); |
|
} |
&send_selfserve_notification($uname.':'.$cdom, |
&send_selfserve_notification($uname.':'.$cdom, |
$approvedmsg,undef,undef,$now, |
$approvedmsg,undef,undef,$now, |
$beneficiary,$sender); |
$beneficiary,$sender); |