[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface lonmsgdisplay.pm

[raeburn]

raeburn		Tue Feb 14 17:28:25 2012 EDT

  Modified files:              (Branch: loncapaMITrelate_1)
    /loncom/interface	lonmsgdisplay.pm 
  Log:
  - Customization for MITrelate.
    - Backport 1.158.
    - No domain selector for users from relate domain who do not have .adv priv.
  
  
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.157 loncom/interface/lonmsgdisplay.pm:1.157.4.1
--- loncom/interface/lonmsgdisplay.pm:1.157	Thu May 12 21:56:13 2011
+++ loncom/interface/lonmsgdisplay.pm	Tue Feb 14 17:28:25 2012
@@ -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 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 = '<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=
       &Apache::loncommon::selectstudent_link('compemail','recuname',
                                              'recdomain');
     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
     return $output;
 }