loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.343, 2010/05/22 01:27:48	version 1.344, 2010/06/09 11:56:02
Line 2297 sub update_user_data {	Line 2297 sub update_user_data {

$r->print('<h3>'.&mt('User [_1] in domain [_2]',	$r->print('<h3>'.&mt('User [_1] in domain [_2]',
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');	$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');
	$r->print('<p class="LC_info">'.&mt('Please be patient').'</p>');

my (%alerts,%rulematch,%inst_results,%curr_rules);	my (%alerts,%rulematch,%inst_results,%curr_rules);
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');	my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');
my @usertools = ('aboutme','blog','portfolio');	my @usertools = ('aboutme','blog','portfolio');
Line 2438 sub update_user_data {	Line 2440 sub update_user_data {
$r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end);	$r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end);
}	}
}	}

	$r->rflush(); # Finish display of header before time consuming actions start

##	##
my (@userroles,%userupdate,$cnum,$cdom,%namechanged);	my (@userroles,%userupdate,$cnum,$cdom,%namechanged);
if ($context eq 'course') {	if ($context eq 'course') {