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

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

version 1.18, 2005/04/07 06:56:27 version 1.20, 2006/03/19 23:06:00
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.
Line 96  sub handler { Line 100  sub handler {
 <head>  <head>
 $script  $script
 </head>  </head>
 <frameset rows="180,*" border=0 $events>  <frameset rows="180,*" border="0" $events>
 <frame src="$orgurl">  <frame src="$orgurl">
 <frame src="$url">  <frame src="$url">
 </frameset>  </frameset>
Line 111  ENDDOCUMENTINL Line 115  ENDDOCUMENTINL
 <head>  <head>
 $script  $script
 </head>  </head>
 <frameset rows="1,*" border=0 $events>  <frameset rows="1,*" border="0" $events>
 <frame src="/adm/rat/empty.html">  <frame src="/adm/rat/empty.html">
 <frame src="$url">  <frame src="$url">
 </frameset>  </frameset>
Removed from v.1.18  
changed lines
  Added in v.1.20

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