--- rat/lonwrapper.pm 2006/03/19 23:06:00 1.20
+++ rat/lonwrapper.pm 2009/05/27 16:55:03 1.33
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Wrapper for external and binary files as standalone resources
#
-# $Id: lonwrapper.pm,v 1.20 2006/03/19 23:06:00 albertel Exp $
+# $Id: lonwrapper.pm,v 1.33 2009/05/27 16:55:03 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -26,110 +26,149 @@
# http://www.lon-capa.org/
#
+
package Apache::lonwrapper;
use strict;
use Apache::Constants qw(:common);
use Apache::lonnet;
use Apache::lonxml();
-use Apache::lonmenu;
+use Apache::lonenc();
+use Apache::lonmenu();
# ================================================================ Main Handler
-sub handler {
- my $r=shift;
- &Apache::loncommon::content_type($r,'text/html');
- $r->send_http_header;
-
- return OK if $r->header_only;
-
- &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['wrapperdisplay']);
- my $orgurl=$r->uri;
- my $url=$orgurl;
- $orgurl.=(($orgurl=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
- $orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu';
- $url=~s/^\/adm\/wrapper//;
- my $is_ext = $url =~ m|^/ext/|;
- $url=~s/^\/ext\//http\:\/\//;
- $url=~s|:|:|g;
- if ($env{'form.wrapperdisplay'} eq 'menu') {
+sub simple_menu {
#
# Producing the menu buttons
#
- $r->print(''.
- &Apache::lonmenu::menubuttons(1,'web',1).'');
- } else {
+ return &Apache::loncommon::start_page('Menu',undef,
+ {'only_body' => 1,
+ 'bgcolor' => '#FFFFFF',}).
+ &Apache::lonmenu::menubuttons(1,'web',1).
+ &Apache::loncommon::end_page();
+}
+
+
+sub wrapper {
+ my ($topurl,$bottomurl) = @_;
+
+ my %layout = ('border' => 0);
+ if ($env{'environment.remote'} eq 'off') {
+ if ($env{'environment.icons'} eq 'iconsonly') {
+ $layout{'rows'} = "100,*";
+ } else {
+ $layout{'rows'} = "200,*";
+ }
+ } else {
+ $layout{'rows'} = "1,*";
+ $topurl = "/adm/rat/empty.html";
+ }
+
+ my $start_page =
+ &Apache::loncommon::start_page(undef,undef,
+ {'force_register' => 1,
+ 'frameset' => 1,
+ 'add_entries' => \%layout, });
+
+ my $end_page =
+ &Apache::loncommon::end_page({'frameset' => 1});
+
+ foreach my $url ($topurl,$bottomurl) {
+ if ($url !~ /^https?\:/) {
+ $url = &Apache::lonenc::check_encrypt($url);
+ }
+ }
+#
+# frame-based rendering for graphical interface
+#
+ my $result =<
+
+$end_page
+ENDDOCUMENT
+
+ return $result;
+}
+
+sub handler {
+ my $r=shift;
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->send_http_header;
+
+ return OK if $r->header_only;
+
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['wrapperdisplay']);
+ if ($env{'form.wrapperdisplay'} eq 'menu') {
+ $r->print(&simple_menu());
+ return OK;
+ }
+
+ my $orgurl=$r->uri;
+ my $url=$orgurl;
+ $orgurl.=(($orgurl=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
+ $orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu';
+ $url=~s/^\/adm\/wrapper//;
+ my $is_ext = $url =~ m|^/ext/|;
+ $url=~s{^/ext/}{http://};
+ $url=~s|http://https://|https://|;
+ $url=~s|:|:|g;
#
# Actual URL
#
- if ($url=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
+ if ($url=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
#
# This is uploaded homework
#
- $env{'request.state'}='uploaded';
- &Apache::lonhomework::renderpage($r,$url);
- } else {
+ $env{'request.state'}='uploaded';
+ &Apache::lonhomework::renderpage($r,$url);
+ } else {
#
# This is not homework
#
- if ($is_ext) {
- $ENV{'QUERY_STRING'}=~s/(^|\&)symb=[^\&]*/$1/;
- }
- $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
- # reappend the query arguments
- my $events='onLoad="'.&Apache::lonmenu::loadevents.
- '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
- my $script=&Apache::lonmenu::registerurl(1,undef);
-
- if ($env{'browser.interface'} eq 'textual') {
-#
-# ssi-based rendering for text-based interface
-#
- $r->print(''.
- &Apache::lonmenu::registerurl(1).
- ''.
- &Apache::lonmenu::menubuttons(1).
- &Apache::lonnet::ssi_body($url).'');
- } elsif ($env{'environment.remote'} eq 'off') {
-#
-# This is inline remote
-#
- $r->print(<
-
-$script
-
-
-