/[webpac2]/trunk/conf/normalize/excel-wiley.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/excel-wiley.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 782 by dpavlin, Fri Nov 3 20:41:12 2006 UTC revision 783 by dpavlin, Wed Dec 6 23:42:20 2006 UTC
# Line 5  marc_leader('18','i'); Line 5  marc_leader('18','i');
5    
6  marc('022','a',  marc('022','a',
7          lookup(          lookup(
8                  sub { rec('022','a') },                  sub { rec('B') },
9                  'wiley','full',                  'wiley','full',
10                  sub {                  sub {
11                          regex('s/\s*(\.|:)\s*$//g',                          regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                 lc(  
                                         rec('245','a') . ' ' . rec('245','b')  
                                 )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
12                                  lc( rec('A') )                                  lc( rec('A') )
13                          );                          );
                 }  
         ) ||  
         lookup(  
                 sub { rec('022','a') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
                         );  
14                  },                  },
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
15          )          )
16  );  );
17    
18  marc('022','y',  marc('022','y',
19          lookup(          lookup(
20                  sub { rec('022','y') },                  sub { rec('C') },
21                  'wiley','full',                  'wiley','full',
22                  sub {                  sub {
23                          regex('s/\s*(\.|:)\s*$//g',                          regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                 lc(  
                                         rec('245','a') . ' ' . rec('245','b')  
                                 )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
24                                  lc( rec('A') )                                  lc( rec('A') )
25                          );                          );
                 }  
         ) ||  
         lookup(  
                 sub { rec('022','y') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
                         );  
26                  },                  },
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
27          )          )
28  );  );
29    
# Line 79  marc('245','h', Line 37  marc('245','h',
37          '[ Elektronička građa ]'          '[ Elektronička građa ]'
38  );  );
39    
 marc_indicators('246', 1, 0);  
   
 marc('246','a',  
         lookup(  
                 sub { rec('246','a') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc(  
                                         rec('245','a') . ' ' . rec('245','b')  
                                 )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         ) ||  
         lookup(  
                 sub { rec('246','a') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         )  
 );  
   
40  marc('500','a',  marc('500','a',
41          lookup(          lookup(
42                  sub { rec('500','a') },                  sub { 'Full Text dostupan od: ' . rec('V') },
43                  'wiley','full',                  'wiley','full',
44                  sub {                  sub {
45                          regex('s/\s*(\.|:)\s*$//g',                          regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                 lc(  
                                         rec('245','a') . ' ' . rec('245','b')  
                                 )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
46                                  lc( rec('A') )                                  lc( rec('A') )
47                          );                          );
                 }  
         ) ||  
         lookup(  
                 sub { rec('500','a') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
                         );  
48                  },                  },
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
49          )          )
50  );  );
51    
 marc_indicators('650', ' ', 7);  
   
 marc('650','a',  
         lookup(  
                 sub { rec('650','a') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc(  
                                         rec('245','a') . ' ' . rec('245','b')  
                                 )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         ) ||  
         lookup(  
                 sub { rec('650','a') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         )  
 );  
   
 marc('650','v',  
         lookup(  
                 sub { rec('650','v') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc(  
                                         rec('245','a') . ' ' . rec('245','b')  
                                 )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         ) ||  
         lookup(  
                 sub { rec('650','v') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         )  
 );  
   
   
 marc('650','z',  
         lookup(  
                 sub { rec('650','z') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc(  
                                         rec('245','a') . ' ' . rec('245','b')  
                                 )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         ) ||  
         lookup(  
                 sub { rec('650','z') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
                         );  
                 },  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
         )  
 );  
   
   
   
52  marc('856','u',  marc('856','u',
53          lookup(          lookup(
54                  sub { rec('856','u') },                  sub { rec('D') },
55                  'wiley','full',                  'wiley','full',
56                  sub {                  sub {
57                                  lc(                          regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                         rec('245','a') . rec('245','b')  
                                 )  
                 },  
   
                 sub {  
58                                  lc( rec('A') )                                  lc( rec('A') )
                 }  
         )  
         ||  
         lookup(  
                 sub { rec('856','u') },  
                 'wiley','full',  
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('245','a') )  
59                          );                          );
60                  },                  },
                 sub {  
                         regex('s/\s*(\.|:)\s*$//g',  
                                 lc( rec('A') )  
                         );  
                 }  
61          )          )
62  );  );
63    
Legend:
Removed from v.782  
changed lines
  Added in v.783
  ViewVC Help
Powered by ViewVC 1.1.26