/[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 807 by dpavlin, Sun Apr 1 12:26:25 2007 UTC revision 1082 by dpavlin, Sun Dec 23 17:51:43 2007 UTC
# Line 24  join_with('', Line 24  join_with('',
24    
25  my $series = get( $series_key );  my $series = get( $series_key );
26    
27  if ($series) {  if ( $series ) {
28          warn "nije novi";          warn "nije novi";
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    
# Line 40  set( $series_key => $series ); Line 40  set( $series_key => $series );
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('17','7');
45  marc_leader('18','i');  marc_leader('18','i');
46    
47    ## 008
48    
49    marc_fixed('008',00,
50            '070401'
51    );
52    
53    marc_fixed('008','35',
54            first( lc( rec('101') ) )
55    );
56    
57    marc('022','a',
58            rec('225','x')
59    );
60    
61  marc('035','6', $series );  marc('035','6', $series );
62    
63  marc('040','a',  marc('040','a',
# Line 63  marc_repeatable_subfield('041','a', Line 78  marc_repeatable_subfield('041','a',
78          rec('101')          rec('101')
79  );  );
80    
81  # indikatori za članove !!  # indikatori za 245
82    
83  marc_indicators('245', 0, 0);  my $i1;
84    
85  if (    ( rec('225','a') =~ m/^Die /) ||  if ( rec('700') || rec('710') ) {
86          ( rec('225','a') =~ m/^Das /) ||          $i1 = 1;
87          ( rec('225','a') =~ m/^The /) ) {  
88                  marc_indicators('245', 0, 4);  } else {
89  }          $i1 = 0;
90    }
91            
92    marc_indicators('245', $i1, 0);
93    
94  if (    ( rec('225','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )  if (    ( rec('200','a') =~ m/^Die /) ||
95          {          ( rec('200','a') =~ m/^Das /) ||
96                  marc_indicators('245', 0, 2);          ( rec('200','a') =~ m/^The /) ) {
97                    marc_indicators('245', $i1, 4);
98  }  }
99    
100  # treba dodati ostala polja za naslov ... !!!  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
101                    marc_indicators('245', $i1, 2);
102    }
103    
104  marc('245','a',  if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
105          join_with(' : ',                  marc_indicators('245', $i1, 2);
106                  rec('225','a'),  }
                 rec('225','e')  
         ),  
 );  
107    
 marc('245','c',  
         rec('225','f')  
 );  
108    
109  marc('245','n',  ## 245
         rec('225','h'),  
 );  
110    
111  marc('245','p',  marc_compose('245',
112          rec('225','i'),          'a', suffix(
113                    ( ! ( rec('225','d') || rec('225','e') ) ) && ( rec('225','f') ) ? ' / ' :  
114                    ( rec('225','d') ) ? ' = ' :
115                    ( rec('225','e') ) ? ' : ' :
116                    ( rec('225','i') ) ? '. ' :
117                            '',
118                            rec('225','a'),
119            ),
120            'b', suffix(
121                    ( rec('225','d') && rec('225','f') ) ? ' / ' :
122                            '',
123                            rec('225','d'),
124            ),
125            'b', suffix(
126                    ( rec('225','e') && rec('225','f') ) ? ' / ' :
127                            '',
128                            rec('225','e'),
129            ),
130            'c', suffix(
131                    ( rec('225','f') && rec('225','i') ) ? '. ' :
132                            '',
133                            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');
161    
162  marc('300','c',  ## FIXME - UPISATI PODATAK U 260c
         suffix(  
                 rec('215','e') ? ' + ' :  
                                  ' ',  
                         rec('215','d')  
   
         )  
 );  
163    
164  #_debug(2);  #_debug(2);
165  marc('900','a',  
166          lookup(  #marc('900','a',
167                  sub { rec('702','a') . ', ' . rec('702','b') },  #       lookup(
168                  'nsk','baza',  #               sub { rec('702','a') . ', ' . rec('702','b') },
169                  sub { rec('200','a') . rec('210','a') . rec('210','c') },  #               'nsk','baza',
170                  sub { rec('225','a') . rec('210','a') . rec('210','b') },  #               sub { rec('200','a') . rec('210','a') . rec('210','c') },
171          )  #               sub { rec('225','a') . rec('210','a') . rec('210','b') },
172  );  #       )
173    #);
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.807  
changed lines
  Added in v.1082
  ViewVC Help
Powered by ViewVC 1.1.26