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

version 1.18, 2005/04/07 06:56:27 version 1.19, 2006/02/10 21:44:02
Line 50  sub handler { Line 50  sub handler {
   $orgurl.=(($orgurl=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};    $orgurl.=(($orgurl=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
   $orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu';    $orgurl.=(($orgurl=~/\?/)?'&':'?').'wrapperdisplay=menu';
   $url=~s/^\/adm\/wrapper//;    $url=~s/^\/adm\/wrapper//;
     my $is_ext = $url =~ m|^/ext/|;
   $url=~s/^\/ext\//http\:\/\//;    $url=~s/^\/ext\//http\:\/\//;
   $url=~s|:|:|g;    $url=~s|:|:|g;
   if ($env{'form.wrapperdisplay'} eq 'menu') {    if ($env{'form.wrapperdisplay'} eq 'menu') {
Line 72  sub handler { Line 73  sub handler {
 #  #
 # This is not homework  # This is not homework
 #  #
     if ($is_ext) {
         $ENV{'QUERY_STRING'}=~s/(^|\&)symb=[^\&]*/$1/;
     }
   $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};     $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'}; 
                                                  # reappend the query arguments                                                   # reappend the query arguments
   my $events='onLoad="'.&Apache::lonmenu::loadevents.    my $events='onLoad="'.&Apache::lonmenu::loadevents.

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


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