Return to lonpublisher.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.73, 2002/02/14 22:01:39 | version 1.74, 2002/03/06 22:58:45 |
---|---|
Line 326 sub publish { | Line 326 sub publish { |
print $logfile 'URL: '.$tag.':'.$oldurl.' - '. | print $logfile 'URL: '.$tag.':'.$oldurl.' - '. |
$newurl."\n"; | $newurl."\n"; |
} | } |
$allow{&absoluteurl($newurl,$target)}=1; | if (($newurl !~ /^javascript:/i) && |
($newurl !~ /^mailto:/i) && | |
($newurl !~ /^http:/i) && | |
($newurl !~ /^\#/)) { | |
$allow{&absoluteurl($newurl,$target)}=1; | |
} | |
} | } |
last; | last; |
} | } |