[Koha-cvs] CVS: koha/acqui newbiblio.pl,1.2,1.3

[Paul POULAIN]

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

Modified Files:
	newbiblio.pl 
Log Message:
small bugfix : adding bibdata only if exist


Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** newbiblio.pl	12 Mar 2001 23:32:47 -0000	1.2
--- newbiblio.pl	15 May 2002 08:17:59 -0000	1.3
***************
*** 25,29 ****
    $new='yes';
    $ordnum=newordernum;
!   $data=bibdata($biblio);
    if ($data->{'title'} eq ''){
      $data->{'title'}=$title;
--- 25,31 ----
    $new='yes';
    $ordnum=newordernum;
!   if ($biblio) {
!   		$data=bibdata($biblio);
! 	}
    if ($data->{'title'} eq ''){
      $data->{'title'}=$title;