[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.28 and 1.32.2.2

version 1.28, 2008/03/03 19:57:28 version 1.32.2.2, 2010/02/11 15:12:11
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
   
 package Apache::lonwrapper;  package Apache::lonwrapper;
   
 use strict;  use strict;
Line 88  sub wrapper { Line 89  sub wrapper {
  &Apache::loncommon::end_page({'frameset' => 1});   &Apache::loncommon::end_page({'frameset' => 1});
           
     foreach my $url ($topurl,$bottomurl) {      foreach my $url ($topurl,$bottomurl) {
  if ($url !~ /^http:/) {   if ($url !~ /^https?\:/) {
     $url = &Apache::lonenc::check_encrypt($url);      $url = &Apache::lonenc::check_encrypt($url);
  }   }
     }      }
Line 144  sub handler { Line 145  sub handler {
 #  #
  if ($is_ext) {   if ($is_ext) {
     $ENV{'QUERY_STRING'}=~s/(^|\&)symb=[^\&]*/$1/;      $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   # reappend the query arguments
  $r->print(&wrapper($orgurl,$url));   $r->print(&wrapper($orgurl,$url));
     } # not just the menu      } # not just the menu
Line 155  sub handler { Line 159  sub handler {
 1;  1;
 __END__  __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
   
   
   
   
Removed from v.1.28  
changed lines
  Added in v.1.32.2.2

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