version 1.9, 2010/03/10 21:25:50
|
version 1.10.2.1, 2013/04/17 01:30:15
|
Line 47 sub handler {
|
Line 47 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $form; |
|
# ---- Print the screen, pretend to be in text mode to generate text-based menu |
# ---- Print the screen, pretend to be in text mode to generate text-based menu |
# temporarily set interface to "faketextual" and remote to "off", which renders |
# temporarily set interface to "faketextual" and remote to "off", which renders |
# the main menu |
# the main menu |
$env{'browser.interface'}='faketextual'; |
$env{'browser.interface'}='faketextual'; |
|
$env{'environment.remote'}='off'; |
$r->print(&Apache::loncommon::start_page( 'Main Menu', |
$r->print(&Apache::loncommon::start_page( 'Main Menu', |
undef, |
undef, |
{'bread_crumbs' => 1})); |
{'bread_crumbs' => 1})); |
$r->print(&Apache::lonmenu::inlinemenu().$form); |
$r->print(&Apache::lonmenu::inlinemenu()); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |