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

[albertel]

albertel		Mon Nov  8 17:42:20 2004 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  - when in remote mode trying to reduce the amount of headers
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.64 loncom/publisher/lonpubdir.pm:1.65
--- loncom/publisher/lonpubdir.pm:1.64	Fri Oct 29 14:40:40 2004
+++ loncom/publisher/lonpubdir.pm	Mon Nov  8 17:42:20 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.64 2004/10/29 18:40:40 raeburn Exp $
+# $Id: lonpubdir.pm,v 1.65 2004/11/08 22:42:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -91,10 +91,10 @@
   my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
 
   &startpage($r, $uname, $udom, $thisdisfn);   # Put out the start of page.
-
-  &dircontrols($r,$uname,$udom,$thisdisfn);    # Put out actions for directory, 
+  if ($ENV{'environment.remote'} eq 'off') {
+      &dircontrols($r,$uname,$udom,$thisdisfn);    # Put out actions for directory, 
                                                # browse/upload + new file page.
-
+  }
   &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc.
 
   my $numdir = 0;
@@ -203,9 +203,12 @@
                  'this.form.action=this.form.recent.value;this.form.submit()').
               '</form>');
      &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
-
-    $r->print(&Apache::loncommon::bodytag('Construction Space',undef,undef,undef,undef,undef,$pagetitle));
-
+    if ($ENV{'environment.remote'} eq 'off') {
+	$ENV{'request.noversionuri'}=$currdir;
+	$r->print(&Apache::loncommon::bodytag('Construction Space',undef,undef,undef,undef,undef,$pagetitle));
+    } else {
+	$r->print($pagetitle);
+    }
     $r->print(&Apache::loncommon::help_open_menu('','','','',3,'Authoring'));
     my $pubdirscript=(<<ENDPUBDIRSCRIPT);
 <script>