conf/normalize/excel-wiley.pl

marc_leader('05','n');
marc_leader('06','a');
marc_leader('07','s');
marc_leader('18','i');

marc('022','a',
        lookup(
                sub { rec('B') },
                'wiley','full',
                sub { 
                        regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                lc( rec('A') )
                        );
                },
        )
);

marc('022','y',
        lookup(
                sub { rec('C') },
                'wiley','full',
                sub { 
                        regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                lc( rec('A') )
                        );
                },
        )
);

marc_indicators('245', 1, 0);

marc('245','a',
        rec('A')
);

marc('245','h',
        '[ Elektronièka graða ]'
);

marc('500','a',
        lookup(
                sub { 'Full Text dostupan od: ' . rec('V') },
                'wiley','full',
                sub { 
                        regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                lc( rec('A') )
                        );
                },
        )
);

marc('856','u',
        lookup(
                sub { rec('D') },
                'wiley','full',
                sub { 
                        regex('s/\s*(\.|:|\-|\(|\))\s*//g',
                                lc( rec('A') )
                        );
                },
        )
);

1	dpavlin	773	marc_leader('05','n');
2			marc_leader('06','a');
3			marc_leader('07','s');
4			marc_leader('18','i');
5	dpavlin	758
6	dpavlin	773	marc('022','a',
7			lookup(
8	dpavlin	783	sub { rec('B') },
9	dpavlin	773	'wiley','full',
10			sub {
11	dpavlin	783	regex('s/\s(\.\|:\|\-\|\(\|\))\s//g',
12	dpavlin	773	lc( rec('A') )
13			);
14			},
15			)
16			);
17
18			marc('022','y',
19			lookup(
20	dpavlin	783	sub { rec('C') },
21	dpavlin	773	'wiley','full',
22			sub {
23	dpavlin	783	regex('s/\s(\.\|:\|\-\|\(\|\))\s//g',
24	dpavlin	773	lc( rec('A') )
25			);
26			},
27			)
28			);
29
30			marc_indicators('245', 1, 0);
31
32	dpavlin	758	marc('245','a',
33			rec('A')
34			);
35
36			marc('245','h',
37			'[ Elektronièka graða ]'
38			);
39
40	dpavlin	773	marc('500','a',
41			lookup(
42	dpavlin	783	sub { 'Full Text dostupan od: ' . rec('V') },
43	dpavlin	773	'wiley','full',
44			sub {
45	dpavlin	783	regex('s/\s(\.\|:\|\-\|\(\|\))\s//g',
46	dpavlin	773	lc( rec('A') )
47			);
48			},
49			)
50			);
51
52	dpavlin	783	marc('856','u',
53	dpavlin	773	lookup(
54	dpavlin	783	sub { rec('D') },
55	dpavlin	773	'wiley','full',
56			sub {
57	dpavlin	783	regex('s/\s(\.\|:\|\-\|\(\|\))\s//g',
58	dpavlin	773	lc( rec('A') )
59			);
60			},
61			)
62			);
63