[Koha-cvs] CVS: koha/misc/translator TmplTokenType.pm,1.1,1.2 text-extract2.pl,1.37,1.38

[Ambrose Li]

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

Modified Files:
        TmplTokenType.pm text-extract2.pl 
Log Message:
Fixed more bugs during the modularization


Index: TmplTokenType.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/TmplTokenType.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** TmplTokenType.pm    17 Feb 2004 02:45:27 -0000      1.1
--- TmplTokenType.pm    17 Feb 2004 03:02:39 -0000      1.2
***************
*** 40,44 ****
  BEGIN {
      my $new = sub {
!       my $this = shift;
        my $class = ref($this) || $this;
        my $self = {};
--- 40,44 ----
  BEGIN {
      my $new = sub {
!       my $this = 'TmplTokenType';#shift;
        my $class = ref($this) || $this;
        my $self = {};

Index: text-extract2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/text-extract2.pl,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -r1.37 -r1.38
*** text-extract2.pl    17 Feb 2004 02:45:27 -0000      1.37
--- text-extract2.pl    17 Feb 2004 03:02:39 -0000      1.38
***************
*** 34,38 ****
        printf "%s\n", ('-' x 79);
        my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes);
!       printf "%s:\n", $kind;
        printf "%4dH%s\n", length($t),
                join('', map {/[\0-\37]/? $_: "$_\b$_"} split(//, $t));
--- 34,38 ----
        printf "%s\n", ('-' x 79);
        my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes);
!       printf "%s [line %d]:\n", $kind->to_string, $s->line_number;
        printf "%4dH%s\n", length($t),
                join('', map {/[\0-\37]/? $_: "$_\b$_"} split(//, $t));