|
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 |
- |
|
|