--- loncom/publisher/lonpublisher.pm 2002/01/18 16:48:14 1.72 +++ loncom/publisher/lonpublisher.pm 2002/03/25 17:09:21 1.75 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.72 2002/01/18 16:48:14 albertel Exp $ +# $Id: lonpublisher.pm,v 1.75 2002/03/25 17:09:21 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -326,7 +326,12 @@ sub publish { print $logfile 'URL: '.$tag.':'.$oldurl.' - '. $newurl."\n"; } - $allow{&absoluteurl($newurl,$target)}=1; + if (($newurl !~ /^javascript:/i) && + ($newurl !~ /^mailto:/i) && + ($newurl !~ /^http:/i) && + ($newurl !~ /^\#/)) { + $allow{&absoluteurl($newurl,$target)}=1; + } } last; } @@ -392,8 +397,9 @@ sub publish { $scrout.='
Back to Source'. '