version 1.231, 2008/01/20 01:24:16
|
version 1.232, 2008/01/20 01:40:37
|
Line 1636 sub update_user_data {
|
Line 1636 sub update_user_data {
|
$r->print(&mt('Generating user').': '.$result); |
$r->print(&mt('Generating user').': '.$result); |
$uhome = &Apache::lonnet::homeserver($env{'form.ccuname'}, |
$uhome = &Apache::lonnet::homeserver($env{'form.ccuname'}, |
$env{'form.ccdomain'}); |
$env{'form.ccdomain'}); |
|
if (($uhome ne 'no_host') && ($env{'form.customquota'} == 1)) { |
|
my (%changeHash,$newportfolioquota); |
|
if ($env{'form.portfolioquota'} eq '') { |
|
$newportfolioquota = 0; |
|
} else { |
|
$newportfolioquota = $env{'form.portfolioquota'}; |
|
$newportfolioquota =~ s/[^\d\.]//g; |
|
} |
|
my $quotachanged = "a_admin($newportfolioquota,\%changeHash); |
|
if ($quotachanged) { |
|
$changeHash{'firstname'} = $env{'form.cfirstname'}; |
|
$changeHash{'middlename'} = $env{'form.cmiddlename'}; |
|
$changeHash{'lastname'} = $env{'form.clastname'}; |
|
$changeHash{'generation'} = $env{'form.cgeneration'}; |
|
$changeHash{'id'} = $env{'form.cid'}; |
|
$changeHash{'permanentemail'} = $env{'form.cpermanentemail'}; |
|
my $quotachgresult = |
|
&Apache::lonnet::put('environment',\%changeHash, |
|
$env{'form.ccdomain'},$env{'form.ccuname'}); |
|
} |
|
} |
$r->print('<br />'.&mt('Home server').': '.$uhome.' '. |
$r->print('<br />'.&mt('Home server').': '.$uhome.' '. |
&Apache::lonnet::hostname($uhome)); |
&Apache::lonnet::hostname($uhome)); |
} elsif (($env{'form.login'} ne 'nochange') && |
} elsif (($env{'form.login'} ne 'nochange') && |