/[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 537 by dpavlin, Thu Jun 29 10:26:12 2006 UTC revision 562 by dpavlin, Sun Jul 2 16:14:41 2006 UTC
# Line 1  Line 1 
1  marc21('001',  marc('001',
2          rec('000')          rec('000')
3  );  );
4    
5  marc21('020','a',  marc('020','a',
6          rec('010')          rec('010')
7  );  );
8    
9  marc21('101','a',  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',
16          rec('101')          rec('101')
17  );  );
18    
19  marc21('245','a',  marc_indicators('245', 0, 0);
20    marc('245','a',
21          rec('200','a')          rec('200','a')
22  );  );
23    
24  marc21('245','b',  marc('245','b',
25          join_with(' : ',          join_with(' : ',
26                  rec('200','d'),                  rec('200','d'),
27                  rec('200','e')                  rec('200','e')
28          )          )
29  );  );
30    
31  marc21('245','c',  marc('245','c',
32          join_with(' ; ',          join_with(' ; ',
33                  rec('200','f'),                  rec('200','f'),
34                  rec('200','g')                  rec('200','g')
35          )          )
36  );  );
37    
38  marc21('250','a',  marc('250','a',
39          rec('205','a')          rec('205','a')
40  );  );
41    
42  marc21('260','a',  _debug( 2 );
43          rec('210','a')  warn "210a: ",dump( first(rec('210','a' )) );
 );  
44    
45  marc21('260','b',  marc_compose('260',
46          rec('210','c')          'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
47            'b', first(rec('210','c')),
48            'a', split_rec_on('210','a', qr/\s*;\s*/, 2),
49            'c', first(rec('210','d')),
50  );  );
51    
 marc21('260','c',  
         rec('210','d')  
 );  
52    
53  marc21('300','a',  _debug( 0 );
54    
55    marc('300','a',
56          rec('215','a')          rec('215','a')
57  );  );
58    
59  marc21('300','b',  marc('300','b',
60          rec('215','c')          rec('215','c')
61  );  );
62    
63  marc21('300','c',  marc('300','c',
64          rec('215','d')          rec('215','d')
65  );  );
66    
67  marc21('300','e',  marc('300','e',
68          rec('215','e')          rec('215','e')
69  );  );
70    
71  marc21('490','a',  
72    marc_indicators('490', 1, ' ');
73    marc('490','a',
74          join_with(' = ',          join_with(' = ',
75                  rec('225','a'),                  rec('225','a'),
76                  join_with(" :  ",                  join_with(" :  ",
# Line 73  marc21('490','a', Line 83  marc21('490','a',
83          )          )
84  );  );
85    
86  marc21('490','v',  marc('490','v',
87          rec('225','v')          rec('225','v')
88  );  );
89    
90  marc21('500','a',  marc('500','a',
91          rec('300')          rec('300')
92  );  );
93    
94  marc21('504','a',  marc('500','a',
95            rec('314')
96    );
97    
98    marc('504','a',
99          rec('320')          rec('320')
100  );  );
101    
102  marc21('655','a',  marc('501','a',
103          rec('610')          rec('327')
104  );  );
105    
106  marc21('500','a',  marc('520','a',
107          rec('300')          rec('330')
108  );  );
109    
110  marc21('504','a',  # možda i polje 520y - jezik napomene ako je uvijek isti jezik
111          rec('320')  
112    marc_indicators('655', ' ', 4);
113    marc('655','a',
114            rec('608')
115  );  );
116    
117  marc21('655','a',  marc_indicators('653', ' ', ' ');
118    marc('653','a',
119          rec('610')          rec('610')
120  );  );
121    
122  marc21('100','a',  marc('080','a',
123            rec('675','a')
124    );
125    
126    # podpolja c, d ... - što s njima?
127    
128    marc('084','a',
129            rec('686')
130    );
131    
132    marc_indicators('100', 1, ' ');
133    marc('100','a',
134          join_with(', ',          join_with(', ',
135                  rec('700', 'a'),                  rec('700', 'a'),
136                  rec('700', 'b')                  rec('700', 'b')
137          )          )
138  );  );
139    
140  marc21('700','a',  
141    marc_indicators('700', 1, ' ');
142    marc('700','a',
143          join_with(', ',          join_with(', ',
144                  rec('701', 'a'),                  rec('701', 'a'),
145                  rec('701', 'b')                  rec('701', 'b')
# Line 116  marc21('700','a', Line 147  marc21('700','a',
147  );  );
148    
149  if ( rec('701') ) {  if ( rec('701') ) {
150          marc21('700','4',  marc('700','4',
151                  '070'          'aut'
152          );  );
153  }  }
154    
155  marc21('700','a',  marc('700','a',
156          join_with(', ',          join_with(', ',
157                  rec('702','a'),                  rec('702','a'),
158                  rec('702','b')                  rec('702','b')
159          )          )
160  );  );
161    
162  if ( rec('702') ) {  # podesiti podpolje 4 na editore nije dobra ideja
163          marc21('700','4',  #
164                  '340'  # if ( rec('702') ) {
165          );  #       marc('700','4',
166    #               '340'
167    #       );
168    # }
169    
170    if ( rec('710','f') ) {
171    
172    marc_indicators('111', 2, ' ');
173    marc('111','a',
174            rec('710','a')
175    );
176    
177    marc('111','e',
178            rec('710','b')
179    );
180    
181    marc('111','n',
182            rec('710','d')
183    );
184    
185    marc('111','c',
186            rec('710','e')
187    );
188    
189    marc('111','d',
190            rec('710','f')
191    );
192    
193    } else {
194            
195    marc_indicators('110', 2, ' ');
196    marc('110','a',
197            rec('710','a')
198    );
199    
200    marc('110','c',
201            rec('710','c')
202    );
203    
204  }  }
205    
206    # zapisi za duplanje
207    
208    if ( rec('230') ) {
209    
210    marc('245','a',
211            rec('230','a')
212    );
213    
214    marc('245','b',
215            rec('230','e')
216    );
217    
218    marc('245','c',
219            rec('230','f')
220    );
221    
222    marc('245','n',
223            rec('230','v')
224    );
225    
226    }
227    
228    
229    
230    
231    
232    
233    
234    
Legend:
Removed from v.537  
changed lines
  Added in v.562
  ViewVC Help
Powered by ViewVC 1.1.26