[interchange-cvs] interchange - racke modified scripts/localize.PL
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Sat Dec 6 19:11:47 EST 2003
User: racke
Date: 2003-12-07 00:11:47 GMT
Modified: scripts localize.PL
Log:
catches the following syntax now: [msg arg.0=`$CGI->{ui_type}`]Create new
%s[/msg]
Revision Changes Path
2.8 +4 -4 interchange/scripts/localize.PL
rev 2.8, prev_rev 2.7
Index: localize.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/localize.PL,v
retrieving revision 2.7
retrieving revision 2.8
diff -u -r2.7 -r2.8
--- localize.PL 18 Jun 2003 17:34:47 -0000 2.7
+++ localize.PL 7 Dec 2003 00:11:46 -0000 2.8
@@ -3,7 +3,7 @@
#
# Interchange localizer
#
-# $Id: localize.PL,v 2.7 2003/06/18 17:34:47 jon Exp $
+# $Id: localize.PL,v 2.8 2003/12/07 00:11:46 racke Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -312,8 +312,8 @@
while ($data =~ m:\[loc\](\s*[^\[].*?[^\]]\s*)\[/loc\]:gsi) {
write_structure(undef, $1);
}
- while ($data =~ m:\[msg(\s+arg\.\d+=".*?")*\s*\](\s*[^\[].*?[^\]]\s*)\[/msg\]:gsi) {
- write_structure(undef, $2);
+ while ($data =~ m:\[msg(\s+arg\.\d+=(["`]).*?\2)*\s*\](\s*[^\[].*?[^\]]\s*)\[/msg\]:gsi) {
+ write_structure(undef, $3);
}
}
@@ -383,7 +383,7 @@
=head1 VERSION
-# $Id: localize.PL,v 2.7 2003/06/18 17:34:47 jon Exp $
+# $Id: localize.PL,v 2.8 2003/12/07 00:11:46 racke Exp $
=head1 SYNOPSIS
More information about the interchange-cvs
mailing list