/[webpac2]/trunk/conf/normalize/ff-libri.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/ff-libri.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 758 by dpavlin, Wed Oct 25 11:02:36 2006 UTC revision 773 by dpavlin, Fri Nov 3 20:41:12 2006 UTC
# Line 1  Line 1 
1    # ne konvertira se ako nema polje 200^a
2    
3  if ( rec('200','a') ) {  if ( rec('200','a') ) {
4    
5  # Leader  # Leader
6  # raspraviti 17,18  # raspraviti 17,18
7    #
8  # u nekim knjižnicama koristi se 999a i 999b  # u nekim knjižnicama koristi se 999a i 999b
9    #
   
10  # vrijedi za ffan...  # vrijedi za ffan...
11    
12  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
# Line 22  if ( rec('230') ) { Line 23  if ( rec('230') ) {
23          marc_leader('19','r');          marc_leader('19','r');
24  }  }
25    
   
26  # 001 polje - Voyager  # 001 polje - Voyager
27    #
28  # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku  # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku
29    # u marc 035a - System Number - ??
30    # NSK zapisuje Voyagerov ID (001) - kako ???
31    
32    
33  marc('035','6',  marc('035','6',
34  join_with('',  join_with('',
# Line 40  join_with('', Line 43  join_with('',
43          )          )
44  );  );
45    
 # u marc 035a treba dodati System Number -  
 # NSK zapisuje Voyagerov ID (001) - kako ???  
46    
47  # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '  # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
48    
# Line 49  marc('020','a', Line 50  marc('020','a',
50          rec('10')          rec('10')
51  );  );
52    
53  # u polje 040a možda još dodati prefiks HR  
54    # u polje 040a - prefiks HR ?
55  # NSK ima HR NSB (možda u novijim zapisima ima NSK?)  # NSK ima HR NSB (možda u novijim zapisima ima NSK?)
56    
57  marc('040','a',  marc('040','a',
# Line 64  marc('040','e', Line 66  marc('040','e',
66          'HR PPIAK'          'HR PPIAK'
67  );  );
68    
69  if (rec('300') && first(rec('300')) =~ m/Prijevod/) {  if ( rec('300') && first(rec('300')) =~ m/Prijevod/) {
70          marc_indicators('041', 1, ' ');          marc_indicators('041', 1, ' ');
71  } else {  } else {
72          marc_indicators('041', 0, ' ');          marc_indicators('041', 0, ' ');
73  }  }
74    
75  ## naci primjer u NSK  ## naći primjer u NSK
76    
77  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
78          rec('101')          rec('101')
79  );  );
80    
81    # indikatori za članove. treba uvjetovati prema jezicima !!
82    
83  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('200','a') =~ m/^Die /) ||
84          ( rec('200','a') =~ m/^Das /) ||          ( rec('200','a') =~ m/^Das /) ||
# Line 143  marc('250','b', Line 146  marc('250','b',
146  );  );
147    
148  # ponovljiva potpolja u originalnom redosljedu  # ponovljiva potpolja u originalnom redosljedu
149  #  
150  marc_original_order('260', '210');  marc_original_order('260', '210');
151    
152    
# Line 227  marc('500','a', Line 230  marc('500','a',
230  );  );
231    
232  marc('500','a',  marc('500','a',
233            rec('305')
234    );
235    
236    marc('500','a',
237            rec('307')
238    );
239    
240    marc('500','a',
241          rec('314')          rec('314')
242  );  );
243    
# Line 241  marc('504','a', Line 252  marc('504','a',
252    
253  ## FFPS 327 - sadrzaj  ## FFPS 327 - sadrzaj
254  if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) {  if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) {
255          marc_indicators('505', '1', ' ');          marc_indicators('505', '0', ' ');
256          marc('505','a',          marc('505','a',
257                  regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',                  regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
258                          rec('327')                          rec('327')
# Line 270  if ( config() =~ m/fftu/ ) { Line 281  if ( config() =~ m/fftu/ ) {
281          );          );
282  }  }
283    
284    marc('538','a',
285            rec('337','a')
286    );
287    
288    
289  # možda i polje 520y - jezik napomene ako je uvijek isti jezik  # možda i polje 520y - jezik napomene ako je uvijek isti jezik
290    
# Line 603  if ( rec('230') ) { Line 618  if ( rec('230') ) {
618    
619  };  };
620    
621    marc_indicators('776', 0, ' ');
622    
623    marc('776','a',
624            rec('452','1')
625    );
626    
627    marc('900','a',
628            lookup(
629                    sub { rec('000') },
630                    'ffps','libri',
631                    sub { rec('200','a') },
632            )
633    );
634    
635    marc('901','a',
636            lookup(
637                    sub { 'NSK' },
638                    'nsk','baza',
639                    sub { rec('200','a') },
640            )
641    );
642    
643  }  }
Legend:
Removed from v.758  
changed lines
  Added in v.773
  ViewVC Help
Powered by ViewVC 1.1.26