167 |
|
|
168 |
=cut |
=cut |
169 |
|
|
170 |
my ($out, $marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $leader); |
my ($out, $marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $marc_leader); |
171 |
my ($marc_record_offset, $marc_fetch_offset) = (0, 0); |
my ($marc_record_offset, $marc_fetch_offset) = (0, 0); |
172 |
|
|
173 |
sub _get_ds { |
sub _get_ds { |
184 |
|
|
185 |
sub _clean_ds { |
sub _clean_ds { |
186 |
my $a = {@_}; |
my $a = {@_}; |
187 |
($out,$marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $leader) = (); |
($out,$marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $marc_leader) = (); |
188 |
($marc_record_offset, $marc_fetch_offset) = (0,0); |
($marc_record_offset, $marc_fetch_offset) = (0,0); |
189 |
$marc_encoding = $a->{marc_encoding}; |
$marc_encoding = $a->{marc_encoding}; |
190 |
} |
} |
490 |
my ($offset,$value) = @_; |
my ($offset,$value) = @_; |
491 |
|
|
492 |
if ($offset) { |
if ($offset) { |
493 |
$leader->{ $offset } = $value; |
$marc_leader->{ $offset } = $value; |
494 |
} else { |
} else { |
495 |
return $leader; |
return $marc_leader; |
496 |
} |
} |
497 |
} |
} |
498 |
|
|
1273 |
|
|
1274 |
sub set { |
sub set { |
1275 |
my ($k,$v) = @_; |
my ($k,$v) = @_; |
1276 |
warn "## set ( $k => ", dump($v), " )", $/; |
warn "## set ( $k => ", dump($v), " )", $/ if ( $debug ); |
1277 |
$hash->{$k} = $v; |
$hash->{$k} = $v; |
1278 |
}; |
}; |
1279 |
|
|
1286 |
sub get { |
sub get { |
1287 |
my $k = shift || return; |
my $k = shift || return; |
1288 |
my $v = $hash->{$k}; |
my $v = $hash->{$k}; |
1289 |
warn "## get $k = ", dump( $v ), $/; |
warn "## get $k = ", dump( $v ), $/ if ( $debug ); |
1290 |
return $v; |
return $v; |
1291 |
} |
} |
1292 |
|
|
1299 |
=cut |
=cut |
1300 |
|
|
1301 |
sub count { |
sub count { |
1302 |
warn "## count ",dump(@_),$/; |
warn "## count ",dump(@_),$/ if ( $debug ); |
1303 |
return @_ . ''; |
return @_ . ''; |
1304 |
} |
} |
1305 |
|
|