7 |
_debug |
_debug |
8 |
_pack_subfields_hash |
_pack_subfields_hash |
9 |
|
|
10 |
search_display search display |
search_display search display sorted |
11 |
|
|
12 |
marc marc_indicators marc_repeatable_subfield |
marc marc_indicators marc_repeatable_subfield |
13 |
marc_compose marc_leader marc_fixed |
marc_compose marc_leader marc_fixed |
41 |
|
|
42 |
WebPAC::Normalize - describe normalisaton rules using sets |
WebPAC::Normalize - describe normalisaton rules using sets |
43 |
|
|
|
=head1 VERSION |
|
|
|
|
|
Version 0.30 |
|
|
|
|
44 |
=cut |
=cut |
45 |
|
|
46 |
our $VERSION = '0.30'; |
our $VERSION = '0.31'; |
47 |
|
|
48 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
49 |
|
|
474 |
|
|
475 |
=cut |
=cut |
476 |
|
|
477 |
sub display { |
sub _field { |
478 |
my $name = shift or die "display needs name as first argument"; |
my $type = shift or confess "need type -- BUG?"; |
479 |
|
my $name = shift or confess "needs name as first argument"; |
480 |
my @o = grep { defined($_) && $_ ne '' } @_; |
my @o = grep { defined($_) && $_ ne '' } @_; |
481 |
return unless (@o); |
return unless (@o); |
482 |
$out->{$name}->{display} = \@o; |
$out->{$name}->{$type} = \@o; |
483 |
} |
} |
484 |
|
|
485 |
|
sub display { _field( 'display', @_ ) } |
486 |
|
|
487 |
=head2 search |
=head2 search |
488 |
|
|
489 |
Prepare values just for I<search> |
Prepare values just for I<search> |
492 |
|
|
493 |
=cut |
=cut |
494 |
|
|
495 |
sub search { |
sub search { _field( 'search', @_ ) } |
496 |
my $name = shift or die "search needs name as first argument"; |
|
497 |
my @o = grep { defined($_) && $_ ne '' } @_; |
=head2 sorted |
498 |
return unless (@o); |
|
499 |
$out->{$name}->{search} = \@o; |
Insert into lists which will be automatically sorted |
500 |
} |
|
501 |
|
sorted('Title', rec('200','a') ); |
502 |
|
|
503 |
|
=cut |
504 |
|
|
505 |
|
sub sorted { _field( 'sorted', @_ ) } |
506 |
|
|
507 |
|
|
508 |
=head2 marc_leader |
=head2 marc_leader |
509 |
|
|