conf/normalize/marc-cufts.pl

marc('022','a',
        rec('022','a')
);

marc('022','y',
        rec('022','y')
);


marc_indicators('245', 0, 0);

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

marc('245','b',
        rec('245','b')
);

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

marc_indicators('246', 0, 0);

marc('246','a',
        rec('246','a')
);

marc('500','a',
        rec('500','a')
);

marc('500','a',
        lookup(
                sub { 'Licenciran' },
                'wiley','licenced',
                sub { 
                        lc( rec('A') )
                },
                sub { 
                        regex('s/\s*(\.|:)\s*$//g',
                                lc( rec('245','a') )
                        );
                },
        )
);

marc_indicators('650', ' ', 2);

marc('650','a',
        rec('650','a')
);

marc('650','v',
        rec('650','v')
);

marc('650','z',
        rec('650','z')
);

marc('856','u',
        rec('856','u')
);


1	marc('022','a',
2	rec('022','a')
3	);
4
5	marc('022','y',
6	rec('022','y')
7	);
8
9
10	marc_indicators('245', 0, 0);
11
12	marc('245','a',
13	rec('245','a')
14	);
15
16	marc('245','b',
17	rec('245','b')
18	);
19
20	marc('245','h',
21	'[ Elektronièka graða ]'
22	);
23
24	marc_indicators('246', 0, 0);
25
26	marc('246','a',
27	rec('246','a')
28	);
29
30	marc('500','a',
31	rec('500','a')
32	);
33
34	marc('500','a',
35	lookup(
36	sub { 'Licenciran' },
37	'wiley','licenced',
38	sub {
39	lc( rec('A') )
40	},
41	sub {
42	regex('s/\s(\.\|:)\s$//g',
43	lc( rec('245','a') )
44	);
45	},
46	)
47	);
48
49	marc_indicators('650', ' ', 2);
50
51	marc('650','a',
52	rec('650','a')
53	);
54
55	marc('650','v',
56	rec('650','v')
57	);
58
59	marc('650','z',
60	rec('650','z')
61	);
62
63	marc('856','u',
64	rec('856','u')
65	);
66
67