From e021ae45d712f005b91b626efd3c5ff526db8d3b Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 29 Mar 2007 11:54:53 +0000 Subject: [PATCH] Add workaround for Zebra delete-record bug. --- lib/ZOOM/IRSpy.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 0cdb7ed..c4bae34 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.78 2007-03-19 18:52:20 mike Exp $ +# $Id: IRSpy.pm,v 1.79 2007-03-29 11:54:53 mike Exp $ package ZOOM::IRSpy; @@ -257,12 +257,13 @@ sub _really_rewrite_record { my $id = $xc->find("concat(e:serverInfo/e:host, ':', e:serverInfo/e:port, '/', e:serverInfo/e:database)"); - if (0 && $id ne $oldid) { + if ($id ne $oldid) { # Delete old record; warn "IDs differ (old='$oldid' new='$id')"; my $p = $conn->package(); $p->option(action => "recordDelete"); $p->option(recordIdOpaque => $oldid); + $p->option(record => ""); # Work around Zebra bug $p->send("update"); $p->destroy(); } -- 1.7.10.4