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	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(\.\|:\|\-\|\(\|\))\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(\.\|:\|\-\|\(\|\))\s//g',
24	lc( rec('A') )
25	);
26	},
27	)
28	);
29
30	marc_indicators('245', 1, 0);
31
32	marc('245','a',
33	rec('A')
34	);
35
36	marc('245','h',
37	'[ Elektronièka graða ]'
38	);
39
40	marc('500','a',
41	lookup(
42	sub { 'Full Text dostupan od: ' . rec('V') },
43	'wiley','full',
44	sub {
45	regex('s/\s(\.\|:\|\-\|\(\|\))\s//g',
46	lc( rec('A') )
47	);
48	},
49	)
50	);
51
52	marc('856','u',
53	lookup(
54	sub { rec('D') },
55	'wiley','full',
56	sub {
57	regex('s/\s(\.\|:\|\-\|\(\|\))\s//g',
58	lc( rec('A') )
59	);
60	},
61	)
62	);
63