Lines 815-821
which is terribly slow.
Link Here
|
815 |
sub _get_marc_mapping_rules { |
815 |
sub _get_marc_mapping_rules { |
816 |
my ($self) = @_; |
816 |
my ($self) = @_; |
817 |
my $marcflavour = lc C4::Context->preference('marcflavour'); |
817 |
my $marcflavour = lc C4::Context->preference('marcflavour'); |
818 |
my $field_spec_regexp = qr/^([0-9]{3})([()0-9a-z]+)?(?:_\/(\d+(?:-\d+)?))?$/; |
818 |
my $field_spec_regexp = qr/^([0-9]{3})([()0-9a-zA-Z]+)?(?:_\/(\d+(?:-\d+)?))?$/; |
819 |
my $leader_regexp = qr/^leader(?:_\/(\d+(?:-\d+)?))?$/; |
819 |
my $leader_regexp = qr/^leader(?:_\/(\d+(?:-\d+)?))?$/; |
820 |
my $rules = { |
820 |
my $rules = { |
821 |
'leader' => [], |
821 |
'leader' => [], |
822 |
- |
|
|