loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.157.4.1, 2012/02/14 17:28:25	version 1.158, 2011/12/28 14:28:47
Line 1765 sub check_group_priv {	Line 1765 sub check_group_priv {

sub recipient_input_row {	sub recipient_input_row {
my ($dom,%lt) = @_;	my ($dom,%lt) = @_;
my $domform;	my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain');
if (($dom eq 'relate') && (!$env{'user.adv'})) {
$domform = '<span class="LC_cusr_emph">'.$dom.'</span>'.
'<input type="hidden" name="recdomain" value="'.$dom.'" />';
} else {
$domform = &Apache::loncommon::select_dom_form($dom,'recdomain');
}
my $selectlink=	my $selectlink=
&Apache::loncommon::selectstudent_link('compemail','recuname',	&Apache::loncommon::selectstudent_link('compemail','recuname',
'recdomain');	'recdomain');
my $output = <<"ENDREC";	my $output = <<"ENDREC";
<tr><td colspan="3"><span class="LC_nobreak"><b>$lt{'to'}</b> $lt{'us'}: <input type="text" size="15" name="recuname" value="$env{'form.recname'}" /> $lt{'do'}: $domform  $selectlink</span></td></tr>	<tr><td colspan="3"><span class="LC_nobreak"><b>$lt{'to'}</b> $lt{'us'}: <input type="text" size="12" name="recuname" value="$env{'form.recname'}" /> $lt{'do'}: $domform  $selectlink</span></td></tr>
ENDREC	ENDREC
return $output;	return $output;
}	}