3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
6 |
use blib; |
use lib 'lib'; |
7 |
|
|
8 |
use base 'WebPAC::Common'; |
use base 'WebPAC::Common'; |
9 |
use File::Slurp; |
use File::Slurp; |
135 |
if (@d) { |
if (@d) { |
136 |
$v->{$fld} = [ map { |
$v->{$fld} = [ map { |
137 |
my $sf = $_; |
my $sf = $_; |
138 |
if ( $sf =~ s/!(\*)?$/$1/ ) { |
if ( $sf =~ s/!// ) { |
139 |
$self->{must_exist_sf}->{ $fld }->{ $sf }++; |
$self->{must_exist_sf}->{ $fld }->{ $sf }++; |
140 |
}; |
}; |
141 |
$sf; |
$sf; |
294 |
if ( ref($v->{$sf}) eq 'ARRAY' ) { |
if ( ref($v->{$sf}) eq 'ARRAY' ) { |
295 |
$sf_repeatable->{$sf}++; |
$sf_repeatable->{$sf}++; |
296 |
}; |
}; |
297 |
if (! first { $_ eq $sf } @{ $r->{$f} }) { |
if (! defined first { $_ eq $sf } @{ $r->{$f} }) { |
298 |
$errors->{ $f }->{subfield}->{extra}->{$sf}++; |
$errors->{ $f }->{subfield}->{extra}->{$sf}++; |
299 |
} |
} |
300 |
} |
} |