/[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 583 by dpavlin, Wed Jul 5 00:12:08 2006 UTC revision 595 by dpavlin, Mon Jul 10 10:16:11 2006 UTC
# Line 1  Line 1 
1    if ( rec('200','a') ) {
2    
3  # Leader  # Leader
4    #
5    # raspraviti 17,18
6    
7  if ( rec('200','a') ) {  # u nekim knjižnicama koristi se 999a i 999b
8    
9  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
10          marc_leader('05','c');          marc_leader('05','c');
# Line 8  if ( rec('999') && first(rec('999')) =~ Line 12  if ( rec('999') && first(rec('999')) =~
12          marc_leader('05','n');          marc_leader('05','n');
13  }  }
14    
15  marc_leader('06','a');          marc_leader('06','a');
16            marc_leader('07','m');
17  marc_leader('07','m');          marc_leader('18','i');
   
 marc_leader('18','i');  
18    
19  if ( rec('230') ) {  if ( rec('230') ) {
20          marc_leader('19','r');          marc_leader('19','r');
# Line 23  if ( rec('230') ) { Line 25  if ( rec('230') ) {
25    
26  # polje 035 je u NSK ponovljivo. zašto ???  # polje 035 je u NSK ponovljivo. zašto ???
27    
28    # privemeno koristimo 0356 umjesto 0359
29    
30  marc('035','6',  marc('035','6',
31          prefix(          join_with(' ',
32    #               config('input normalize path'),
33                    config('name'),
34                    config('input name'),
35                    config(),
36                    id(),
37                  rec('994','a'),                  rec('994','a'),
38                  rec('000')                  rec('000')
39          )          )
# Line 34  marc('035','6', Line 42  marc('035','6',
42  # u marc 035a treba dodati System Number -  # u marc 035a treba dodati System Number -
43  # NSK zapisuje Voyagerov ID (001) - kako ???  # NSK zapisuje Voyagerov ID (001) - kako ???
44    
45    # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
46    
47  marc('020','a',  marc('020','a',
48          rec('010')          rec('010')
49  );  );
50    
51  # u polje 040a možda još dodati prefiks HR  # u polje 040a možda još dodati prefiks HR
52  # NSK ima HR NSB (možda u novijim zapisima ima NSK)  # NSK ima HR NSB (možda u novijim zapisima ima NSK?)
53    
54  marc('040','a',  marc('040','a',
55          rec('801')          'FFZG'
56  );  );
57    
58  marc('040','b',  marc('040','b',
# Line 61  marc_repeatable_subfield('041','a', Line 71  marc_repeatable_subfield('041','a',
71    
72  marc_indicators('245', 0, 0);  marc_indicators('245', 0, 0);
73    
74    #_debug(3);
75    
76  marc_compose('245',  marc_compose('245',
77          'a', rec('200','a'),          'a', rec('200','a'),
78          'h', rec('200','b'),          'h', rec('200','b'),
# Line 76  marc_compose('245', Line 88  marc_compose('245',
88          ),          ),
89  );  );
90    
91    #_debug(0);
92    
93  # marc('245','a',  # marc('245','a',
94  #       rec('200','a')  #       rec('200','a')
95  # );  # );
# Line 165  marc('504','a', Line 179  marc('504','a',
179    
180  marc_indicators('505', '0', ' ');  marc_indicators('505', '0', ' ');
181  marc('505','a',  marc('505','a',
182          regex('s/\\r\\n\\r\\n|\\r\\n/ ; /g',          regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
183                  rec('327')                  rec('327')
184          )          )
185  );  );
# Line 177  marc('505','a', Line 191  marc('505','a',
191  # FFPS koristi 330 (NP) - sažetak  # FFPS koristi 330 (NP) - sažetak
192    
193  marc('520','a',  marc('520','a',
194          regex('s/\\r\\n\\r\\n|\\r\\n/. /g',          regex('s/[\\r\\n]+/. /g',
195                  rec('330')                  rec('330')
196          )          )
197  );  );
# Line 328  if ( rec('230') ) { Line 342  if ( rec('230') ) {
342  marc_duplicate();  marc_duplicate();
343    
344  marc_remove('245');  marc_remove('245');
345    marc_remove('035','6');
346    
347  marc('245','a',  marc('245','a',
348          rec('230','a')          rec('230','a')
Legend:
Removed from v.583  
changed lines
  Added in v.595
  ViewVC Help
Powered by ViewVC 1.1.26