/[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 550 by dpavlin, Fri Jun 30 18:48:33 2006 UTC revision 551 by dpavlin, Fri Jun 30 20:43:09 2006 UTC
# Line 168  You can change behaviour of that using C Line 168  You can change behaviour of that using C
168    
169  sub _get_marc_fields {  sub _get_marc_fields {
170    
171            return if (! $marc_record || ref($marc_record) ne 'ARRAY' || $#{ $marc_record } < 0);
172    
173          # first, sort all existing fields          # first, sort all existing fields
174          # XXX might not be needed, but modern perl might randomize elements in hash          # XXX might not be needed, but modern perl might randomize elements in hash
Legend:
Removed from v.550  
changed lines
  Added in v.551
  ViewVC Help
Powered by ViewVC 1.1.26