[Koha-cvs] CVS: koha/misc/translator TmplTokenizer.pm,1.12,1.13

[Ambrose C. LI]

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

Modified Files:
        TmplTokenizer.pm 
Log Message:
Try to not display like 40-line warnings too often


Index: TmplTokenizer.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/TmplTokenizer.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** TmplTokenizer.pm    20 Feb 2004 00:39:26 -0000      1.12
--- TmplTokenizer.pm    20 Feb 2004 02:48:39 -0000      1.13
***************
*** 336,340 ****
                my($head, $tail, $post) = ($1, $2, $3);
                if ($tail eq '' && $post =~ $re_tmpl_var) {
!                   warn_normal "Possible SGML \"closed start tag\" notation: 
$head<\n", $this->line_number;
                } else {
                    ($kind, $it) = (TmplTokenType::TAG, "$head>");
--- 336,342 ----
                my($head, $tail, $post) = ($1, $2, $3);
                if ($tail eq '' && $post =~ $re_tmpl_var) {
!                   # Don't bother to show the warning if we're too confused
!                   warn_normal "Possible SGML \"closed start tag\" notation: 
$head<\n", $this->line_number
!                           if split(/\n/, $head) < 10;
                } else {
                    ($kind, $it) = (TmplTokenType::TAG, "$head>");
***************
*** 377,382 ****
        }
      }
!     warn_normal "Unrecognizable token found: $it\n", $this->line_number_start
!           if $kind == TmplTokenType::UNKNOWN;
      return defined $it? (ref $it? $it: TmplToken->new($it, $kind, 
$this->line_number, $this->filename)): undef;
  }
--- 379,386 ----
        }
      }
!     warn_normal "Unrecognizable token found: "
!           . (split(/\n/, $it) < 10? $it: '(too confused to show details)')
!           . "\n", $this->line_number_start
!       if $kind == TmplTokenType::UNKNOWN;
      return defined $it? (ref $it? $it: TmplToken->new($it, $kind, 
$this->line_number, $this->filename)): undef;
  }