[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',