Return to lonpage.pm CVS log | Up to [LON-CAPA] / rat |
version 1.90, 2008/12/19 03:50:48 | version 1.91, 2008/12/19 14:30:51 |
---|---|
Line 342 sub handler { | Line 342 sub handler { |
} | } |
$thisdir=~s/\/[^\/]*$//; | $thisdir=~s/\/[^\/]*$//; |
foreach (@rlinks) { | foreach (@rlinks) { |
unless (($_=~/^https?:\/\//i) || | unless (($_=~/^https?\:\/\//i) || |
($_=~/^\//) || | ($_=~/^\//) || |
($_=~/^javascript:/i) || | ($_=~/^javascript:/i) || |
($_=~/^mailto:/i) || | ($_=~/^mailto:/i) || |