Rage on bad Perl.
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Wed, 29 Feb 2012 23:06:19 +0000 (15:06 -0800)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Wed, 29 Feb 2012 23:06:19 +0000 (15:06 -0800)
Signed-off-by: Robin H. Johnson <rjohnson@sitka.bclibraries.ca>
marc_export_custom/marc_export_custom

index 49a0741..0509b3d 100755 (executable)
@@ -240,7 +240,7 @@ sub export_record {
     $count{bib}++;
     return unless $bib;
     # Return if the bib is deleted
-    return unless ( $bib->deleted eq 'f' || $bib->deleted == 0 );
+    return if ( $bib->deleted eq 't' );
 
     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 unless ( $cn->deleted eq 'f' || $cn->deleted == 0 );
+               next CALLNUMMAP if ( $cn->deleted eq 't' );
 
                 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 unless ( $cp->deleted eq 'f' || $cp->deleted == 0 );
+                   next COPYMAP if ( $cp->deleted eq 't');
 
                     if($cfg){
                         my $thisorg = $orgs{$circlib};