version 1.81, 2003/02/13 23:02:42
|
version 1.82, 2003/02/14 21:22:04
|
Line 81 use GDBM_File;
|
Line 81 use GDBM_File;
|
use POSIX qw(strftime mktime); |
use POSIX qw(strftime mktime); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonmsg(); |
use Apache::lonmsg(); |
|
use Apache::lonmenu(); |
my $readit; |
my $readit; |
|
|
=pod |
=pod |
Line 1582 END
|
Line 1583 END
|
if ($bodyonly) { |
if ($bodyonly) { |
return $bodytag; |
return $bodytag; |
} elsif ($ENV{'browser.interface'} eq 'textual') { |
} elsif ($ENV{'browser.interface'} eq 'textual') { |
return $bodytag.'<h1>LON-CAPA: '.$title. |
return $bodytag.&Apache::lonmenu::menubuttons(undef,'web'). |
'</h1><a href="/adm/menu">Main Menu</a><hr />'; |
'<h1>LON-CAPA: '.$title.'</h1>'; |
} else { |
} else { |
return(<<ENDBODY); |
return(<<ENDBODY); |
$bodytag |
$bodytag |