loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.61, 2008/08/13 08:17:58	version 1.62, 2008/08/20 21:28:14
Line 558 function verify(vf,sec_caller) {	Line 558 function verify(vf,sec_caller) {
if (tw==11) { foundrole=1; }	if (tw==11) { foundrole=1; }
if (tw==12) { founddomain=1; }	if (tw==12) { founddomain=1; }
}	}
verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddom);	verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain);
}	}

//	//
Line 3592 sub upfile_drop_add {	Line 3592 sub upfile_drop_add {
'</b>');	'</b>');
next;	next;
} else {	} else {
my $baddom = 0;
if ($entries{$fields{'dom'}}	if ($entries{$fields{'dom'}}
ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {	ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
$baddom = 1;
} else {
if (&Apache::lonnet::domain($entries{$fields{'domain'}}) eq '') {
$baddom = 1;
}
}
if ($baddom) {
$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).'</b>');
next;	next;