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	dpavlin	773	marc('022','a',
2			rec('022','a')
3			);
4	dpavlin	758
5	dpavlin	773	marc('022','y',
6			rec('022','y')
7			);
8
9
10	dpavlin	758	marc_indicators('245', 0, 0);
11
12			marc('245','a',
13			rec('245','a')
14			);
15
16	dpavlin	773	marc('245','b',
17			rec('245','b')
18			);
19
20	dpavlin	758	marc('245','h',
21			'[ Elektronièka graða ]'
22			);
23
24	dpavlin	773	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	dpavlin	758	marc('856','u',
64			rec('856','u')
65			);
66
67	dpavlin	773