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

Diff for /rat/lonpage.pm between versions 1.16 and 1.19

version 1.16, 2000/11/06 18:48:56 version 1.19, 2000/11/14 15:44:05
Line 5 Line 5
 #  #
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,  # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
 # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6 Gerd Kortemeyer  # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14 Gerd Kortemeyer
   
 package Apache::lonpage;  package Apache::lonpage;
   
Line 262  sub handler { Line 262  sub handler {
   $nforms++;    $nforms++;
                                   $output=~s/\<form[^\>]*\>//gsi;                                    $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;                                    $output=~s/\<\/form[^\>]*\>//gsi;
                                     $output=~
         s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                               }                                }
                               $thisdir=~s/\/[^\/]*$//;                                $thisdir=~s/\/[^\/]*$//;
       map {        map {
Line 274  sub handler { Line 276  sub handler {
       } @rlinks;        } @rlinks;
                      $output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi;                       $output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi;
       $ssibody{$_}=$output;        $ssibody{$_}=$output;
   # ------------------------------------------------------------- Any parameters?
                                 if ($hash{'param_'.$_}) {
     my ($mapid,$resid)=split(/\./,$_);
                                     &Apache::lonnet::appendparms(
    &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
                           '___'.$resid.'___'.&Apache::lonnet::declutter($src),
         $hash{'param_'.$_});
                                 }
   
 # ---------------------------------------------------------------- End SSI cell  # ---------------------------------------------------------------- End SSI cell
                           }                            }
                       } @colcont;                        } @colcont;
Removed from v.1.16  
changed lines
  Added in v.1.19

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