--- loncom/interface/lonmenu.pm	2011/11/30 18:34:25	1.315.2.15
+++ loncom/interface/lonmenu.pm	2012/05/01 12:39:32	1.315.2.15.2.3
@@ -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.3 2012/05/01 12:39:32 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -743,9 +743,13 @@ s&2&3&forw.gif&forward[_1]&&gopost('/adm
 c&6&3
 c&8&1
 c&8&2
-s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'}
-s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'}
 ENDMENUITEMS
+            if ((($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') &&
+                 ($env{'request.course.id'} ne 'relate_2764113e81b9e4f0crelatel1')) ||
+                ($env{'request.role'} =~ /^cc/)) {
+                $menuitems .= "s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'}\n";
+            }
+            $menuitems .= "s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'}\n";
 
 my $currentURL = &Apache::loncommon::get_symb();
 my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
@@ -783,11 +787,15 @@ ENDREALRES
 	    }
         }
 	if ($env{'request.uri'} =~ /^\/res/) {
-            my $icontext = &mt('Print');
-	    $menuitems .= (<<ENDMENUITEMS);
+            if ((($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') &&
+                 ($env{'request.course.id'} ne 'relate_2764113e81b9e4f0crelatel1')) ||
+                ($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)) {
 	    my ($command,@rest)=split(/\&/,$_);