loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.71, 2003/08/05 12:47:21	version 1.72, 2003/09/02 15:49:42
Line 513 ENDHEADERS	Line 513 ENDHEADERS
my $script='';	my $script='';
my $allowed;	my $allowed;
my $events='';	my $events='';
my $buttons='';
my $showdoc=0;	my $showdoc=0;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folder','foldername']);	['folder','foldername']);
Line 535 ENDHEADERS	Line 534 ENDHEADERS
$script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';	$script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';
$events='onLoad="'.&Apache::lonmenu::loadevents.	$events='onLoad="'.&Apache::lonmenu::loadevents.
'" onUnload="'.&Apache::lonmenu::unloadevents.'"';	'" onUnload="'.&Apache::lonmenu::unloadevents.'"';
$buttons=&Apache::lonmenu::menubuttons(1,undef);
}	}

# get course data	# get course data
Line 648 ENDNEWSCRIPT	Line 646 ENDNEWSCRIPT
}	}
# -------------------------------------------------------------------- Body tag	# -------------------------------------------------------------------- Body tag
$r->print('</head>'.	$r->print('</head>'.
&Apache::loncommon::bodytag('Course Documents','',$events).	&Apache::loncommon::bodytag('Course Documents','',$events,
$buttons);	'','',$showdoc));
unless ($showdoc) {	unless ($showdoc) {
if ($allowed) {	if ($allowed) {
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',	$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',