+ indicator(field,nr) nr=1|2 for MARC input -> rec(field,'i1') or rec(field,'i2')
+ validator don't accept 0 as valid subfield
+ subroutines gets mungled in normalization files [2.33]
++ fix marc_template hadling of field value 0
- rewrite WebPAC::Input to be based on Module::Pluggable
- check usage of config in normalize file (database, input name?)
- load_ds/save_ds should use on-disk hash to preserve inodes
foreach my $sf ( @{ $_template->{$name}->{order}->{$template} } ) {
my ( $sf, $nr ) = @$sf;
- my $v = $fill_in->{$sf}->[$nr] || die "can't find fill_in $sf/$nr";
+ my $v = $fill_in->{$sf}->[$nr];
+ die "can't find fill_in $sf/$nr" unless defined $v;
if ( $name eq 'isis') {
( $sf, $nr ) = @{ $from_mapping->{$sf}->[$nr] };
}
use strict;
use blib;
-use Test::More tests => 262;
+use Test::More tests => 325;
BEGIN {
use_ok( 'WebPAC::Test' );
'v' => 'v-8-1',
},{
'v' => 'v-9-1',
+ },{
+ 'v' => '0',
}],
};
[440, "0", "1", "a", "a-7-1"],
[440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"],
[440, "0", "1", "v", "v-9-1"],
+ [440, 0, 1, "v", 0],
];
is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');