loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.157, 2011/05/12 21:56:13	version 1.157.4.1, 2012/02/14 17:28:25
Line 1	Line 1
# $textareaclass The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Routines for messaging display	# Routines for messaging display
#	#
# $Id$	# $Id$
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 = &Apache::loncommon::select_dom_form($dom,'recdomain');	my $domform;
	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="12" 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="15" name="recuname" value="$env{'form.recname'}" /> $lt{'do'}: $domform  $selectlink</span></td></tr>
ENDREC	ENDREC
return $output;	return $output;
}	}