/[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 824 by dpavlin, Fri May 18 20:27:21 2007 UTC revision 876 by dpavlin, Thu Aug 23 19:21:23 2007 UTC
# Line 31  if ($series) { Line 31  if ($series) {
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','s');  marc_leader('07','s');
44    marc_leader('17','7');
45  marc_leader('18','i');  marc_leader('18','i');
46    
47  ## 008  ## 008
# Line 109  if (   ( rec('200','a') =~ m/^An /) && ( Line 110  if (   ( rec('200','a') =~ m/^An /) && (
110    
111  marc_compose('245',  marc_compose('245',
112          'a', suffix(          'a', suffix(
113                  ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :                    ( ! ( rec('225','d') || rec('225','e') ) ) && ( rec('225','f') ) ? ' / ' :  
114                  ( rec('225','p') && rec('225','c') ) ? ' : '  :                  ( rec('225','d') ) ? ' = ' :
115                    ( rec('225','e') ) ? ' : ' :
116                    ( rec('225','i') ) ? '. ' :
117                          '',                          '',
118                          first(rec('225','a')),                          rec('225','a'),
119          ),          ),
120          'b', suffix(          'b', suffix(
121                  ( rec('225','p') && rec('225','f') ) ? ' / ' :                  ( rec('225','d') && rec('225','f') ) ? ' / ' :
                 ( rec('225','p') && rec('225','c') ) ? '. '  :  
122                          '',                          '',
123                          rec('225','p'),                          rec('225','d'),
124            ),
125            'b', suffix(
126                    ( rec('225','e') && rec('225','f') ) ? ' / ' :
127                            '',
128                            rec('225','e'),
129          ),          ),
130          'c', suffix(          'c', suffix(
131                  ( rec('225','f') && rec('225','c') ) ? '. ' :                  ( rec('225','f') && rec('225','i') ) ? '. ' :
132                          '',                          '',
133                          rec('225','f'),                          rec('225','f'),
134          ),          ),
135            'p', rec('225','i'),
136  );  );
137    
138    #marc_compose('245',
139    #       'a', suffix(
140    #               ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :  
141    #               ( rec('225','p') && rec('225','c') ) ? ' : '  :
142    #                       '',
143    #                       first(rec('225','a')),
144    #       ),
145    #       'b', suffix(
146    #               ( rec('225','p') && rec('225','f') ) ? ' / ' :
147    #               ( rec('225','p') && rec('225','c') ) ? '. '  :
148    #                       '',
149    #                       rec('225','p'),
150    #       ),
151    #       'c', suffix(
152    #               ( rec('225','f') && rec('225','c') ) ? '. ' :
153    #                       '',
154    #                       rec('225','f'),
155    #       ),
156    #);
157    
158  marc_original_order('260', '210');  marc_original_order('260', '210');
159    
160  marc_remove('260','c');  marc_remove('260','c');
# Line 146  marc_remove('260','c'); Line 174  marc_remove('260','c');
174    
175  #_debug(0);  #_debug(0);
176    
177  marc_duplicate();  #marc_duplicate();
178  marc_remove('*');  #marc_remove('*');
179    
180    
181  } # $series  } # $series
182    
183  }  } # nakladnička cjelina
Legend:
Removed from v.824  
changed lines
  Added in v.876
  ViewVC Help
Powered by ViewVC 1.1.26