[Koha-cvs] CVS: koha/misc/translator TmplTokenizer.pm,1.28,1.29

[Ambrose C. LI]

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

Modified Files:
	TmplTokenizer.pm 
Log Message:
Ugly hack to avoid screenfuls of spurious warnings about "Possible SGML
closed tag notation"


Index: TmplTokenizer.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/TmplTokenizer.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -r1.28 -r1.29
*** TmplTokenizer.pm	25 Feb 2004 06:49:35 -0000	1.28
--- TmplTokenizer.pm	25 Feb 2004 06:56:42 -0000	1.29
***************
*** 362,367 ****
--- 362,373 ----
  		if ($tail eq '' && $post =~ $re_tmpl_var) {
  		    # Don't bother to show the warning if we're too confused
+ 		    # FIXME. There's no method for _closed_start_tag_warning
+ 		    if (!defined $this->{'_closed_start_tag_warning'}
+ 			|| ($this->{'_closed_start_tag_warning'}->[0] eq $head
+ 			&& $this->{'_closed_start_tag_warning'}->[1] != $this->line_number - 1)) {
  		    warn_normal "Possible SGML \"closed start tag\" notation: $head<\n", $this->line_number
  			    if split(/\n/, $head) < 10;
+ 		    }
+ 		    $this->{'_closed_start_tag_warning'} = [$head, $this->line_number];
  		} else {
  		    ($kind, $it) = (TmplTokenType::TAG, "$head>");