/[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 590 by dpavlin, Wed Jul 5 00:12:08 2006 UTC revision 591 by dpavlin, Sun Jul 9 14:07:10 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    
31  marc('035','6',  marc('035','6',
32          prefix(          join_with(' ',
33    #               config('input normalize path'),
34    #               config('name'),
35    #               config('input name'),
36    #               config(),
37    #               id(),
38                  rec('994','a'),                  rec('994','a'),
39                  rec('000')                  rec('000')
40          )          )
41  );  );
42    
43    
44  # u marc 035a treba dodati System Number -  # u marc 035a treba dodati System Number -
45  # NSK zapisuje Voyagerov ID (001) - kako ???  # NSK zapisuje Voyagerov ID (001) - kako ???
46    
47    # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
48    
49  marc('020','a',  marc('020','a',
50          rec('010')          rec('010')
51  );  );
52    
53  # u polje 040a možda još dodati prefiks HR  # u polje 040a možda još dodati prefiks HR
54  # NSK ima HR NSB (možda u novijim zapisima ima NSK)  # NSK ima HR NSB (možda u novijim zapisima ima NSK?)
55    
56  marc('040','a',  marc('040','a',
57          rec('801')          'FFZG'
58  );  );
59    
60  marc('040','b',  marc('040','b',
# Line 61  marc_repeatable_subfield('041','a', Line 73  marc_repeatable_subfield('041','a',
73    
74  marc_indicators('245', 0, 0);  marc_indicators('245', 0, 0);
75    
76    #_debug(3);
77    
78  marc_compose('245',  marc_compose('245',
79          'a', rec('200','a'),          'a', rec('200','a'),
80          'h', rec('200','b'),          'h', rec('200','b'),
# Line 76  marc_compose('245', Line 90  marc_compose('245',
90          ),          ),
91  );  );
92    
93    #_debug(0);
94    
95  # marc('245','a',  # marc('245','a',
96  #       rec('200','a')  #       rec('200','a')
97  # );  # );
# Line 165  marc('504','a', Line 181  marc('504','a',
181    
182  marc_indicators('505', '0', ' ');  marc_indicators('505', '0', ' ');
183  marc('505','a',  marc('505','a',
184          regex('s/\\r\\n\\r\\n|\\r\\n/ ; /g',          regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
185                  rec('327')                  rec('327')
186          )          )
187  );  );
# Line 177  marc('505','a', Line 193  marc('505','a',
193  # FFPS koristi 330 (NP) - sažetak  # FFPS koristi 330 (NP) - sažetak
194    
195  marc('520','a',  marc('520','a',
196          regex('s/\\r\\n\\r\\n|\\r\\n/. /g',          regex('s/[\\r\\n]+/. /g',
197                  rec('330')                  rec('330')
198          )          )
199  );  );
# Line 328  if ( rec('230') ) { Line 344  if ( rec('230') ) {
344  marc_duplicate();  marc_duplicate();
345    
346  marc_remove('245');  marc_remove('245');
347    marc_remove('035','6');
348    
349  marc('245','a',  marc('245','a',
350          rec('230','a')          rec('230','a')
Legend:
Removed from v.590  
changed lines
  Added in v.591
  ViewVC Help
Powered by ViewVC 1.1.26