loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.479, 2024/05/01 21:23:20	version 1.480, 2024/05/21 02:57:15
Line 3378 sub update_user_data {	Line 3378 sub update_user_data {
$changed{'webdav'} = &tool_admin('webdav',$newcustom{'webdav'},	$changed{'webdav'} = &tool_admin('webdav',$newcustom{'webdav'},
\%changeHash,'authordefaults');	\%changeHash,'authordefaults');
}	}
if ($env{'for.customarchive'} == 1) {	if ($env{'form.customarchive'} == 1) {
$newcustom{'archive'} = $env{'form.authordefaults_archive'};	$newcustom{'archive'} = $env{'form.authordefaults_archive'};
$changed{'archive'} = &tool_admin('archive',$newcustom{'archive'},	$changed{'archive'} = &tool_admin('archive',$newcustom{'archive'},
\%changeHash,'authordefaults');	\%changeHash,'authordefaults');
Line 3867 sub update_user_data {	Line 3867 sub update_user_data {
$newenvhash{'environment.editors'} = 'edit,xml';	$newenvhash{'environment.editors'} = 'edit,xml';
}	}
}	}
	} elsif ($key eq 'archive') {
	$newenvhash{'environment.author.'.$key} =
	$changeHash{'author.'.$key};
	if ($changeHash{'author.'.$key} ne '') {
	$newenvhash{'environment.canarchive'} =
	$changeHash{'author.'.$key};
	} else {
	unless ($got_domdefs) {
	%domdefaults =
	&Apache::lonnet::get_domain_defaults($env{'user.domain'});
	$got_domdefs = 1;
	}
	$newenvhash{'environment.canarchive'} =
	$domdefaults{'archive'};
	}
} elsif ($key ne 'quota') {	} elsif ($key ne 'quota') {
$newenvhash{'environment.tools.'.$key} =	$newenvhash{'environment.tools.'.$key} =
$changeHash{'tools.'.$key};	$changeHash{'tools.'.$key};