/[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 758 by dpavlin, Wed Oct 25 11:02:36 2006 UTC revision 806 by dpavlin, Sun Mar 4 13:03:11 2007 UTC
# Line 1  Line 1 
1  marc_indicators('245', 0, 0);  marc_leader('05','n');
2    marc_leader('06','a');
3    marc_leader('07','s');
4    marc_leader('18','i');
5    
6    marc('022','a',
7            lookup(
8                    sub { rec('B') },
9                    'wiley','full',
10                    sub {
11                            regex('s/\s*(\.|:|\-|\(|\)|and|&)\s*//g',
12                                    lc( rec('A') )
13                            );
14                    },
15            )
16    );
17    
18    marc('022','y',
19            lookup(
20                    sub { rec('C') },
21                    'wiley','full',
22                    sub {
23                            regex('s/\s*(\.|:|\-|\(|\)|and|&)\s*//g',
24                                    lc( rec('A') )
25                            );
26                    },
27            )
28    );
29    
30    marc_indicators('245', 1, 0);
31    
32  marc('245','a',  marc('245','a',
33          rec('A')          rec('A')
# Line 8  marc('245','h', Line 37  marc('245','h',
37          '[ Elektronička građa ]'          '[ Elektronička građa ]'
38  );  );
39    
40  marc('856','u',  marc('500','a',
41          lookup(          lookup(
42                  sub { rec('856','u') },                  sub { 'Full Text dostupan od: ' . rec('V') },
43                  'wiley','full',                  'wiley','full',
44                  sub {                  sub {
45                          regex('s/\s*(\.|:)\s*$//g',                          regex('s/\s*(\.|:|\-|\(|\)|and|&)\s*//g',
46                                  lc( rec('245','a') )                                  lc( rec('A') )
47                          );                          );
48                  },                  },
49            )
50    );
51    
52    marc('856','u',
53            lookup(
54                    sub { rec('D') },
55                    'wiley','full',
56                  sub {                  sub {
57                          lc( rec('A') )                          regex('s/\s*(\.|:|\-|\(|\)|and|&)\s*//g',
58                  }                                  lc( rec('A') )
59                            );
60                    },
61          )          )
62  );  );
63    
Legend:
Removed from v.758  
changed lines
  Added in v.806
  ViewVC Help
Powered by ViewVC 1.1.26