--- rat/lonwrapper.pm 2008/03/03 19:57:28 1.28 +++ rat/lonwrapper.pm 2009/10/21 23:47:11 1.36 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Wrapper for external and binary files as standalone resources # -# $Id: lonwrapper.pm,v 1.28 2008/03/03 19:57:28 www Exp $ +# $Id: lonwrapper.pm,v 1.36 2009/10/21 23:47:11 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,6 +26,7 @@ # http://www.lon-capa.org/ # + package Apache::lonwrapper; use strict; @@ -52,26 +53,12 @@ sub simple_menu { sub wrapper { my ($topurl,$bottomurl) = @_; - if ($env{'browser.interface'} eq 'textual') { -# -# ssi-based rendering for text-based interface -# - return - &Apache::loncommon::start_page('Menu',undef, - {'bgcolor' => '#FFFFFF', - 'force_register' => 1, - }). - &Apache::lonnet::ssi_body($bottomurl). - &Apache::loncommon::end_page(); - } - - my %layout = ('border' => 0); if ($env{'environment.remote'} eq 'off') { if ($env{'environment.icons'} eq 'iconsonly') { - $layout{'rows'} = "100,*"; + $layout{'rows'} = "140,*"; } else { - $layout{'rows'} = "200,*"; + $layout{'rows'} = "220,*"; } } else { $layout{'rows'} = "1,*"; @@ -88,7 +75,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); } } @@ -144,8 +131,11 @@ sub handler { # if ($is_ext) { $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 $r->print(&wrapper($orgurl,$url)); } # not just the menu @@ -155,6 +145,33 @@ sub handler { 1; __END__ +=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. + +=head1 Subroutines + +=over + +=item simple_menu() + +=item wrapper() + +=item handler() + +=back + +=cut +