loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.405, 2015/06/09 21:22:56	version 1.407, 2016/01/31 21:25:38
Line 3110 sub update_user_data {	Line 3110 sub update_user_data {
\%newsettingstext);	\%newsettingstext);
if ($env{'form.cid'} ne $userenv{'id'}) {	if ($env{'form.cid'} ne $userenv{'id'}) {
&Apache::lonnet::idput($env{'form.ccdomain'},	&Apache::lonnet::idput($env{'form.ccdomain'},
($env{'form.ccuname'} => $env{'form.cid'}));	{$env{'form.ccuname'} => $env{'form.cid'}},$uhome,'ids');
if (($recurseid) &&	if (($recurseid) &&
(&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {	(&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {
my $idresult =	my $idresult =
Line 5746 ENDSCRIPT	Line 5746 ENDSCRIPT
$cathash = $domconfig{'coursecategories'}{'cats'};	$cathash = $domconfig{'coursecategories'}{'cats'};
$cattype{'auth'} = $domconfig{'coursecategories'}{'auth'};	$cattype{'auth'} = $domconfig{'coursecategories'}{'auth'};
$cattype{'unauth'} = $domconfig{'coursecategories'}{'unauth'};	$cattype{'unauth'} = $domconfig{'coursecategories'}{'unauth'};
	if ($cattype{'auth'} eq '') {
	$cattype{'auth'} = 'std';
	}
	if ($cattype{'unauth'} eq '') {
	$cattype{'unauth'} = 'std';
	}
} else {	} else {
$cathash = {};	$cathash = {};
$cattype{'auth'} = 'std';	$cattype{'auth'} = 'std';