rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.31, 2008/12/19 13:47:40	version 1.32.2.2, 2010/02/11 15:12:11
Line 89 sub wrapper {	Line 89 sub wrapper {
&Apache::loncommon::end_page({'frameset' => 1});	&Apache::loncommon::end_page({'frameset' => 1});

foreach my $url ($topurl,$bottomurl) {	foreach my $url ($topurl,$bottomurl) {
if ($url !~ /^https?:/) {	if ($url !~ /^https?\:/) {
$url = &Apache::lonenc::check_encrypt($url);	$url = &Apache::lonenc::check_encrypt($url);
}	}
}	}
Line 145 sub handler {	Line 145 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