loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'}) {