rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.18 and 1.42

-version 1.18, 2005/04/07 06:56:27
+version 1.42, 2012/11/27 23:45:15
  Line 26
  # http://www.lon-capa.org/
  #
  package Apache::lonwrapper;
  use strict;
  use Apache::Constants qw(:common);
+ use Apache::lonenc();
  use Apache::lonnet;
- use Apache::lonxml();
+ use Apache::lonlocal;
- use Apache::lonmenu;
+ use Apache::loncommon();
+ use Apache::lonhtmlcommon();
+ use Apache::lonextresedit();
  # ================================================================ Main Handler
+ sub wrapper {
+     my ($url,$brcrum) = @_;
+     my $forcereg;
+     unless ($env{'form.folderpath'}) {
+         $forcereg = 1;
+     }
+     my $args = {'bgcolor' => '#FFFFFF'};
+     if ($forcereg) {
+         $args->{'force_register'} = $forcereg;
+     }
+     if (ref($brcrum) eq 'ARRAY') {
+          $args->{'bread_crumbs'} = $brcrum;
+     }
+     my $startpage =  Apache::loncommon::start_page('Menu',undef,$args);
+     my $endpage =  Apache::loncommon::end_page();
+     my $script = Apache::lonhtmlcommon::scripttag(<<SCRIPT );
+     \$(document).ready( function() {
+         \$(window).unbind('resize').resize(function(){
+             var header;
+             var offset = 5;
+             var height = 0;
+             var hdrtop = 0;
+             if (\$('div.LC_head_subbox:first').length) {
+                 header = \$('div.LC_head_subbox:first');
+                 offset = 9;
+             } else {
+                 if (\$('#LC_breadcrumbs').length) {
+                     header = \$('#LC_breadcrumbs');
+                 }
+             }
+             if (header.length) {
+                 height = header.height();
+                 hdrtop = header.position().top;
+             }
+             var pos = height + hdrtop + offset;
+             \$('.LC_iframecontainer').css('top', pos);
+         });
+     });
+     window.onload = function(){  \$(window).trigger('resize') };
+ SCRIPT
+     # javascript will position the iframe if window was resized (or zoomed)
+     return <<ENDFRAME;
+     $startpage
+     $script
+     <div class="LC_iframecontainer">
+         <iframe src="$url">No iframe support!</iframe>
+     </div>
+     $endpage
+ ENDFRAME
+ }
  sub handler {
-   my $r=shift;
+     my $r=shift;
-   &Apache::loncommon::content_type($r,'text/html');
+     &Apache::loncommon::content_type($r,'text/html');
-   $r->send_http_header;
+     $r->send_http_header;
-   return OK if $r->header_only;
+     return OK if $r->header_only;
-   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+     my $url = $r->uri;
-                                           ['wrapperdisplay']);
+     my ($is_ext,$brcrum);
-   my $orgurl=$r->uri;
-   my $url=$orgurl;
+     for ($url){
-   $orgurl.=(($orgurl=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
+         s|^/adm/wrapper||;
-   $orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu';
+         $is_ext = $_ =~ s|^/ext/|http://|;
-   $url=~s/^\/adm\/wrapper//;
+         s|http://https://|https://|;
-   $url=~s/^\/ext\//http\:\/\//;
+         s|&colon;|:|g;
-   $url=~s|&colon;|:|g;
+     }
-   if ($env{'form.wrapperdisplay'} eq 'menu') {
- #
+     if ($is_ext) {
- # Producing the menu buttons
+         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- #
+             ['forceedit','register','folderpath','symb','idx','title']);
-       $r->print('<html><body bgcolor="#FFFFFF">'.
+         if (($env{'form.forceedit'}) &&
-                 &Apache::lonmenu::menubuttons(1,'web',1).'</body></html>');
+             (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
-   } else {
+             (($env{'form.folderpath'} =~ /^supplemental/) ||
+              ($env{'form.symb'} =~ /^uploaded/))) {
+             $r->print(
+                 &Apache::lonextresedit::display_editor($url,$env{'form.folderpath'},
+                                                        $env{'form.symb'},
+                                                        $env{'form.idx'}));
+             return OK;
+         } elsif ($env{'form.folderpath'} =~ /^supplemental/) {
+             my $crstype = &Apache::loncommon::course_type();
+             $brcrum =
+                 &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$env{'form.title'},1);
+             if (ref($brcrum) eq 'ARRAY') {
+                 my $last = $env{'form.title'};
+                 if ($last eq '') {
+                     $last = &mt('External Resource');
+                 }
+                 push(@{$brcrum},
+                          {'title' => $last,
+                           'text' => $last,
+                           'no_mt' => 1,
+                          });
+             }
+         }
+     }
  #
  # Actual URL
  #
-       if ($url=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
+     if ($url=~/$LONCAPA::assess_re/) {
  #
  # This is uploaded homework
  #
-           $env{'request.state'}='uploaded';
+         $env{'request.state'}='uploaded';
-           &Apache::lonhomework::renderpage($r,$url);
+         &Apache::lonhomework::renderpage($r,$url);
-       } else {
+     } else {
  #
  # This is not homework
  #
- 	  $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
+         if ($is_ext) {
-                                                  # reappend the query arguments
+             $ENV{'QUERY_STRING'} =~ s/(^|\&)symb=[^\&]*/$1/;
- 	  my $events='onLoad="'.&Apache::lonmenu::loadevents.
+             $ENV{'QUERY_STRING'} =~ s/\&$//;
- 	      '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
+         }
- 	  my $script=&Apache::lonmenu::registerurl(1,undef);
+         unless ($ENV{'QUERY_STRING'} eq '') {
- 	  if ($env{'browser.interface'} eq 'textual') {
+             $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
- #
+         }
- # ssi-based rendering for text-based interface
- #
+         # encrypt url if not external
- 	      $r->print('<html><head>'.
+         &Apache::lonenc::check_encrypt(\$url) if $url !~ /^https?\:/ ;
- 			&Apache::lonmenu::registerurl(1).
- 			'</head><body bgcolor="#FFFFFF">'.
+         $r->print( wrapper($url,$brcrum) );
- 			&Apache::lonmenu::menubuttons(1).
- 			&Apache::lonnet::ssi_body($url).'</body></html>');
+     } # not just the menu
- 	  } elsif ($env{'environment.remote'} eq 'off') {
- #
+     return OK;
- # This is inline remote
- #
- 	      $r->print(<<ENDDOCUMENTINL);
- <html>
- <head>
- $script
- </head>
- <frameset rows="180,*" border=0 $events>
- <frame src="$orgurl">
- <frame src="$url">
- </frameset>
- </html>
- ENDDOCUMENTINL
-           } else {
- #
- # frame-based rendering for graphical interface
- #
- 	  $r->print(<<ENDDOCUMENT);
- <html>
- <head>
- $script
- </head>
- <frameset rows="1,*" border=0 $events>
- <frame src="/adm/rat/empty.html">
- <frame src="$url">
- </frameset>
- </html>
- ENDDOCUMENT
-           }
-       } # not homework
-   } # not just the menu
-   return OK;
  } # handler
 ;
  __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 wrapper($url,$brcrum)
+ Wraps $url in an iframe and generates a page for it.
+ $brcrum contains breadcrumbs for unregistered urls
+ (i.e., external resources in Supplemental Content).
+ Returns markup for the entire page.
+ =item handler()
+ =back
+ =cut

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.18
changed lines
	Added in v.1.42