[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.8,1.9

[Alan Millar]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv14453

Modified Files:
	marcimport.pl 
Log Message:


Add biblio using C4::Acquisitions newbiblio


Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** marcimport.pl	21 May 2002 06:17:48 -0000	1.8
--- marcimport.pl	22 May 2002 06:45:30 -0000	1.9
***************
*** 261,283 ****
  EOF
      } else {
! 	my $q_title=$dbh->quote($input->param('title'));
! 	my $q_subtitle=$dbh->quote($input->param('subtitle'));
! 	my $q_author=$dbh->quote($input->param('author'));
! 	my $q_copyrightdate=$dbh->quote($input->param('copyrightdate'));
! 	my $q_seriestitle=$dbh->quote($input->param('seriestitle'));
! 	$sth=$dbh->prepare("select biblionumber from biblio where title=$q_title and author=$q_author and copyrightdate=$q_copyrightdate and seriestitle=$q_seriestitle");
! 	$sth->execute;
! 	if ($sth->rows) {
! 	    ($biblionumber) = $sth->fetchrow;
! 	} else {
! 	    $sth=$dbh->prepare("select max(biblionumber) from biblio");
! 	    $sth->execute;
! 	    ($biblionumber) = $sth->fetchrow;
! 	    $biblionumber++;
! 	    $sth=$dbh->prepare("insert into biblio (biblionumber, title, author, copyrightdate, seriestitle) values ($biblionumber, $q_title, $q_author, $q_copyrightdate, $q_seriestitle)");
! 	    $sth->execute;
! 	    $sth=$dbh->prepare("insert into bibliosubtitle (biblionumber,subtitle) values ($biblionumber, $q_subtitle)");
! 	    $sth->execute;
! 	}
  	$sth=$dbh->prepare("select max(biblioitemnumber) from biblioitems");
  	$sth->execute;
--- 261,279 ----
  EOF
      } else {
! 	use strict;
! 
! 	# It doesn't exist; add it.
! 
! 	$biblionumber=GetOrAddBiblio($dbh,
! 		{ title		=>$input->param('title'),
! 		 author		=>$input->param('author'),
! 		 copyright	=>$input->param('copyrightdate'),
! 		 seriestitle	=>$input->param('seriestitle'),
! 		 notes		=>$input->param('notes'),
! 		 abstract	=>$input->param('abstract'),
! 		 subtitle	=>$input->param('subtitle'),
! 		}
! 	);
! 
  	$sth=$dbh->prepare("select max(biblioitemnumber) from biblioitems");
  	$sth->execute;
***************
*** 395,398 ****
--- 391,430 ----
  }
  
+ #---------------------------------------
+ # Find a biblio entry, or create a new one if it doesn't exist.
+ sub GetOrAddBiblio {
+ 	use strict;		# in here until rest cleaned up
+ 	# input params
+ 	my (
+ 	  $dbh,		# db handle
+ 	  $biblio,	# hash ref to fields
+ 	)=@_;
+ 
+ 	# return
+ 	my $biblionumber;
+ 
+ 	my $sth;
+ 	
+ 	#-----
+ 	$sth=$dbh->prepare("select biblionumber 
+ 		from biblio 
+ 		where title=? and author=? 
+ 		  and copyrightdate=? and seriestitle=?");
+ 	$sth->execute(
+ 		$biblio->{title}, $biblio->{author}, 
+ 		$biblio->{copyright}, $biblio->{seriestitle} );
+ 	if ($sth->rows) {
+ 	    ($biblionumber) = $sth->fetchrow;
+ 	} else {
+ 	    # Doesn't exist.  Add new one.
+ 	    $biblionumber=&newbiblio($biblio);
+ 	    &newsubtitle($biblionumber,$biblio->{subtitle} );
+ 	}
+ 
+ 	return $biblionumber;
+ 
+ } # sub GetOrAddBiblio
+ #---------------------------------------
+ 
  if ($input->param('newitem')) {
      use strict;
***************
*** 420,423 ****
--- 452,459 ----
              if ( $error ) {
  		print "<font color=red>Error: $error </font><p>\n";
+ 	    } else {
+ 
+ 		print "<font color=green>Item added with barcode $barcode
+ 			</font><P>\n";
              } # if error
      } # if barcode exists