From 9bb25e413bcfbf8ff7801af00471d5a20638bb23 Mon Sep 17 00:00:00 2001 From: "Robin H. Johnson" Date: Wed, 29 Feb 2012 15:00:49 -0800 Subject: [PATCH] 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 --- marc_export_custom/marc_export_custom | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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}; -- 2.3.6