/[webpac2]/trunk/lib/WebPAC/Normalize.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Normalize.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 922 by dpavlin, Tue Oct 30 20:27:20 2007 UTC revision 923 by dpavlin, Wed Oct 31 00:26:43 2007 UTC
# Line 7  use Exporter 'import'; Line 7  use Exporter 'import';
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
# Line 41  my $debug = 0; Line 41  my $debug = 0;
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    
# Line 478  Define output just for I<display> Line 474  Define output just for I<display>
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>
# Line 493  Prepare values just for I<search> Line 492  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    

Legend:
Removed from v.922  
changed lines
  Added in v.923

  ViewVC Help
Powered by ViewVC 1.1.26