21 |
split_rec_on |
split_rec_on |
22 |
|
|
23 |
get set |
get set |
24 |
|
count |
25 |
/; |
/; |
26 |
|
|
27 |
use warnings; |
use warnings; |
42 |
|
|
43 |
=head1 VERSION |
=head1 VERSION |
44 |
|
|
45 |
Version 0.25 |
Version 0.26 |
46 |
|
|
47 |
=cut |
=cut |
48 |
|
|
49 |
our $VERSION = '0.25'; |
our $VERSION = '0.26'; |
50 |
|
|
51 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
52 |
|
|
662 |
if ($f eq '*') { |
if ($f eq '*') { |
663 |
|
|
664 |
delete( $marc_record->[ $marc_record_offset ] ); |
delete( $marc_record->[ $marc_record_offset ] ); |
665 |
|
warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1); |
666 |
|
|
667 |
} else { |
} else { |
668 |
|
|
701 |
$marc_record->[ $marc_record_offset ] = $marc; |
$marc_record->[ $marc_record_offset ] = $marc; |
702 |
} |
} |
703 |
|
|
|
|
|
704 |
warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1); |
warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1); |
705 |
} |
} |
706 |
|
|
1290 |
return $v; |
return $v; |
1291 |
} |
} |
1292 |
|
|
1293 |
|
=head2 count |
1294 |
|
|
1295 |
|
if ( count( @result ) == 1 ) { |
1296 |
|
# do something if only 1 result is there |
1297 |
|
} |
1298 |
|
|
1299 |
|
=cut |
1300 |
|
|
1301 |
|
sub count { |
1302 |
|
warn "## count ",dump(@_),$/; |
1303 |
|
return @_ . ''; |
1304 |
|
} |
1305 |
|
|
1306 |
# END |
# END |
1307 |
1; |
1; |