From d89391dbd8ff4cc77269f453d11871eddd9afadf Mon Sep 17 00:00:00 2001
From: tonnesen <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