Lines 781-787
which is terribly slow.
Link Here
|
781 |
sub _get_marc_mapping_rules { |
781 |
sub _get_marc_mapping_rules { |
782 |
my ($self) = @_; |
782 |
my ($self) = @_; |
783 |
my $marcflavour = lc C4::Context->preference('marcflavour'); |
783 |
my $marcflavour = lc C4::Context->preference('marcflavour'); |
784 |
my $field_spec_regexp = qr/^([0-9]{3})([()0-9a-z]+)?(?:_\/(\d+(?:-\d+)?))?$/; |
784 |
my $field_spec_regexp = qr/^([0-9]{3})([()0-9a-zA-Z]+)?(?:_\/(\d+(?:-\d+)?))?$/; |
785 |
my $leader_regexp = qr/^leader(?:_\/(\d+(?:-\d+)?))?$/; |
785 |
my $leader_regexp = qr/^leader(?:_\/(\d+(?:-\d+)?))?$/; |
786 |
my $rules = { |
786 |
my $rules = { |
787 |
'leader' => [], |
787 |
'leader' => [], |
788 |
- |
|
|