Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Make a reasonable suggestion for ESCAPE= if we warn about lack of it

Browse source
This commit is contained in:
acli 2004-02-14 09:33:09 +00:00
parent 3fd0a52e0a
commit f7b649f41b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
misc/translator/text-extract2.pl
View file

@ -107,8 +107,9 @@ sub extract_attributes ($;$) {
warn "Warning: TMPL_INCLUDE in attribute"
. (defined $lc? " near line $lc": '') . ": $val_orig\n";
} elsif ($val =~ /$re_tmpl_var/os && $val !~ /$re_tmpl_var_escaped/os) {
my $suggest = ($key =~ /^(?:action|archive|background|cite|classid|codebase|data|datasrc|for|href|longdesc|profile|src|usemap)$/? 'URL': 'HTML');
warn_pedantic \$pedantic_tmpl_var_use_in_nonpedantic_mode_p,
"Unescaped TMPL_VAR in attribute"
"Suggest ESCAPE=$suggest for TMPL_VAR in attribute \"$key\""
. (defined $lc? " near line $lc": '') . ": $val_orig"
if $pedantic_p || !$pedantic_tmpl_var_use_in_nonpedantic_mode_p;
} elsif ($val_orig !~ /^['"]/) {