/[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 562 by dpavlin, Sun Jul 2 16:14:41 2006 UTC revision 566 by dpavlin, Sun Jul 2 21:17:54 2006 UTC
# Line 7  use Exporter 'import'; Line 7  use Exporter 'import';
7    
8          tag search display          tag search display
9          marc marc_indicators marc_repeatable_subfield          marc marc_indicators marc_repeatable_subfield
10          marc_compose          marc_compose marc_leader
11    
12          rec1 rec2 rec          rec1 rec2 rec
13          regex prefix suffix surround          regex prefix suffix surround
# Line 33  WebPAC::Normalize - describe normalisato Line 33  WebPAC::Normalize - describe normalisato
33    
34  =head1 VERSION  =head1 VERSION
35    
36  Version 0.08  Version 0.09
37    
38  =cut  =cut
39    
40  our $VERSION = '0.08';  our $VERSION = '0.09';
41    
42  =head1 SYNOPSIS  =head1 SYNOPSIS
43    
# Line 357  sub search { Line 357  sub search {
357          $out->{$name}->{search} = \@o;          $out->{$name}->{search} = \@o;
358  }  }
359    
360    =head2 marc_leader
361    
362    Setup fields within MARC leader or get leader
363    
364      marc_leader('05','c');
365      my $leader = marc_leader();
366    
367    =cut
368    
369    sub marc_leader {
370            my ($offset,$value) = @_;
371    
372            if ($offset) {
373                    $out->{' leader'}->{ $offset } = $value;
374            } else {
375                    return $out->{' leader'};
376            }
377    }
378    
379  =head2 marc  =head2 marc
380    
381  Save value for MARC field  Save value for MARC field
# Line 438  sub marc_compose { Line 457  sub marc_compose {
457    
458          while (@_) {          while (@_) {
459                  my $sf = shift or die "marc_compose $f needs subfield";                  my $sf = shift or die "marc_compose $f needs subfield";
460                  my $v = shift or die "marc_compose $f needs value for subfield $sf";                  my $v = shift;
461    
462                  next unless (defined($v) && $v !~ /^\s*$/);                  next unless (defined($v) && $v !~ /^\s*$/);
463                  from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding);                  from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding);
# Line 448  sub marc_compose { Line 467  sub marc_compose {
467    
468          warn "## marc_compose(d) ", dump( $m ) if ($debug > 1);          warn "## marc_compose(d) ", dump( $m ) if ($debug > 1);
469    
470          push @{ $marc_record }, $m;          push @{ $marc_record }, $m if ($#{$m} > 2);
471  }  }
472    
473    
# Line 645  sub split_rec_on { Line 664  sub split_rec_on {
664          my $v = shift @r;          my $v = shift @r;
665          warn "### first rec($fld,$sf) = ",dump($v) if ($debug > 2);          warn "### first rec($fld,$sf) = ",dump($v) if ($debug > 2);
666    
667            return '' if( ! defined($v) || $v =~ /^\s*$/);
668    
669          my @s = split( $regex, $v );          my @s = split( $regex, $v );
670          warn "## split_rec_on($fld,$sf,$regex,$part) = ",dump(@s) if ($debug > 1);          warn "## split_rec_on($fld,$sf,$regex,$part) = ",dump(@s) if ($debug > 1);
671          if ($part > 0) {          if ($part && $part > 0) {
672                  return $s[ $part - 1 ];                  return $s[ $part - 1 ];
673          } else {          } else {
674                  return @s;                  return [ @s ];
675          }          }
676  }  }
677    

Legend:
Removed from v.562  
changed lines
  Added in v.566

  ViewVC Help
Powered by ViewVC 1.1.26