/[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 545 by dpavlin, Thu Jun 29 21:53:00 2006 UTC revision 563 by dpavlin, Sun Jul 2 18:36:22 2006 UTC
# Line 1  Line 1 
1  marc21('001',  # 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',
22          rec('000')          rec('000')
23  );  );
24    
25  marc21('020','a',  marc('020','a',
26          rec('010')          rec('010')
27  );  );
28    
29  marc21('101','a',  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',
36          rec('101')          rec('101')
37  );  );
38    
39  marc21('245','a',  marc_indicators('245', 0, 0);
40    marc('245','a',
41          rec('200','a')          rec('200','a')
42  );  );
43    
44  marc21('245','b',  marc('245','b',
45          join_with(' : ',          join_with(' : ',
46                  rec('200','d'),                  rec('200','d'),
47                  rec('200','e')                  rec('200','e')
48          )          )
49  );  );
50    
51  marc21('245','c',  marc('245','c',
52          join_with(' ; ',          join_with(' ; ',
53                  rec('200','f'),                  rec('200','f'),
54                  rec('200','g')                  rec('200','g')
55          )          )
56  );  );
57    
58  marc21('250','a',  marc('250','a',
59          rec('205','a')          rec('205','a')
60  );  );
61    
62  marc21('260','a',  _debug( 2 );
63          rec('210','a')  warn "210a: ",dump( first(rec('210','a' )) );
 );  
64    
65  marc21('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    
 marc21('260','c',  
         rec('210','d')  
 );  
72    
73  marc21('300','a',  _debug( 0 );
74    
75    marc('300','a',
76          rec('215','a')          rec('215','a')
77  );  );
78    
79  marc21('300','b',  marc('300','b',
80          rec('215','c')          rec('215','c')
81  );  );
82    
83  marc21('300','c',  marc('300','c',
84          rec('215','d')          rec('215','d')
85  );  );
86    
87  marc21('300','e',  marc('300','e',
88          rec('215','e')          rec('215','e')
89  );  );
90    
91  marc21('490','a',  
92    marc_indicators('490', 1, ' ');
93    marc('490','a',
94          join_with(' = ',          join_with(' = ',
95                  rec('225','a'),                  rec('225','a'),
96                  join_with(" :  ",                  join_with(" :  ",
# Line 73  marc21('490','a', Line 103  marc21('490','a',
103          )          )
104  );  );
105    
106  marc21('490','v',  marc('490','v',
107          rec('225','v')          rec('225','v')
108  );  );
109    
110  marc21('500','a',  marc('500','a',
111          rec('300')          rec('300')
112  );  );
113    
114  marc21('504','a',  marc('500','a',
115            rec('314')
116    );
117    
118    marc('504','a',
119          rec('320')          rec('320')
120  );  );
121    
122  marc21('655','a',  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);
133    marc('655','a',
134            rec('608')
135    );
136    
137    marc_indicators('653', ' ', ' ');
138    marc('653','a',
139          rec('610')          rec('610')
140  );  );
141    
142  marc21('100','a',  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',
154          join_with(', ',          join_with(', ',
155                  rec('700', 'a'),                  rec('700', 'a'),
156                  rec('700', 'b')                  rec('700', 'b')
157          )          )
158  );  );
159    
160  marc21('700','a',  
161    marc_indicators('700', 1, ' ');
162    marc('700','a',
163          join_with(', ',          join_with(', ',
164                  rec('701', 'a'),                  rec('701', 'a'),
165                  rec('701', 'b')                  rec('701', 'b')
# Line 104  marc21('700','a', Line 167  marc21('700','a',
167  );  );
168    
169  if ( rec('701') ) {  if ( rec('701') ) {
170          marc21('700','4',  marc('700','4',
171                  '070'          'aut'
172          );  );
173  }  }
174    
175  marc21('700','a',  marc('700','a',
176          join_with(', ',          join_with(', ',
177                  rec('702','a'),                  rec('702','a'),
178                  rec('702','b')                  rec('702','b')
179          )          )
180  );  );
181    
182  if ( rec('702') ) {  # podesiti podpolje 4 na editore nije dobra ideja
183          marc21('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.545  
changed lines
  Added in v.563
  ViewVC Help
Powered by ViewVC 1.1.26