From 94deaaec47b8998b565b7b5ce5f3ea639adce186 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 24 Nov 2003 17:12:41 +0000
Subject: [PATCH] biblio & item deletion now works fine in MARC editor. Stores
 deleted biblio/item in the marc field of the deletedbiblio/deleteditem table.

---
 acqui.simple/additem.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/acqui.simple/additem.pl b/acqui.simple/additem.pl
index 7bb4bb0b07..7cdbf4089f 100755
--- a/acqui.simple/additem.pl
+++ b/acqui.simple/additem.pl
@@ -95,6 +95,12 @@ if ($op eq "additem") {
 	$itemrecord = MARCgetitem($dbh,$bibid,$itemnum);
 	$nextop="saveitem";
 #------------------------------------------------------------------------------------------------------------------------------
+} elsif ($op eq "delitem") {
+#------------------------------------------------------------------------------------------------------------------------------
+# retrieve item if exist => then, it's a modif
+	&NEWdelitem($dbh,$bibid,$itemnum);
+	$nextop="additem";
+#------------------------------------------------------------------------------------------------------------------------------
 } elsif ($op eq "saveitem") {
 #------------------------------------------------------------------------------------------------------------------------------
 	# rebuild
-- 
2.39.5