--- rat/lonwrapper.pm 2006/09/29 18:35:42 1.24 +++ rat/lonwrapper.pm 2008/12/21 04:49:58 1.28.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Wrapper for external and binary files as standalone resources # -# $Id: lonwrapper.pm,v 1.24 2006/09/29 18:35:42 albertel Exp $ +# $Id: lonwrapper.pm,v 1.28.2.1 2008/12/21 04:49:58 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,7 +68,11 @@ sub wrapper { my %layout = ('border' => 0); if ($env{'environment.remote'} eq 'off') { - $layout{'rows'} = "180,*"; + if ($env{'environment.icons'} eq 'iconsonly') { + $layout{'rows'} = "100,*"; + } else { + $layout{'rows'} = "200,*"; + } } else { $layout{'rows'} = "1,*"; $topurl = "/adm/rat/empty.html"; @@ -84,7 +88,7 @@ sub wrapper { &Apache::loncommon::end_page({'frameset' => 1}); foreach my $url ($topurl,$bottomurl) { - if ($url !~ /^http:/) { + if ($url !~ /^https?\:/) { $url = &Apache::lonenc::check_encrypt($url); } } @@ -122,7 +126,8 @@ sub handler { $orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu'; $url=~s/^\/adm\/wrapper//; my $is_ext = $url =~ m|^/ext/|; - $url=~s/^\/ext\//http\:\/\//; + $url=~s{^/ext/}{http://}; + $url=~s|http://https://|https://|; $url=~s|:|:|g; # # Actual URL