biblio & item deletion now works fine in MARC editor.

Stores deleted biblio/item in the marc field of the deletedbiblio/deleteditem table.

diff --git a/acqui.simple/additem.pl b/acqui.simple/additem.pl
index 7bb4bb0..7cdbf40 100755 (executable)
--- 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