My kingdom for people that write sane perl where ->deleted would be true and you...
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Wed, 29 Feb 2012 23:00:49 +0000 (15:00 -0800)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Wed, 29 Feb 2012 23:00:49 +0000 (15:00 -0800)
Signed-off-by: Robin H. Johnson <rjohnson@sitka.bclibraries.ca>
marc_export_custom/marc_export_custom

index b74a2cb..49a0741 100755 (executable)
@@ -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};