[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({