/[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 802 by dpavlin, Thu Feb 15 22:43:03 2007 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    
18  my $series_key =  my $series_key =
19  join_with('',  join_with('',
20          rec('225','a'),          rec('225','a'),
# Line 39  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','s');  marc_leader('07','c');
44  marc_leader('18','i');  marc_leader('18','i');
45    
46  marc('035','6', $series );  marc('035','6', $series );
# Line 66  marc_repeatable_subfield('041','a', Line 67  marc_repeatable_subfield('041','a',
67    
68  marc_indicators('245', 0, 0);  marc_indicators('245', 0, 0);
69    
70  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('225','a') =~ m/^Die /) ||
71          ( rec('200','a') =~ m/^Das /) ||          ( rec('225','a') =~ m/^Das /) ||
72          ( rec('200','a') =~ m/^The /) ) {          ( rec('225','a') =~ m/^The /) ) {
73                  marc_indicators('245', 0, 4);                  marc_indicators('245', 0, 4);
74  }  }
75    
76  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )  if (    ( rec('225','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
77          {          {
78                  marc_indicators('245', 0, 2);                  marc_indicators('245', 0, 2);
79  }  }
# Line 86  marc('245','a', Line 87  marc('245','a',
87          ),          ),
88  );  );
89    
90    marc('245','c',
91            rec('225','f')
92    );
93    
94  marc('245','n',  marc('245','n',
95          rec('225','h'),          rec('225','h'),
96  );  );
# Line 108  marc('300','c', Line 113  marc('300','c',
113          )          )
114  );  );
115    
116    _debug(2);
117  marc('900','a',  marc('900','a',
118          lookup(          lookup(
119                  sub { rec('702','a') . ', ' . rec('702','b') },                  sub { rec('702','a') . ', ' . rec('702','b') },
120                  'nsk','baza',                  'nsk','baza',
121                  sub { rec('200','a') . rec('210','a') . rec('210','c') },                  sub { rec('200','a') . rec('210','a') . rec('210','c') },
122                  sub {                  sub { rec('225','a') . rec('210','a') . rec('210','b') },
                         regex('s/[:|,]//g',  
                                 rec('225','a') . rec('210','a') . rec('210','b')  
                         );  
                 },  
123          )          )
124  );  );
125    
126    _debug(0);
127    
128  marc_duplicate();  marc_duplicate();
129  marc_remove('*');  marc_remove('*');
130    
Legend:
Removed from v.792  
changed lines
  Added in v.802
  ViewVC Help
Powered by ViewVC 1.1.26