/[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 547 by dpavlin, Thu Jun 29 23:19:26 2006 UTC revision 549 by dpavlin, Fri Jun 30 10:16:05 2006 UTC
# Line 6  marc('020','a', Line 6  marc('020','a',
6          rec('010')          rec('010')
7  );  );
8    
9    if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
10            marc_indicators('041', 1, ' ');
11    } else {
12            marc_indicators('041', 0, ' ');
13    }
14    
15  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
16          rec('101')          rec('101')
17  );  );
# Line 92  marc('655','a', Line 98  marc('655','a',
98          rec('610')          rec('610')
99  );  );
100    
101  marc_indicators('100', 0, ' ');  marc_indicators('100', 1, ' ');
102  marc('100','a',  marc('100','a',
103          join_with(', ',          join_with(', ',
104                  rec('700', 'a'),                  rec('700', 'a'),
# Line 100  marc('100','a', Line 106  marc('100','a',
106          )          )
107  );  );
108    
109    
110    marc_indicators('700', 1, ' ');
111  marc('700','a',  marc('700','a',
112          join_with(', ',          join_with(', ',
113                  rec('701', 'a'),                  rec('701', 'a'),
Legend:
Removed from v.547  
changed lines
  Added in v.549
  ViewVC Help
Powered by ViewVC 1.1.26