/[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 794 by dpavlin, Tue Jan 30 18:23:53 2007 UTC revision 795 by dpavlin, Sun Feb 4 12:37:42 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 121  marc('900','a', Line 126  marc('900','a',
126          )          )
127  );  );
128    
129    
130  marc_duplicate();  marc_duplicate();
131  marc_remove('*');  marc_remove('*');
132    
Legend:
Removed from v.794  
changed lines
  Added in v.795
  ViewVC Help
Powered by ViewVC 1.1.26