/[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 816 by dpavlin, Thu Apr 5 21:48:41 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  ## 008
47    
48    marc_fixed('008',00,
49            '070401'
50    );
51    
52  marc_fixed('008','35',  marc_fixed('008','35',
53          first( rec('101') )          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 );
# Line 99  if (   ( rec('200','a') =~ m/^An /) && ( Line 107  if (   ( rec('200','a') =~ m/^An /) && (
107    
108  ## 245  ## 245
109    
110  marc('245',  marc_compose('245',
111          'a', suffix(          'a', suffix(
112                  ( ! rec('225','b') && rec('225','f') ) ? ' / ' :                  ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :  
113                  rec('225','c') ? ' / ' : ' ',                  ( rec('225','p') && rec('225','c') ) ? ' : '  :
114                          rec('225','a'),                          '',
115          )                          first(rec('225','a')),
116  );          ),
 marc('245',  
117          'b', suffix(          'b', suffix(
118                  ( rec('225','b') && rec('225','f') ) ? ' / ' :                  ( rec('225','p') && rec('225','f') ) ? ' / ' :
119                  ( rec('225','b') && rec('225','c') ) ? '. '  :                  ( rec('225','p') && rec('225','c') ) ? '. '  :
120                          ' ',                          '',
121                          rec('225','b'),                          rec('225','p'),
122          ),          ),
 );  
 marc('245',  
123          'c', suffix(          'c', suffix(
124                  ( rec('225','f') && rec('225','c') ) ? '. ' :                  ( rec('225','f') && rec('225','c') ) ? '. ' :
125                          ' ',                          '',
126                          rec('225','f'),                          rec('225','f'),
127          ),          ),
128  );  );
Legend:
Removed from v.816  
changed lines
  Added in v.824
  ViewVC Help
Powered by ViewVC 1.1.26