/[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 543 by dpavlin, Thu Jun 29 21:19:08 2006 UTC revision 544 by dpavlin, Thu Jun 29 21:52:51 2006 UTC
# Line 172  sub _get_marc21_fields { Line 172  sub _get_marc21_fields {
172                  if ($last &&                  if ($last &&
173                          $last->[0] eq $row->[0] &&              # check if field is same                          $last->[0] eq $row->[0] &&              # check if field is same
174                          $last->[1] eq $row->[1] &&              # check for i1                          $last->[1] eq $row->[1] &&              # check for i1
175                          $last->[2] eq $row->[2]                 # and for i2                          $last->[2] eq $row->[2] &&              # and for i2
176                            $last->[3] ne $row->[3]                 # and subfield is different
177                  ) {                  ) {
178                          push @$last, ( $row->[3] , $row->[4] );                          push @$last, ( $row->[3] , $row->[4] );
179                          warn "## ++ added $row->[0] ^$row->[3] to $last->[0]\n";                          warn "## ++ added $row->[0] ^$row->[3] to $last->[0]\n";

Legend:
Removed from v.543  
changed lines
  Added in v.544

  ViewVC Help
Powered by ViewVC 1.1.26