[Koha-devel] CVS: koha/C4 Acquisitions.pm,1.2,1.3

[Gynn Lomax]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv3623

Modified Files:
        Acquisitions.pm 
Log Message:
Altered newbiblio to be more generic - so can use with new acui.simple
scripts (which are not finished yet).


Index: Acquisitions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Acquisitions.pm     12 Feb 2002 21:07:21 -0000      1.2
--- Acquisitions.pm     10 Apr 2002 05:49:17 -0000      1.3
***************
*** 382,399 ****
  
  sub newbiblio {
!   my ($title,$author,$copyright)address@hidden;
!   my $dbh=C4Connect;
!   my $query="Select max(biblionumber) from biblio";
!   my $sth=$dbh->prepare($query);
    $sth->execute;
!   my $data=$sth->fetchrow_arrayref;
!   my $bibnum=$$data[0];
!   $bibnum++;
    $sth->finish;
!   $query="insert into biblio (biblionumber,title,author,copyrightdate) values
!   ($bibnum,'$title','$author','$copyright')";
!   $sth=$dbh->prepare($query);
  #  print $query;
    $sth->execute;
    $sth->finish;
    $dbh->disconnect;
--- 382,415 ----
  
  sub newbiblio {
!   my ($biblio) = @_;
!   my $dbh    = &C4Connect;
!   my $query  = "Select max(biblionumber) from biblio";
!   my $sth    = $dbh->prepare($query);
    $sth->execute;
!   my $data   = $sth->fetchrow_arrayref;
!   my $bibnum = $$data[0] + 1;
!   my $series = 0;
! 
!   $biblio->{'title'}       = $dbh->quote($biblio->{'title'});
!   $biblio->{'author'}      = $dbh->quote($biblio->{'author'});
!   $biblio->{'copyright'}   = $dbh->quote($biblio->{'copyright'});
!   $biblio->{'seriestitle'} = $dbh->quote($biblio->{'seriestitle'});
!   $biblio->{'notes'}     = $dbh->quote($biblio->{'notes'});
!   if ($biblio->{'seriestitle'}) { $series = 1 };
! 
    $sth->finish;
!   $query = "insert into biblio set
! biblionumber  = $bibnum,
! title         = $biblio->{'title'},
! author        = $biblio->{'author'},
! copyrightdate = $biblio->{'copyright'},
! series        = $series;
! seriestitle   = $biblio->{'seriestitle'},
! notes         = $biblio->{'notes'}";
! 
!   $sth = $dbh->prepare($query);
  #  print $query;
    $sth->execute;
+ 
    $sth->finish;
    $dbh->disconnect;