[Po4a-commits] po4a/lib/Locale/Po4a TransTractor.pm,1.48,1.49

[Martin Quinson]

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'});