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.37, 2009/11/24 05:37:35
Line 55 sub wrapper {	Line 55 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{'request.course.id'}) &&
$layout{'rows'} = "100,*";	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
	$layout{'rows'} = "135,*";
} else {	} else {
$layout{'rows'} = "200,*";	$layout{'rows'} = "100,*";
}	}
} else {	} else {
$layout{'rows'} = "1,*";	$layout{'rows'} = "1,*";
Line 133 sub handler {	Line 135 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