/[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 1095 by dpavlin, Fri Aug 1 23:41:47 2008 UTC
# Line 14  if ( Line 14  if (
14  #       ) ) > 1  #       ) ) > 1
15  ) {  ) {
16    
   
17  my $series_key =  my $series_key =
18  join_with('',  join_with('',
19          rec('225','a'),          rec('225','a'),
# Line 24  join_with('', Line 23  join_with('',
23    
24  my $series = get( $series_key );  my $series = get( $series_key );
25    
26  if ($series) {  if ( $series ) {
27          warn "nije novi";          # warn "nije novi";
28  } else {  } else {
29    
30    
31  $series = join_with('',  $series = join_with('',
32          config(),          config(),
33          'LS',          ' LS',
34          rec('000')          rec('000')
35  );  );
36    
37  #set( $series_key => $series );  set( $series_key => $series );
38    
39  # Leader  # Leader
40  marc_leader('05','n');  marc_leader('05','n');
41  marc_leader('06','a');  marc_leader('06','a');
42  marc_leader('07','s');  marc_leader('07','s');
43    marc_leader('17','7');
44  marc_leader('18','i');  marc_leader('18','i');
45    
46  ## 008  ## 008
# Line 109  if (   ( rec('200','a') =~ m/^An /) && ( Line 109  if (   ( rec('200','a') =~ m/^An /) && (
109    
110  marc_compose('245',  marc_compose('245',
111          'a', suffix(          'a', suffix(
112                  ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :                    ( ! ( rec('225','d') || rec('225','e') ) ) && ( rec('225','f') ) ? ' / ' :  
113                  ( rec('225','p') && rec('225','c') ) ? ' : '  :                  ( rec('225','d') ) ? ' = ' :
114                    ( rec('225','e') ) ? ' : ' :
115                    ( rec('225','i') ) ? '. ' :
116                          '',                          '',
117                          first(rec('225','a')),                          rec('225','a'),
118            ),
119            'b', suffix(
120                    ( rec('225','d') && rec('225','f') ) ? ' / ' :
121                            '',
122                            rec('225','d'),
123          ),          ),
124          'b', suffix(          'b', suffix(
125                  ( rec('225','p') && rec('225','f') ) ? ' / ' :                  ( rec('225','e') && rec('225','f') ) ? ' / ' :
                 ( rec('225','p') && rec('225','c') ) ? '. '  :  
126                          '',                          '',
127                          rec('225','p'),                          rec('225','e'),
128          ),          ),
129          'c', suffix(          'c', suffix(
130                  ( rec('225','f') && rec('225','c') ) ? '. ' :                  ( rec('225','f') && rec('225','i') ) ? '. ' :
131                          '',                          '',
132                          rec('225','f'),                          rec('225','f'),
133          ),          ),
134            'p', rec('225','i'),
135  );  );
136    
137    #marc_compose('245',
138    #       'a', suffix(
139    #               ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :  
140    #               ( rec('225','p') && rec('225','c') ) ? ' : '  :
141    #                       '',
142    #                       first(rec('225','a')),
143    #       ),
144    #       'b', suffix(
145    #               ( rec('225','p') && rec('225','f') ) ? ' / ' :
146    #               ( rec('225','p') && rec('225','c') ) ? '. '  :
147    #                       '',
148    #                       rec('225','p'),
149    #       ),
150    #       'c', suffix(
151    #               ( rec('225','f') && rec('225','c') ) ? '. ' :
152    #                       '',
153    #                       rec('225','f'),
154    #       ),
155    #);
156    
157  marc_original_order('260', '210');  marc_original_order('260', '210');
158    
159  marc_remove('260','c');  marc_remove('260','c');
# Line 152  marc_remove('*'); Line 179  marc_remove('*');
179    
180  } # $series  } # $series
181    
182  }  } # nakladnička cjelina
Legend:
Removed from v.824  
changed lines
  Added in v.1095
  ViewVC Help
Powered by ViewVC 1.1.26