[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm /publisher lonpubdir.pm

Fri, 20 Apr 2007 01:17:24 -0000

albertel		Thu Apr 19 21:17:24 2007 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
    /loncom/publisher	lonpubdir.pm 
  Log:
   bug#5240, wrong headers in remote mode when clicking list directory
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.529 loncom/interface/loncommon.pm:1.530

--- loncom/interface/loncommon.pm:1.529	Thu Apr 19 20:48:18 2007
+++ loncom/interface/loncommon.pm	Thu Apr 19 21:17:12 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.529 2007/04/20 00:48:18 albertel Exp $
+# $Id: loncommon.pm,v 1.530 2007/04/20 01:17:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3411,9 +3411,7 @@
     my $bodytag = "<body $extra_body_attr>".
 	&Apache::lontexconvert::init_math_support();
 
-    if ($bodyonly 
-	|| ($env{'request.state'} eq 'construct' 
-	    && $env{'environment.remote'} ne 'off' )) {
+    if ($bodyonly) {
         return $bodytag;
     } elsif ($env{'browser.interface'} eq 'textual') {
 # Accessibility
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.101 loncom/publisher/lonpubdir.pm:1.102
--- loncom/publisher/lonpubdir.pm:1.101	Thu Mar  8 20:29:51 2007
+++ loncom/publisher/lonpubdir.pm	Thu Apr 19 21:17:24 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.101 2007/03/09 01:29:51 albertel Exp $
+# $Id: lonpubdir.pm,v 1.102 2007/04/20 01:17:24 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -211,7 +211,8 @@
 						 {'body_title' =>
 						      $pagetitle,}));
     } else {
-	$r->print(&Apache::loncommon::start_page('Construction Space',undef));
+	$r->print(&Apache::loncommon::start_page('Construction Space',undef,
+						 { 'only_body' => 1,}));
 	$r->print($pagetitle);
     }
 



