64 |
encoding => 'ISO-8859-2', |
encoding => 'ISO-8859-2', |
65 |
recode => 'char pairs', |
recode => 'char pairs', |
66 |
no_progress_bar => 1, |
no_progress_bar => 1, |
67 |
|
input_config => { |
68 |
|
mapping => [ 'foo', 'bar', 'baz' ], |
69 |
|
}, |
70 |
); |
); |
71 |
|
|
72 |
C<module> is low-level file format module. See L<WebPAC::Input::ISIS> and |
C<module> is low-level file format module. See L<WebPAC::Input::ISIS> and |
236 |
|
|
237 |
my $ll_db = $class->new( |
my $ll_db = $class->new( |
238 |
path => $arg->{path}, |
path => $arg->{path}, |
239 |
|
input_config => $arg->{input_config} || $self->{input_config}, |
240 |
# filter => sub { |
# filter => sub { |
241 |
# my ($l,$f_nr) = @_; |
# my ($l,$f_nr) = @_; |
242 |
# return unless defined($l); |
# return unless defined($l); |
531 |
my $o = sprintf("%4s %d ~", $f, $v); |
my $o = sprintf("%4s %d ~", $f, $v); |
532 |
|
|
533 |
if (defined($s->{sf}->{$f})) { |
if (defined($s->{sf}->{$f})) { |
534 |
|
my @subfields = keys %{ $s->{sf}->{$f} }; |
535 |
|
warn "$f has subfields ",dump( @subfields ); |
536 |
map { |
map { |
537 |
$o .= sprintf(" %s:%d%s", $_, |
$o .= sprintf(" %s:%d%s", $_, |
538 |
$s->{sf}->{$f}->{$_}->{count}, |
$s->{sf}->{$f}->{$_}->{count}, |
539 |
$s->{sf}->{$f}->{$_}->{repeatable} ? '*' : '', |
$s->{sf}->{$f}->{$_}->{repeatable} ? '*' : '', |
540 |
); |
); |
541 |
} sort keys %{ $s->{sf}->{$f} }; |
} ( |
542 |
|
# first indicators |
543 |
|
sort( grep( /^i[12]$/, @subfields ) ), |
544 |
|
# then subfileds |
545 |
|
sort( grep( !/^i[12]$/, @subfields ) ), |
546 |
|
); |
547 |
} |
} |
548 |
|
|
549 |
if (my $v_r = $s->{repeatable}->{$f}) { |
if (my $v_r = $s->{repeatable}->{$f}) { |