rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.32, 2008/12/19 14:30:51	version 1.35, 2009/10/21 23:29:10
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/\&$//;
}	}
$url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};	unless ($ENV{'QUERY_STRING'} eq '') {
	$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