loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.76, 2008/12/11 14:55:15	version 1.77, 2008/12/12 16:50:53
Line 3637 sub upfile_drop_add {	Line 3637 sub upfile_drop_add {
ne &LONCAPA::clean_username($entries{$fields{'username'}})) {	ne &LONCAPA::clean_username($entries{$fields{'username'}})) {
$r->print('<br />'.	$r->print('<br />'.
&mt('[_1]: Unacceptable username for user [_2] [_3] [_4] [_5]',	&mt('[_1]: Unacceptable username for user [_2] [_3] [_4] [_5]',
'<b>'.$entries{$fields{'username'}}.'</b>',$fname,$mname,$lname,$gen).	'<b>'.$entries{$fields{'username'}}.'</b>',$fname,$mname,$lname,$gen));
'</b>');
next;	next;
} else {	} else {
if ($entries{$fields{'domain'}}	if ($entries{$fields{'domain'}}
ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {	ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
$r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.	$r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.
'</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen).'</b>');	'</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen));
next;	next;
}	}
my $username = $entries{$fields{'username'}};	my $username = $entries{$fields{'username'}};