|
version 1.3, 2007/03/01 18:03:18
|
version 1.4, 2007/03/01 18:24:09
|
|
Line 502 sub modify_login {
|
Line 502 sub modify_login {
|
| adminmail => 'Display administrator E-mail address'); |
adminmail => 'Display administrator E-mail address'); |
| my @offon = ('off','on'); |
my @offon = ('off','on'); |
| my %loginhash = ( |
my %loginhash = ( |
| login => { coursecatalog => $env{'form.coursecatalog'}, adminmail => $env{'form.adminmail'}, |
login => { coursecatalog => $env{'form.coursecatalog'}, |
| |
adminmail => $env{'form.adminmail'}, |
| } |
} |
| ); |
); |
| my $putresult = &Apache::lonnet::put_dom('configuration',\%loginhash, |
my $putresult = &Apache::lonnet::put_dom('configuration',\%loginhash, |
|
Line 609 sub modify_autoenroll {
|
Line 610 sub modify_autoenroll {
|
| |
|
| } |
} |
| ); |
); |
| my $putresult = &Apache::lonnet::put_dom('configuration',\%autoenrollhash, $dom); |
my $putresult = &Apache::lonnet::put_dom('configuration',\%autoenrollhash, |
| |
$dom); |
| if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
| if (exists($currautoenroll{'run'})) { |
if (exists($currautoenroll{'run'})) { |
| if ($currautoenroll{'run'} ne $env{'form.autoenroll_run'}) { |
if ($currautoenroll{'run'} ne $env{'form.autoenroll_run'}) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface