Debian JP master SVN www commits (rev.589)

[Debian JP webadmin <webadmin@debian.or.jp>]

=======================================================
Repository: /org/svn.debian.or.jp/repos
  Revision: 589
  Commiter: nori
      Date: 2008-03-01 02:23:10 +0900 (土, 01  3月 2008)
=======================================================
Log:

Enable outputting correct reference information to the po files.

Since the Wml module uses the XML module for parsing, it output
reference locations in the temporary files prefiously.


=======================================================
Changed:

U   po4a/lib/Locale/Po4a/Wml.pm

Modified: po4a/lib/Locale/Po4a/Wml.pm
===================================================================
--- po4a/lib/Locale/Po4a/Wml.pm	2008-02-28 08:25:14 UTC (rev 588)
+++ po4a/lib/Locale/Po4a/Wml.pm	2008-02-29 17:23:10 UTC (rev 589)
@@ -135,6 +135,10 @@
                         
       # Get the output po file back
       $self->{TT}{po_out}=$xmlizer->{TT}{po_out};
+      foreach my $msgid (keys %{$self->{TT}{po_out}{po}}) {
+        $self->{TT}{po_out}{po}{$msgid}{'reference'} =~
+           s|$tmp_filename(:\d+)|$filename$1|o;
+      }
       
       # Get the document back (undoing our wml masking)
       $file = join("",@{$xmlizer->{TT}{doc_out}});