Diff for /rat/lonpage.pm between versions 1.30 and 1.31

version 1.30, 2001/12/17 00:57:59 version 1.31, 2002/02/14 20:45:16
Line 304  sub handler { Line 304  sub handler {
                               $thisdir=~s/\/[^\/]*$//;                                $thisdir=~s/\/[^\/]*$//;
       foreach (@rlinks) {        foreach (@rlinks) {
   unless (($_=~/^http:\/\//i) ||    unless (($_=~/^http:\/\//i) ||
                                           ($_=~/^\//)) {    ($_=~/^\//) ||
     ($_=~/^javascript:/i) ||
     ($_=~/^mailto:/i) ||
     ($_=~/^\#/)) {
       my $newlocation=        my $newlocation=
     &Apache::lonnet::hreflocation($thisdir,$_);      &Apache::lonnet::hreflocation($thisdir,$_);
                      $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;                       $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;

Removed from v.1.30  
changed lines
  Added in v.1.31


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