From 3cb2a52918e47c5acd3360ff27b5ac6fa24232a9 Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 26 Apr 2011 17:18:14 +0000
Subject: [PATCH] Protect against errors returned by open-ils.search

If open-ils.search returns an error rather than a result, prevent
authority_control_fields.pl from bombing out completely; instead,
flag the problem in STDERR and move on to the next record.


git-svn-id: svn://svn.open-ils.org/ILS/trunk@20323 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/support-scripts/authority_control_fields.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Open-ILS/src/support-scripts/authority_control_fields.pl b/Open-ILS/src/support-scripts/authority_control_fields.pl
index a7b6b752dc..290d0369b8 100755
--- a/Open-ILS/src/support-scripts/authority_control_fields.pl
+++ b/Open-ILS/src/support-scripts/authority_control_fields.pl
@@ -395,6 +395,12 @@ foreach my $rec_id (@records) {
 
             # print Dumper($validates);
 
+            # Protect against failed (error condition) search request
+            if (!$validates) {
+                print STDERR "Search for matching authority failed; record # $rec_id\n";
+                next;
+            }
+
             if (scalar(@$validates) == 0) {
                 next;
             }
-- 
2.43.2