From 6a5b9194d5bf9891895cd6d4f91ebc4661c30506 Mon Sep 17 00:00:00 2001
From: Joshua Ferraro <jmf@liblime.com>
Date: Tue, 12 Feb 2008 18:36:58 -0500
Subject: [PATCH] fixes to indexing process for deleted records

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 etc/koha-conf.xml             | 2 ++
 misc/bin/zebraqueue_daemon.pl | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/etc/koha-conf.xml b/etc/koha-conf.xml
index f60b886c61..1c554e9a61 100644
--- a/etc/koha-conf.xml
+++ b/etc/koha-conf.xml
@@ -31,6 +31,8 @@
      <retrievalinfo>
        <retrieval syntax="usmarc" name="F"/>
        <retrieval syntax="usmarc" name="B"/>
+       <retrieval syntax="xml" name="F"/>
+       <retrieval syntax="xml" name="B"/>
        <retrieval syntax="xml" name="marcxml"
                   identifier="info:srw/schema/1/marcxml-v1.1">
          <backend syntax="usmarc" name="F">
diff --git a/misc/bin/zebraqueue_daemon.pl b/misc/bin/zebraqueue_daemon.pl
index 88b6a6d6b5..bc3f32ca47 100755
--- a/misc/bin/zebraqueue_daemon.pl
+++ b/misc/bin/zebraqueue_daemon.pl
@@ -79,7 +79,7 @@ sub zebraop {
 	while (my $data = $readsth->fetchrow_hashref()){
 		eval {
 		my $ok = 0;
-		if ($data->{'operation'} =~ /delete/ ){
+		if ($data->{'operation'} =~ /delete/i ){
 			# 1st read the record in zebra, we have to get it from zebra as its no longer in the db
 			my $Zconn=C4::Context->Zconn($data->{'server'}, 0, 1,'','xml');
 			my $query = $Zconn->search_pqf( '@attr 1=Local-Number '.$data->{'biblio_auth_number'});
-- 
2.39.2