@@ -, +, @@ --- Koha/SimpleMARC.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) --- a/Koha/SimpleMARC.pm +++ a/Koha/SimpleMARC.pm @@ -28,7 +28,7 @@ our @EXPORT = qw( our $VERSION = '0.01'; -our $debug = 0; +our $debug = 10; =head1 NAME @@ -174,7 +174,7 @@ sub read_field { my @fields = $record->field( $fieldName ); - return @fields unless $subfieldName; + return map { $_->data() } @fields unless $subfieldName; my @subfields; foreach my $field ( @fields ) { --