|
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 |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface