[Po4a-commits] "po4a/lib/Locale/Po4a BibTeX.pm,1.2,1.3"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv32567/lib/Locale/Po4a

Modified Files:
	BibTeX.pm 
Log Message:
# type: InProceedingsBeaumont.BCFLMR_06: author
looks weird, I prefer:
# type: author (InProceedingsBeaumont.BCFLMR_06)


Index: BibTeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/BibTeX.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- BibTeX.pm	29 Aug 2006 21:27:30 -0000	1.2
+++ BibTeX.pm	30 Aug 2006 20:00:04 -0000	1.3
@@ -83,7 +83,7 @@
             my $end=(defined $4)?$4:"";
             $self->pushline( $1.$self->translate($3,
                                                  $self->{ref},
-                                                 "$id: $2",
+                                                 "$2 ($id)",
                                                  "wrap" => 1).$end."\n" );
             $field = "";
             $paragraph = "";
@@ -108,7 +108,7 @@
             or $paragraph =~ m/^(\s*)([^ "{].*)(\s*,?\s*)$/s) {
             $self->pushline( $1.$self->translate($2,
                                                  $self->{ref},
-                                                 "$id: $field",
+                                                 "$field ($id)",
                                                  "wrap" => 1).$3);
             $field="";
             $paragraph="";
@@ -120,7 +120,7 @@
             or $paragraph =~ m/^(\s*)(.*)(\s*,?\s*)$/s) {
             $self->pushline( $self->translate($1,
                                               $self->{ref},
-                                              "$id: $field",
+                                              "$field ($id)",
                                               "wrap" => 1).$2);
             $field="";
             $paragraph="";