[vhffs-dev] [2097] (almost) fixed multiple [% %] fields cases

[subversion@xxxxxxxxxxxxx]

Revision: 2097
Author:   gradator
Date:     2012-03-03 00:00:27 +0100 (Sat, 03 Mar 2012)
Log Message:
-----------
(almost) fixed multiple [% %] fields cases

Modified Paths:
--------------
    trunk/vhffs-intl/update-POTFILES.in.pl

Modified: trunk/vhffs-intl/update-POTFILES.in.pl
===================================================================
--- trunk/vhffs-intl/update-POTFILES.in.pl	2012-03-02 21:50:49 UTC (rev 2096)
+++ trunk/vhffs-intl/update-POTFILES.in.pl	2012-03-02 23:00:27 UTC (rev 2097)
@@ -37,9 +37,11 @@
 	open my $tt, '<', $f;
 	my $str;
 	while(<$tt>) {
-		( ($str) = /\[%\s+'([^|]+?)'\s*\|\s*i18n\b/ ) or next;
-		print $strings "# $f:$.\n";
-		print $strings "gettext('$str');\n";
+		foreach( split /%]/ ) {
+			( ($str) = /\[%\s+'([^|]+?)'\s*\|\s*i18n\b/ ) or next;
+			print $strings "# $f:$.\n";
+			print $strings "gettext('$str');\n";
+		}
 	};
 	close $tt;
 }