[Po4a-commits] po4a/lib/Locale/Po4a TransTractor.pm,1.48,1.49
Martin Quinson
po4a-devel@lists.alioth.debian.org
Mon, 27 Sep 2004 08:32:42 +0000
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv16587
Modified Files:
TransTractor.pm
Log Message:
Allow modules to add automatic comments to the po file
Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- TransTractor.pm 27 Aug 2004 18:16:42 -0000 1.48
+++ TransTractor.pm 27 Sep 2004 08:32:40 -0000 1.49
@@ -757,6 +757,10 @@
The column at which we should wrap (default: 76).
+=item comment
+
+An extra comment to add to the entry.
+
=back
Actions:
@@ -842,9 +846,11 @@
}
}
+ # the comments provided by the modules are automatic comments from the PO point of view
$self->{TT}{po_out}->push('msgid' => $string,
'reference' => $ref,
'type' => $type,
+ 'automatic' => $options{'comment'}||"",
'wrap' => $options{'wrap'}||0,
'wrapcol' => $options{'wrapcol'});