/[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 792 by dpavlin, Tue Jan 30 18:23:53 2007 UTC revision 1095 by dpavlin, Fri Aug 1 23:41:47 2008 UTC
# Line 1  Line 1 
1  if (  if (
2          rec('225','a')  # da li je nakladnicka cjelina?          rec('225','a')  # da li je nakladnicka cjelina?
3          &&              # i  #       &&              # i
4          count( lookup(  #       count( lookup(
5                  sub { 1 },  #               sub { 1 },
6                  'ffsf','blibri',  #               'ffsf','blibri',
7                  sub {  #               sub {
8                          join_with('',  #                       join_with('',
9                                  rec('225','a'),  #                               rec('225','a'),
10                                  rec('210','a'),  #                               rec('210','a'),
11                                  rec('210','b'),  #                               rec('210','b'),
12                          )  #                       )
13                  }  #               }
14          ) ) > 1  #       ) ) > 1
15  ) {  ) {
16    
17  my $series_key =  my $series_key =
# Line 23  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    
# Line 40  set( $series_key => $series ); Line 40  set( $series_key => $series );
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
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 62  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    my $i1;
83    
84    if ( rec('700') || rec('710') ) {
85            $i1 = 1;
86    
87  marc_indicators('245', 0, 0);  } else {
88            $i1 = 0;
89    }
90            
91    marc_indicators('245', $i1, 0);
92    
93  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('200','a') =~ m/^Die /) ||
94          ( rec('200','a') =~ m/^Das /) ||          ( rec('200','a') =~ m/^Das /) ||
95          ( rec('200','a') =~ m/^The /) ) {          ( rec('200','a') =~ m/^The /) ) {
96                  marc_indicators('245', 0, 4);                  marc_indicators('245', $i1, 4);
97  }  }
98    
99  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
100          {                  marc_indicators('245', $i1, 2);
                 marc_indicators('245', 0, 2);  
101  }  }
102    
103  # treba dodati ostala polja za naslov ... !!!  if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
104                    marc_indicators('245', $i1, 2);
105    }
106    
 marc('245','a',  
         join_with(' : ',  
                 rec('225','a'),  
                 rec('225','e')  
         ),  
 );  
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','d') || rec('225','e') ) ) && ( rec('225','f') ) ? ' / ' :  
113                    ( rec('225','d') ) ? ' = ' :
114                    ( rec('225','e') ) ? ' : ' :
115                    ( rec('225','i') ) ? '. ' :
116                            '',
117                            rec('225','a'),
118            ),
119            'b', suffix(
120                    ( rec('225','d') && rec('225','f') ) ? ' / ' :
121                            '',
122                            rec('225','d'),
123            ),
124            'b', suffix(
125                    ( rec('225','e') && rec('225','f') ) ? ' / ' :
126                            '',
127                            rec('225','e'),
128            ),
129            'c', suffix(
130                    ( rec('225','f') && rec('225','i') ) ? '. ' :
131                            '',
132                            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');
160    
161  marc('300','c',  ## FIXME - UPISATI PODATAK U 260c
162          suffix(  
163                  rec('215','e') ? ' + ' :  #_debug(2);
164                                   ' ',  
165                          rec('215','d')  #marc('900','a',
166    #       lookup(
167          )  #               sub { rec('702','a') . ', ' . rec('702','b') },
168  );  #               'nsk','baza',
169    #               sub { rec('200','a') . rec('210','a') . rec('210','c') },
170  marc('900','a',  #               sub { rec('225','a') . rec('210','a') . rec('210','b') },
171          lookup(  #       )
172                  sub { rec('702','a') . ', ' . rec('702','b') },  #);
173                  'nsk','baza',  
174                  sub { rec('200','a') . rec('210','a') . rec('210','c') },  #_debug(0);
                 sub {  
                         regex('s/[:|,]//g',  
                                 rec('225','a') . rec('210','a') . rec('210','b')  
                         );  
                 },  
         )  
 );  
175    
176  marc_duplicate();  marc_duplicate();
177  marc_remove('*');  marc_remove('*');
# Line 127  marc_remove('*'); Line 179  marc_remove('*');
179    
180  } # $series  } # $series
181    
182  }  } # nakladnička cjelina
Legend:
Removed from v.792  
changed lines
  Added in v.1095
  ViewVC Help
Powered by ViewVC 1.1.26