[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /homework structuretags.pm

[raeburn]

raeburn		Thu May 15 20:29:27 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/homework	structuretags.pm 
  Log:
  - For 2.11
    - Backport 1.518.
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.512.2.6 loncom/homework/structuretags.pm:1.512.2.7
--- loncom/homework/structuretags.pm:1.512.2.6	Sun Apr  6 15:37:25 2014
+++ loncom/homework/structuretags.pm	Thu May 15 20:29:26 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.512.2.6 2014/04/06 15:37:25 raeburn Exp $
+# $Id: structuretags.pm,v 1.512.2.7 2014/05/15 20:29:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -414,6 +414,8 @@
         $body_args{'add_entries'}    = \%add_entries;
         if ( $env{'request.state'} eq   'construct') {
             $body_args{'only_body'}  = 1;
+        } elsif ($target eq 'web') {
+            $body_args{'print_suppress'} = 1;
         }
     }
     $body_args{'no_auto_mt_title'} = 1;