rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.32.2.2, 2010/02/11 15:12:11	version 1.33, 2009/05/27 16:55:03
Line 53 sub simple_menu {	Line 53 sub simple_menu {
sub wrapper {	sub wrapper {
my ($topurl,$bottomurl) = @_;	my ($topurl,$bottomurl) = @_;

if ($env{'browser.interface'} eq 'textual') {
#
# ssi-based rendering for text-based interface
#
return
&Apache::loncommon::start_page('Menu',undef,
{'bgcolor' => '#FFFFFF',
'force_register' => 1,
}).
&Apache::lonnet::ssi_body($bottomurl).
&Apache::loncommon::end_page();
}


my %layout = ('border' => 0);	my %layout = ('border' => 0);
if ($env{'environment.remote'} eq 'off') {	if ($env{'environment.remote'} eq 'off') {
if ($env{'environment.icons'} eq 'iconsonly') {	if ($env{'environment.icons'} eq 'iconsonly') {
Line 145 sub handler {	Line 131 sub handler {
#	#
if ($is_ext) {	if ($is_ext) {
$ENV{'QUERY_STRING'}=~s/(^\|\&)symb=[^\&]*/$1/;	$ENV{'QUERY_STRING'}=~s/(^\|\&)symb=[^\&]*/$1/;
$ENV{'QUERY_STRING'} =~ s/\&$//;
}	}
unless ($ENV{'QUERY_STRING'} eq '') {	$url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
$url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
}
# reappend the query arguments	# reappend the query arguments
$r->print(&wrapper($orgurl,$url));	$r->print(&wrapper($orgurl,$url));
} # not just the menu	} # not just the menu