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

Diff for /rat/lonwrapper.pm between versions 1.28.2.1 and 1.34

version 1.28.2.1, 2008/12/21 04:49:58 version 1.34, 2009/10/21 22:46:31
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 52  sub simple_menu { Line 53  sub simple_menu {
 sub wrapper {  sub wrapper {
     my ($topurl,$bottomurl) = @_;      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);      my %layout = ('border' => 0);
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
         if ($env{'environment.icons'} eq 'iconsonly') {          if ($env{'environment.icons'} eq 'iconsonly') {
Line 144  sub handler { Line 131  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'};    $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'}; 
  # reappend the query arguments   # reappend the query arguments
Line 155  sub handler { Line 143  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.2.1  
changed lines
  Added in v.1.34

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