JBAS-1437 BS search mod bibs once

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/KCLS/backstage/process-backstage-files.pl b/KCLS/backstage/process-backstage-files.pl
index 27d96dd..bf1aebb 100755 (executable)
--- a/KCLS/backstage/process-backstage-files.pl
+++ b/KCLS/backstage/process-backstage-files.pl
@@ -187,8 +187,12 @@ sub process_zip_file {
 
 # Returns ID's of bib records that have been modified since the export date.
 my @modified_bibs;
+my $mod_searched = 0;
 sub find_modified_bibs {
 
+    return if $mod_searched;
+    $mod_searched = 1;
+
     my $id_arrays = $db_handle->selectall_arrayref(<<"    SQL");
         SELECT id 
         FROM biblio.record_entry 
@@ -209,7 +213,7 @@ sub find_modified_bibs {
 sub handle_modified_bibs {
     my $marc_batch = shift;
 
-    find_modified_bibs() unless @modified_bibs;
+    find_modified_bibs();
 
     while (my $record = $marc_batch->next()) {
         my $bib_id = $record->subfield('901', 'c');