rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.24, 2006/09/29 18:35:42	version 1.29, 2008/11/10 13:22:23
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#

	=pod

	=head1 NAME

	Apache::lonwrapper - External and binary file management.

	=head1 SYNOPSIS

	Wrapper for external and binary files as standalone resources. Edit handler for rat maps; TeX content handler.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head2 Subroutines

	=cut


package Apache::lonwrapper;	package Apache::lonwrapper;

use strict;	use strict;
Line 68 sub wrapper {	Line 86 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 122 sub handler {	Line 144 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\|&colon;\|:\|g;	$url=~s\|&colon;\|:\|g;
#	#
# Actual URL	# Actual URL
Line 152 __END__	Line 175 __END__