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; |
} |
} |