my $escaper = sub {
my $content = shift;
- RT::Interface::Web::EscapeUTF8( \$content );
+ RT::Interface::Web::EscapeHTML( \$content );
return $content;
};
},
url => sub {
my %args = @_;
+ my $post = "";
+ $post = ")" if $args{value} !~ /\(/ and $args{value} =~ s/\)$//;
$args{value} = $escaper->($args{value});
- my $result = qq{[<a target="new" href="$args{value}">}. loc('Open URL') .qq{</a>]};
- return $args{value} . qq{ <span class="clickylink">$result</span>};
+ my $result = qq{[<a target="_blank" href="$args{value}">}. loc('Open URL') .qq{</a>]};
+ return $args{value} . qq{ <span class="clickylink">$result</span>$post};
},
url_overwrite => sub {
my %args = @_;
+ my $post = "";
+ $post = ")" if $args{value} !~ /\(/ and $args{value} =~ s/\)$//;
$args{value} = $escaper->($args{value});
- my $result = qq{<a target="new" href="$args{value}">$args{value}</a>};
- return qq{<span class="clickylink">$result</span>};
+ my $result = qq{<a target="_blank" href="$args{value}">$args{value}</a>};
+ return qq{<span class="clickylink">$result</span>$post};
},
);
}
unless ( $regexp ) {
- RT::Interface::Web::EscapeUTF8( $content ) unless $html;
+ RT::Interface::Web::EscapeHTML( $content ) unless $html;
return;
}
my $pos = 0;
while ( $$content =~ /($regexp)/gsio ) {
my $match = $1;
- next if $` =~ /href=(?:"|")$/;
+ next if $` =~ /\w+=(?:"|")$/;
my $skipped_len = pos($$content) - $pos - length($match);
if ( $skipped_len > 0 ) {
my $plain;