From: Robin H. Johnson <rjohnson@sitka.bclibraries.ca>
Date: Wed, 29 Feb 2012 23:00:49 +0000 (-0800)
Subject: My kingdom for people that write sane perl where ->deleted would be true and you... 
X-Git-Url: https://git.sitka.bclibraries.ca/gitweb/?p=sitka%2Fsitka-tools.git;a=commitdiff_plain;h=9bb25e413bcfbf8ff7801af00471d5a20638bb23

My kingdom for people that write sane perl where ->deleted would be true and you don't have to check for t/f/0 seperately.

Signed-off-by: Robin H. Johnson <rjohnson@sitka.bclibraries.ca>
---

diff --git a/marc_export_custom/marc_export_custom b/marc_export_custom/marc_export_custom
index b74a2cb..49a0741 100755
--- a/marc_export_custom/marc_export_custom
+++ b/marc_export_custom/marc_export_custom
@@ -240,7 +240,7 @@ sub export_record {
     $count{bib}++;
     return unless $bib;
     # Return if the bib is deleted
-    return if $bib->deleted;
+    return unless ( $bib->deleted eq 'f' || $bib->deleted == 0 );
 
     if ($format eq 'ARE' or $format eq 'BRE') {
         print $outfh OpenSRF::Utils::JSON->perl2JSON($bib);
@@ -448,7 +448,7 @@ sub add_bib_holdings {
                 my $cn_map_list = $cn_map{$cn->id};
 		    
 		# Ignore deleted copies
-		next CALLNUMMAP if $cn->deleted;
+		next CALLNUMMAP unless ( $cn->deleted eq 'f' || $cn->deleted == 0 );
 
                 COPYMAP: for my $cp ( @$cn_map_list ) {
                     $count{cp}++;
@@ -459,7 +459,7 @@ sub add_bib_holdings {
                     my $printlib = $cp->circ_lib;
 
 		    # Ignore deleted copies
-		    next COPYMAP if $cp->deleted;
+		    next COPYMAP unless ( $cp->deleted eq 'f' || $cp->deleted == 0 );
 
                     if($cfg){
                         my $thisorg = $orgs{$circlib};