Return to lonpage.pm CVS log | Up to [LON-CAPA] / rat |
version 1.89, 2008/11/20 15:19:05 | 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 (($_=~/^http:\/\//i) || | unless (($_=~/^https?\:\/\//i) || |
($_=~/^\//) || | ($_=~/^\//) || |
($_=~/^javascript:/i) || | ($_=~/^javascript:/i) || |
($_=~/^mailto:/i) || | ($_=~/^mailto:/i) || |