loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.576, 2007/08/31 03:21:27	version 1.577, 2007/08/31 17:58:47
Line 5695 sub user_picker {	Line 5695 sub user_picker {
if (ref($srch) eq 'HASH') {	if (ref($srch) eq 'HASH') {
if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $env{'request.role.domain'}) {	if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $env{'request.role.domain'}) {
$new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';	$new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';
} else {
$new_user_create = &newuser_radio($caller);
}	}
} else {
$new_user_create = &newuser_radio($caller);
}	}

$newuserscript = <<"ENDSCRIPT";	$newuserscript = <<"ENDSCRIPT";
Line 5827 END_BLOCK	Line 5823 END_BLOCK
return $output;	return $output;
}	}

sub newuser_radio {
my ($caller) = @_;
return '<span class="LC_nobreak">'.&mt('Make new user if no match found: ').'<input type="radio" name="forcenew" value="1" onclick="javascript:setSearch(\'1\','.$caller.')" />'.&mt('Yes').'  <input type="radio" name="forcenew" value="0" checked="checked" />'.&mt('No').'</span><br />';
}



=pod	=pod

=back	=back