[Koha-cvs] CVS: koha/acqui addorder.pl,1.5,1.6

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv15631/acqui

Modified Files:
        addorder.pl 
Log Message:
newsubtitle called only if title exist


Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** addorder.pl 15 May 2002 02:22:24 -0000      1.5
--- addorder.pl 15 May 2002 07:52:01 -0000      1.6
***************
*** 48,52 ****
                                   itemtype     => $itemtype?$itemtype:"",
                                   isben        => $isbn?$isbn:"" });
!     newsubtitle($bibnum);
      modbiblio({ biblionumber  => $bibnum,
                title         => $title?$title:"",
--- 48,54 ----
                                   itemtype     => $itemtype?$itemtype:"",
                                   isben        => $isbn?$isbn:"" });
!       if ($title) {
!               newsubtitle($bibnum,$title);
!       }
      modbiblio({ biblionumber  => $bibnum,
                title         => $title?$title:"",
***************
*** 59,66 ****
      my $oldtype=$input->param('oldtype');
      if ($bibitemnum eq '' || $itemtype ne $oldtype){
!       $bibitemnum = &newbiblioitem({
!         biblionumber => $bibnum,
!         itemtype     => $itemtype?$itemtype:"",
!         isbn         => $isbn?$isbn:"" });
      }
      &modbiblio({
--- 61,67 ----
      my $oldtype=$input->param('oldtype');
      if ($bibitemnum eq '' || $itemtype ne $oldtype){
!       $bibitemnum= &newbiblioitem({ biblionumber => $bibnum,
!                                                        itemtype => 
$itemtype?$itemtype:"",
!                                                        isben => 
$isbn?$isbn:"" });
      }
      &modbiblio({