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

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

revision 795 by dpavlin, Sun Feb 4 12:37:42 2007 UTC revision 824 by dpavlin, Fri May 18 20:27:21 2007 UTC
# Line 29  if ($series) { Line 29  if ($series) {
29  } else {  } else {
30    
31    
32  $series = join_with(' ',  $series = join_with('',
33          config(),          config(),
34          'LS',          'LS',
35          rec('000')          rec('000')
36  );  );
37    
38  set( $series_key => $series );  #set( $series_key => $series );
39    
40  # Leader  # Leader
41  marc_leader('05','n');  marc_leader('05','n');
42  marc_leader('06','a');  marc_leader('06','a');
43  marc_leader('07','c');  marc_leader('07','s');
44  marc_leader('18','i');  marc_leader('18','i');
45    
46    ## 008
47    
48    marc_fixed('008',00,
49            '070401'
50    );
51    
52    marc_fixed('008','35',
53            first( lc( rec('101') ) )
54    );
55    
56    marc('022','a',
57            rec('225','x')
58    );
59    
60  marc('035','6', $series );  marc('035','6', $series );
61    
62  marc('040','a',  marc('040','a',
# Line 63  marc_repeatable_subfield('041','a', Line 77  marc_repeatable_subfield('041','a',
77          rec('101')          rec('101')
78  );  );
79    
80  # indikatori za članove !!  # indikatori za 245
81    
82  marc_indicators('245', 0, 0);  my $i1;
83    
84  if (    ( rec('225','a') =~ m/^Die /) ||  if ( rec('700') || rec('710') ) {
85          ( rec('225','a') =~ m/^Das /) ||          $i1 = 1;
         ( rec('225','a') =~ m/^The /) ) {  
                 marc_indicators('245', 0, 4);  
 }  
86    
87  if (    ( rec('225','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )  } else {
88          {          $i1 = 0;
89                  marc_indicators('245', 0, 2);  }
90            
91    marc_indicators('245', $i1, 0);
92    
93    if (    ( rec('200','a') =~ m/^Die /) ||
94            ( rec('200','a') =~ m/^Das /) ||
95            ( rec('200','a') =~ m/^The /) ) {
96                    marc_indicators('245', $i1, 4);
97  }  }
98    
99  # treba dodati ostala polja za naslov ... !!!  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
100                    marc_indicators('245', $i1, 2);
101    }
102    
103  marc('245','a',  if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
104          join_with(' : ',                  marc_indicators('245', $i1, 2);
105                  rec('225','a'),  }
                 rec('225','e')  
         ),  
 );  
106    
 marc('245','c',  
         rec('225','f')  
 );  
107    
108  marc('245','n',  ## 245
         rec('225','h'),  
 );  
109    
110  marc('245','p',  marc_compose('245',
111          rec('225','i'),          'a', suffix(
112                    ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :  
113                    ( rec('225','p') && rec('225','c') ) ? ' : '  :
114                            '',
115                            first(rec('225','a')),
116            ),
117            'b', suffix(
118                    ( rec('225','p') && rec('225','f') ) ? ' / ' :
119                    ( rec('225','p') && rec('225','c') ) ? '. '  :
120                            '',
121                            rec('225','p'),
122            ),
123            'c', suffix(
124                    ( rec('225','f') && rec('225','c') ) ? '. ' :
125                            '',
126                            rec('225','f'),
127            ),
128  );  );
129    
   
130  marc_original_order('260', '210');  marc_original_order('260', '210');
131    
132  marc_remove('260','c');  marc_remove('260','c');
133    
134  marc('300','c',  ## FIXME - UPISATI PODATAK U 260c
135          suffix(  
136                  rec('215','e') ? ' + ' :  #_debug(2);
137                                   ' ',  
138                          rec('215','d')  #marc('900','a',
139    #       lookup(
140          )  #               sub { rec('702','a') . ', ' . rec('702','b') },
141  );  #               'nsk','baza',
142    #               sub { rec('200','a') . rec('210','a') . rec('210','c') },
143  marc('900','a',  #               sub { rec('225','a') . rec('210','a') . rec('210','b') },
144          lookup(  #       )
145                  sub { rec('702','a') . ', ' . rec('702','b') },  #);
                 'nsk','baza',  
                 sub { rec('200','a') . rec('210','a') . rec('210','c') },  
                 sub {  
                         regex('s/[:|,]//g',  
                                 rec('225','a') . rec('210','a') . rec('210','b')  
                         );  
                 },  
         )  
 );  
146    
147    #_debug(0);
148    
149  marc_duplicate();  marc_duplicate();
150  marc_remove('*');  marc_remove('*');
Legend:
Removed from v.795  
changed lines
  Added in v.824
  ViewVC Help
Powered by ViewVC 1.1.26