Lines 70-76
sub _process_tt_content {
Link Here
|
70 |
if $line =~ m{\[%(\s|-|~)*USE raw(\s|-|~)*%\]}; # Does [% Use raw %] exist? |
70 |
if $line =~ m{\[%(\s|-|~)*USE raw(\s|-|~)*%\]}; # Does [% Use raw %] exist? |
71 |
|
71 |
|
72 |
my $e; |
72 |
my $e; |
73 |
if ( $line =~ qr{<a href="([^"]+)} ) { |
73 |
if ( $line =~ qr{<a href="#.*([^"]+)} ) { # it's an href, but tagetting JavaScript usage (like bootstrap) |
|
|
74 |
my $to_uri_escape = $1; |
75 |
while ( |
76 |
$to_uri_escape =~ m{ |
77 |
\[% |
78 |
(?<pre_chomp>(\s|\-|~)*) |
79 |
(?<tt_block>[^%\-~]+) |
80 |
(?<post_chomp>(\s|\-|~)*) |
81 |
%\]}gmxs |
82 |
) |
83 |
{ |
84 |
( $new_line, $e ) = process_tt_block($new_line, { %+, filter => 'html_entity' }); |
85 |
push @errors, { line => $line, line_number => $line_number, error => $e } if $e; |
86 |
} |
87 |
} |
88 |
elsif ( $line =~ qr{<a href="([^"]+)} ) { |
74 |
my $to_uri_escape = $1; |
89 |
my $to_uri_escape = $1; |
75 |
while ( |
90 |
while ( |
76 |
$to_uri_escape =~ m{ |
91 |
$to_uri_escape =~ m{ |
77 |
- |
|
|