UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't absolutify # and mailto hrefs

Browse source
This commit is contained in:
Martin Kamerbeek 2010-11-24 10:32:00 +01:00
parent 4fdc8b1798
commit 80e1f1e0ea
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Mailing/Email.pm
View file

@ -130,8 +130,7 @@ sub absolutifyURIs {
foreach my $link ( @{ $root->extract_links } ) { foreach my $link ( @{ $root->extract_links } ) {
my ($uri, $element, $attr, $tag) = @{ $link }; my ($uri, $element, $attr, $tag) = @{ $link };
if ( $uri !~ m{ ^ (?: [a-z]+:// | \# | mailto: ) }xmsi ) {
if ( $uri !~ m{ ^ [a-z]+:// }xmsi ) {
my $new = my $new =
( $uri =~ m{ ^ / }xmsi ) # Is url absolute? ( $uri =~ m{ ^ / }xmsi ) # Is url absolute?
? $siteUrl . $uri ? $siteUrl . $uri