rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.34, 2009/10/21 22:46:31	version 1.36, 2009/10/21 23:47:11
Line 56 sub wrapper {	Line 56 sub wrapper {
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') {
$layout{'rows'} = "100,*";	$layout{'rows'} = "140,*";
} else {	} else {
$layout{'rows'} = "200,*";	$layout{'rows'} = "220,*";
}	}
} else {	} else {
$layout{'rows'} = "1,*";	$layout{'rows'} = "1,*";
Line 133 sub handler {	Line 133 sub handler {
$ENV{'QUERY_STRING'}=~s/(^\|\&)symb=[^\&]*/$1/;	$ENV{'QUERY_STRING'}=~s/(^\|\&)symb=[^\&]*/$1/;
$ENV{'QUERY_STRING'} =~ s/\&$//;	$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