/[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 816 by dpavlin, Thu Apr 5 21:48:41 2007 UTC
# Line 43  marc_leader('06','a'); Line 43  marc_leader('06','a');
43  marc_leader('07','c');  marc_leader('07','c');
44  marc_leader('18','i');  marc_leader('18','i');
45    
46    ## 008
47    
48    marc_fixed('008','35',
49            first( rec('101') )
50    );
51    
52  marc('035','6', $series );  marc('035','6', $series );
53    
54  marc('040','a',  marc('040','a',
# Line 63  marc_repeatable_subfield('041','a', Line 69  marc_repeatable_subfield('041','a',
69          rec('101')          rec('101')
70  );  );
71    
72  # indikatori za članove !!  # indikatori za 245
73    
74  marc_indicators('245', 0, 0);  my $i1;
75    
76  if (    ( rec('225','a') =~ m/^Die /) ||  if ( rec('700') || rec('710') ) {
77          ( rec('225','a') =~ m/^Das /) ||          $i1 = 1;
78          ( rec('225','a') =~ m/^The /) ) {  
79                  marc_indicators('245', 0, 4);  } else {
80            $i1 = 0;
81    }
82            
83    marc_indicators('245', $i1, 0);
84    
85    if (    ( rec('200','a') =~ m/^Die /) ||
86            ( rec('200','a') =~ m/^Das /) ||
87            ( rec('200','a') =~ m/^The /) ) {
88                    marc_indicators('245', $i1, 4);
89  }  }
90    
91  if (    ( rec('225','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
92          {                  marc_indicators('245', $i1, 2);
                 marc_indicators('245', 0, 2);  
93  }  }
94    
95  # treba dodati ostala polja za naslov ... !!!  if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
96                    marc_indicators('245', $i1, 2);
97    }
98    
 marc('245','a',  
         join_with(' : ',  
                 rec('225','a'),  
                 rec('225','e')  
         ),  
 );  
99    
100  marc('245','c',  ## 245
         rec('225','f')  
 );  
101    
102  marc('245','n',  marc('245',
103          rec('225','h'),          'a', suffix(
104                    ( ! rec('225','b') && rec('225','f') ) ? ' / ' :
105                    rec('225','c') ? ' / ' : ' ',
106                            rec('225','a'),
107            )
108  );  );
109    marc('245',
110  marc('245','p',          'b', suffix(
111          rec('225','i'),                  ( rec('225','b') && rec('225','f') ) ? ' / ' :
112                    ( rec('225','b') && rec('225','c') ) ? '. '  :
113                            ' ',
114                            rec('225','b'),
115            ),
116    );
117    marc('245',
118            'c', suffix(
119                    ( rec('225','f') && rec('225','c') ) ? '. ' :
120                            ' ',
121                            rec('225','f'),
122            ),
123  );  );
   
124    
125  marc_original_order('260', '210');  marc_original_order('260', '210');
126    
127  marc_remove('260','c');  marc_remove('260','c');
128    
129  marc('300','c',  ## FIXME - UPISATI PODATAK U 260c
         suffix(  
                 rec('215','e') ? ' + ' :  
                                  ' ',  
                         rec('215','d')  
   
         )  
 );  
130    
131  #_debug(2);  #_debug(2);
132  marc('900','a',  
133          lookup(  #marc('900','a',
134                  sub { rec('702','a') . ', ' . rec('702','b') },  #       lookup(
135                  'nsk','baza',  #               sub { rec('702','a') . ', ' . rec('702','b') },
136                  sub { rec('200','a') . rec('210','a') . rec('210','c') },  #               'nsk','baza',
137                  sub { rec('225','a') . rec('210','a') . rec('210','b') },  #               sub { rec('200','a') . rec('210','a') . rec('210','c') },
138          )  #               sub { rec('225','a') . rec('210','a') . rec('210','b') },
139  );  #       )
140    #);
141    
142  #_debug(0);  #_debug(0);
143    
Legend:
Removed from v.807  
changed lines
  Added in v.816
  ViewVC Help
Powered by ViewVC 1.1.26