From d89391dbd8ff4cc77269f453d11871eddd9afadf Mon Sep 17 00:00:00 2001 From: tonnesen Date: Thu, 1 Nov 2001 05:00:41 +0000 Subject: [PATCH] Use MARC controlnumber as a unique identifier for MARC records, in addition to ISBN, ISSN, and LCCN. --- acqui.simple/marcimport.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl index bd98f7ce37..d0bd04bc35 100755 --- a/acqui.simple/marcimport.pl +++ b/acqui.simple/marcimport.pl @@ -87,10 +87,11 @@ if ($input->param('insertnewrecord')) { my $q_origisbn=$dbh->quote($input->param('origisbn')); my $q_origissn=$dbh->quote($input->param('origissn')); my $q_origlccn=$dbh->quote($input->param('origlccn')); + my $q_origcontrolnumber=$dbh->quote($input->param('origcontrolnumber')); my $q_isbn=$dbh->quote((($isbn) || ('NIL'))); my $q_issn=$dbh->quote((($issn) || ('NIL'))); my $q_lccn=$dbh->quote((($lccn) || ('NIL'))); - $sth=$dbh->prepare("insert into marcrecorddone values ($q_origisbn, $q_origissn, $q_origlccn)"); + $sth=$dbh->prepare("insert into marcrecorddone values ($q_origisbn, $q_origissn, $q_origlccn, $q_origcontrolnumber)"); $sth->execute; my $sth=$dbh->prepare("select biblionumber,biblioitemnumber from biblioitems where issn=$q_issn or isbn=$q_isbn or lccn=$q_lccn"); $sth->execute; -- 2.39.5