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

[Ambrose Li]

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

Modified Files:
        text-extract2.pl 
Log Message:
The fixed search.marc/search.tmpl (nothing between <textarea></textarea>)
caused an eof token to be incorrectly generated by next_token(). This 
is now fixed.


Index: text-extract2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/text-extract2.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** text-extract2.pl    13 Feb 2004 01:48:58 -0000      1.16
--- text-extract2.pl    13 Feb 2004 02:42:06 -0000      1.17
***************
*** 181,185 ****
        }
      } else {
!       for (;;) {
            my $lc_prev = $lc;
            my $next = next_token_internal($h);
--- 181,185 ----
        }
      } else {
!       for ($it = '';;) {
            my $lc_prev = $lc;
            my $next = next_token_internal($h);
***************
*** 192,196 ****
            $it .= $next->[1]; #FIXME
        }
!       $it = [KIND_CDATA, $it] if defined $it; #FIXME
        $cdata_close = undef;
      }
--- 192,196 ----
            $it .= $next->[1]; #FIXME
        }
!       $it = [KIND_CDATA, $it]; #FIXME
        $cdata_close = undef;
      }