[Qsos-commits] qsos/libs/perl/QSOS-Document/lib/QSOS Document.pm

[Gonéri Le Bouder]

CVSROOT:        /sources/qsos
Module name:    qsos
Branch:         
Changes by:     Gonéri Le Bouder <address@hidden>      06/05/05 13:28:02

Modified files:
        libs/perl/QSOS-Document/lib/QSOS: Document.pm 

Log message:
        debug print removed
        output clean up

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm.diff?tr1=1.17&tr2=1.18&r1=text&r2=text

Patches:
Index: qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm
diff -u qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm:1.17 
qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm:1.18
--- qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm:1.17      Fri May  5 
10:33:56 2006
+++ qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm   Fri May  5 13:28:02 2006
@@ -1,4 +1,4 @@
-# $Id: Document.pm,v 1.17 2006/05/05 10:33:56 goneri Exp $
+# $Id: Document.pm,v 1.18 2006/05/05 13:28:02 goneri Exp $
 #
 #  Copyright (C) 2006 Atos Origin 
 #
@@ -247,8 +247,7 @@
   carp "file is empty !" unless ($aout);
  
   # minor clean up
-  $aout =~ s!<dates></dates!<dates>\n</dates>!;
-  $aout =~ s!<authors></authors>!<authors>\n</authors>!;
+  $aout =~ s!(\W*)<authors></authors>!$1<authors>\n$1</authors>!;
 
   open XMLOUT,">".$file or carp "can't open $file $!";
   print XMLOUT $aout;
@@ -278,7 +277,6 @@
 
   return unless ($creation);
 
-  print $creation->text()."\n";
   $creation->text();
 
 }