![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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; |
| } | } |