[LON-CAPA-cvs] cvs: loncom(version_0_99_4) /interface londocs.pm

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 02 Sep 2003 18:31:08 -0000


albertel		Tue Sep  2 14:31:08 2003 EDT

  Modified files:              (Branch: version_0_99_4)
    /loncom/interface	londocs.pm 
  Log:
  - backport 1.72
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.69.2.1.2.2 loncom/interface/londocs.pm:1.69.2.1.2.3
--- loncom/interface/londocs.pm:1.69.2.1.2.2	Thu Aug  7 15:12:42 2003
+++ loncom/interface/londocs.pm	Tue Sep  2 14:31:08 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.69.2.1.2.2 2003/08/07 19:12:42 albertel Exp $
+# $Id: londocs.pm,v 1.69.2.1.2.3 2003/09/02 18:31:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -513,7 +513,6 @@
     my $script='';
     my $allowed;
     my $events='';
-    my $buttons='';
     my $showdoc=0;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
        ['folder','foldername']);
@@ -535,7 +534,6 @@
        $script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';
        $events='onLoad="'.&Apache::lonmenu::loadevents.
            '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
-       $buttons=&Apache::lonmenu::menubuttons(1,undef);
     }
 
 # get course data
@@ -648,8 +646,8 @@
   }
 # -------------------------------------------------------------------- Body tag
   $r->print('</head>'.
-            &Apache::loncommon::bodytag('Course Documents','',$events).
-            $buttons);
+            &Apache::loncommon::bodytag('Course Documents','',$events,
+					'','',$showdoc));
   unless ($showdoc) {
     if ($allowed) {
        $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',