[Koha-cvs] CVS: koha/misc/translator text-extract2.pl,1.19,1.20

[Ambrose Li]

Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1820

Modified Files:
	text-extract2.pl 
Log Message:
Make sure that if an attribute contains < or >, a warning is given; these
warnings aren't pedantic because (1) if it's a templating directive, it
might expand into something containing a real < and/or >, and (2) if it
contains >, the browser will close the current tag, and (3) if it contains
< and the browser knows what "SGML closed start tags" are (e.g., Mozilla),
the browser will also close the current tag.


Index: text-extract2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/text-extract2.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** text-extract2.pl	14 Feb 2004 05:35:04 -0000	1.19
--- text-extract2.pl	14 Feb 2004 05:46:38 -0000	1.20
***************
*** 83,88 ****
  	warn "Warning: Attribute should be quoted"
  		. (defined $lc? " near line $lc": '') . ": $val_orig\n"
! 		if $pedantic_p
! 		&& $val =~ /[^-\.A-Za-z0-9]/s && $val_orig !~ /^['"]/;
      }
      if ($s =~ /\S/s) { # should never happen
--- 83,90 ----
  	warn "Warning: Attribute should be quoted"
  		. (defined $lc? " near line $lc": '') . ": $val_orig\n"
! 		if $val_orig !~ /^['"]/ && (
! 			($pedantic_p && $val =~ /[^-\.A-Za-z0-9]/s)
! 			|| $val =~ /[<>]/s	# this covers $re_directive, too
! 		    )
      }
      if ($s =~ /\S/s) { # should never happen