rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.25, 2006/11/30 23:35:38	version 1.28.2.1, 2008/12/21 04:49:58
Line 68 sub wrapper {	Line 68 sub wrapper {

my %layout = ('border' => 0);	my %layout = ('border' => 0);
if ($env{'environment.remote'} eq 'off') {	if ($env{'environment.remote'} eq 'off') {
$layout{'rows'} = "180,*";	if ($env{'environment.icons'} eq 'iconsonly') {
	$layout{'rows'} = "100,*";
	} else {
	$layout{'rows'} = "200,*";
	}
} else {	} else {
$layout{'rows'} = "1,*";	$layout{'rows'} = "1,*";
$topurl = "/adm/rat/empty.html";	$topurl = "/adm/rat/empty.html";
Line 84 sub wrapper {	Line 88 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 !~ /^http:/) {	if ($url !~ /^https?\:/) {
$url = &Apache::lonenc::check_encrypt($url);	$url = &Apache::lonenc::check_encrypt($url);
}	}
}	}
Line 122 sub handler {	Line 126 sub handler {
$orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu';	$orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu';
$url=~s/^\/adm\/wrapper//;	$url=~s/^\/adm\/wrapper//;
my $is_ext = $url =~ m\|^/ext/\|;	my $is_ext = $url =~ m\|^/ext/\|;
$url=~s/^\/ext\//http\:\/\//;	$url=~s{^/ext/}{http://};
$url=~s\|http://https://\|https://\|;	$url=~s\|http://https://\|https://\|;
$url=~s\|&colon;\|:\|g;	$url=~s\|&colon;\|:\|g;
#	#