[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));