$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);
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}++;
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};