/[webpac2]/trunk/conf/normalize/mapping.pl
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/conf/normalize/mapping.pl

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

revision 721 by dpavlin, Tue Sep 5 21:02:39 2006 UTC revision 722 by dpavlin, Fri Sep 29 12:48:07 2006 UTC
# Line 63  if (rec('300') && first(rec('300')) =~ m Line 63  if (rec('300') && first(rec('300')) =~ m
63          marc_indicators('041', 1, ' ');          marc_indicators('041', 1, ' ');
64  } else {  } else {
65          marc_indicators('041', 0, ' ');          marc_indicators('041', 0, ' ');
66  }  };
67    
68  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
69          rec('101')          rec('101')
70  );  );
71    
72  marc_indicators('245', 0, 0);  # marc_indicators('245', 0, 0);
73    
74    if ( rec('700') ) {
75            marc_indicators('245', 1, 0);
76    } else {
77            marc_indicators('245', 0, 0);
78    };
79    
80  #_debug(3);  #_debug(3);
81    
Legend:
Removed from v.721  
changed lines
  Added in v.722
  ViewVC Help
Powered by ViewVC 1.1.26