--- loncom/interface/lonmsgdisplay.pm 2011/05/12 21:56:13 1.157 +++ loncom/interface/lonmsgdisplay.pm 2012/02/14 17:28:25 1.157.4.1 @@ -1,7 +1,7 @@ -# $textareaclass The LearningOnline Network with CAPA +# The LearningOnline Network with CAPA # Routines for messaging display # -# $Id: lonmsgdisplay.pm,v 1.157 2011/05/12 21:56:13 raeburn Exp $ +# $Id: lonmsgdisplay.pm,v 1.157.4.1 2012/02/14 17:28:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1765,12 +1765,18 @@ sub check_group_priv { sub recipient_input_row { my ($dom,%lt) = @_; - my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain'); + my $domform; + if (($dom eq 'relate') && (!$env{'user.adv'})) { + $domform = ''.$dom.''. + ''; + } else { + $domform = &Apache::loncommon::select_dom_form($dom,'recdomain'); + } my $selectlink= &Apache::loncommon::selectstudent_link('compemail','recuname', 'recdomain'); my $output = <<"ENDREC"; -$lt{'to'} $lt{'us'}:  $lt{'do'}: $domform  $selectlink +$lt{'to'} $lt{'us'}:  $lt{'do'}: $domform  $selectlink ENDREC return $output; }