/[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 563 by dpavlin, Sun Jul 2 18:36:22 2006 UTC
# Line 1  Line 1 
1    # Leader
2    
3    if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
4            marc_leader('05','c');
5    } else {
6            marc_leader('05','n');
7    }
8    
9    marc_leader('06','a');
10    
11    marc_leader('07','m');
12    
13    marc_leader('18','i');
14    
15    if ( rec('230') ) {
16            marc_leader('19','r');
17    }
18    
19    # greška - 000 se ne zapisuje u marc:
20    
21  marc('001',  marc('001',
22          rec('000')          rec('000')
23  );  );
# Line 6  marc('020','a', Line 26  marc('020','a',
26          rec('010')          rec('010')
27  );  );
28    
29    if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
30            marc_indicators('041', 1, ' ');
31    } else {
32            marc_indicators('041', 0, ' ');
33    }
34    
35  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
36          rec('101')          rec('101')
37  );  );
38    
39  marc_indicators('245', 0, 0);  marc_indicators('245', 0, 0);
   
40  marc('245','a',  marc('245','a',
41          rec('200','a')          rec('200','a')
42  );  );
# Line 34  marc('250','a', Line 59  marc('250','a',
59          rec('205','a')          rec('205','a')
60  );  );
61    
62  marc('260','a',  _debug( 2 );
63          rec('210','a')  warn "210a: ",dump( first(rec('210','a' )) );
 );  
64    
65  marc('260','b',  marc_compose('260',
66          rec('210','c')          'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
67            'b', first(rec('210','c')),
68            'a', split_rec_on('210','a', qr/\s*;\s*/, 2),
69            'c', first(rec('210','d')),
70  );  );
71    
72  marc('260','c',  
73          rec('210','d')  _debug( 0 );
 );  
74    
75  marc('300','a',  marc('300','a',
76          rec('215','a')          rec('215','a')
# Line 62  marc('300','e', Line 88  marc('300','e',
88          rec('215','e')          rec('215','e')
89  );  );
90    
91    
92    marc_indicators('490', 1, ' ');
93  marc('490','a',  marc('490','a',
94          join_with(' = ',          join_with(' = ',
95                  rec('225','a'),                  rec('225','a'),
# Line 83  marc('500','a', Line 111  marc('500','a',
111          rec('300')          rec('300')
112  );  );
113    
114    marc('500','a',
115            rec('314')
116    );
117    
118  marc('504','a',  marc('504','a',
119          rec('320')          rec('320')
120  );  );
121    
122    marc('501','a',
123            rec('327')
124    );
125    
126    marc('520','a',
127            rec('330')
128    );
129    
130    # možda i polje 520y - jezik napomene ako je uvijek isti jezik
131    
132  marc_indicators('655', ' ', 4);  marc_indicators('655', ' ', 4);
133  marc('655','a',  marc('655','a',
134            rec('608')
135    );
136    
137    marc_indicators('653', ' ', ' ');
138    marc('653','a',
139          rec('610')          rec('610')
140  );  );
141    
142  marc_indicators('100', 0, ' ');  marc('080','a',
143            rec('675','a')
144    );
145    
146    # podpolja c, d ... - što s njima?
147    
148    marc('084','a',
149            rec('686')
150    );
151    
152    marc_indicators('100', 1, ' ');
153  marc('100','a',  marc('100','a',
154          join_with(', ',          join_with(', ',
155                  rec('700', 'a'),                  rec('700', 'a'),
# Line 100  marc('100','a', Line 157  marc('100','a',
157          )          )
158  );  );
159    
160    
161    marc_indicators('700', 1, ' ');
162  marc('700','a',  marc('700','a',
163          join_with(', ',          join_with(', ',
164                  rec('701', 'a'),                  rec('701', 'a'),
# Line 108  marc('700','a', Line 167  marc('700','a',
167  );  );
168    
169  if ( rec('701') ) {  if ( rec('701') ) {
170          marc('700','4',  marc('700','4',
171                  '070'          'aut'
172          );  );
173  }  }
174    
175  marc('700','a',  marc('700','a',
# Line 120  marc('700','a', Line 179  marc('700','a',
179          )          )
180  );  );
181    
182  if ( rec('702') ) {  # podesiti podpolje 4 na editore nije dobra ideja
183          marc('700','4',  #
184                  '340'  # if ( rec('702') ) {
185          );  #       marc('700','4',
186  }  #               '340'
187    #       );
188    # }
189    
190    if ( rec('710','f') ) {
191    
192    marc_indicators('111', 2, ' ');
193    marc('111','a',
194            rec('710','a')
195    );
196    
197    marc('111','e',
198            rec('710','b')
199    );
200    
201    marc('111','n',
202            rec('710','d')
203    );
204    
205    marc('111','c',
206            rec('710','e')
207    );
208    
209    marc('111','d',
210            rec('710','f')
211    );
212    
213    } else {
214            
215    marc_indicators('110', 2, ' ');
216    marc('110','a',
217            rec('710','a')
218    );
219    
220    marc('110','c',
221            rec('710','c')
222    );
223    
224    }
225    
226    # zapisi za duplanje
227    #
228    # if ( rec('230') ) {
229    #
230    # marc('245','a',
231    #       rec('230','a')
232    # );
233    #
234    # marc('245','b',
235    #       rec('230','e')
236    # );
237    #
238    # marc('245','c',
239    #       rec('230','f')
240    # );
241    #
242    # marc('245','n',
243    #       rec('230','v')
244    # );
245    #
246    # }
Legend:
Removed from v.547  
changed lines
  Added in v.563
  ViewVC Help
Powered by ViewVC 1.1.26