View | Details | Raw Unified | Return to bug 8015
Collapse All | Expand All

(-)a/Koha/SimpleMARC.pm (-3 / +2 lines)
Lines 28-34 our @EXPORT = qw( Link Here
28
28
29
our $VERSION = '0.01';
29
our $VERSION = '0.01';
30
30
31
our $debug = 0;
31
our $debug = 10;
32
32
33
=head1 NAME
33
=head1 NAME
34
34
Lines 174-180 sub read_field { Link Here
174
174
175
  my @fields = $record->field( $fieldName );
175
  my @fields = $record->field( $fieldName );
176
176
177
  return @fields unless $subfieldName;
177
  return map { $_->data() } @fields unless $subfieldName;
178
178
179
  my @subfields;
179
  my @subfields;
180
  foreach my $field ( @fields ) {
180
  foreach my $field ( @fields ) {
181
- 

Return to bug 8015