[Koha-cvs] CVS: koha/misc/translator TmplTokenType.pm,1.1,1.2 text-extract2.pl,1.37,1.38
Ambrose Li
acli at users.sourceforge.net
Tue Feb 17 04:02:41 CET 2004
- Previous message: [Koha-cvs] CVS: koha/misc/translator TmplToken.pm,NONE,1.1 TmplTokenType.pm,NONE,1.1 TmplTokenizer.pm,1.3,1.4 VerboseWarnings.pm,1.1,1.2 text-extract2.pl,1.36,1.37
- Next message: [Koha-cvs] CVS: koha/misc/translator TmplTokenizer.pm,1.4,1.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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));
- Previous message: [Koha-cvs] CVS: koha/misc/translator TmplToken.pm,NONE,1.1 TmplTokenType.pm,NONE,1.1 TmplTokenizer.pm,1.3,1.4 VerboseWarnings.pm,1.1,1.2 text-extract2.pl,1.36,1.37
- Next message: [Koha-cvs] CVS: koha/misc/translator TmplTokenizer.pm,1.4,1.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Koha-cvs
mailing list