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

[raeburn]

raeburn		Fri Mar  2 14:48:20 2012 EDT

  Modified files:              (Branch: loncapaMITrelate_1)
    /loncom/interface	lonmenu.pm 
  Log:
  - Customization for MITrelate
    - Suppress display of printing icon in inline menu for non-CC roles
      in Mechanics Online course. 
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.315.2.15 loncom/interface/lonmenu.pm:1.315.2.15.2.1
--- loncom/interface/lonmenu.pm:1.315.2.15	Wed Nov 30 18:34:25 2011
+++ loncom/interface/lonmenu.pm	Fri Mar  2 14:48:19 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.315.2.15 2011/11/30 18:34:25 raeburn Exp $
+# $Id: lonmenu.pm,v 1.315.2.15.2.1 2012/03/02 14:48:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -783,10 +783,13 @@
 	    }
         }
 	if ($env{'request.uri'} =~ /^\/res/) {
-            my $icontext = &mt('Print');
-	    $menuitems .= (<<ENDMENUITEMS);
+            if (($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') ||
+               ($env{'request.role'} =~ /^cc/)) {
+                my $icontext = &mt('Print');
+	        $menuitems .= (<<ENDMENUITEMS);
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icontext
 ENDMENUITEMS
+	    }
 	}
         my $buttons='';
         foreach (split(/\n/,$menuitems)) {