Don't absolutify # and mailto hrefs

2010-11-24 10:32:00 +01:00 · 2010-11-24 10:32:00 +01:00 · 80e1f1e0ea
commit 80e1f1e0ea
parent 4fdc8b1798
1 changed files with 10 additions and 11 deletions
--- a/lib/WebGUI/Mailing/Email.pm
+++ b/lib/WebGUI/Mailing/Email.pm
@ -130,8 +130,7 @@ sub absolutifyURIs {

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