conf/normalize/minimal.pl


if ( rec('200') ) {

marc('035','6',
join_with('',
                config(),
                'L',
                rec('000')
        )
);


marc('020','a',
        rec('10')
);


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


marc_indicators('245', 1, 0);

if (    ( rec('200','a') =~ m/^Die /) || 
        ( rec('200','a') =~ m/^Das /) || 
        ( rec('200','a') =~ m/^The /) ) {
                marc_indicators('245', 1, 4);
} 

if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
        {
                marc_indicators('245', 1, 2);
} 


### 245
# redoslijed polja

#_debug(3);
marc_compose('245',
        'a', suffix(
                rec('200','b') ? '. '   :
                rec('200','k') ? ' ; '  :
                rec('200','d') ? ' = '  :
                rec('200','e') ? ' : '  :
                rec('200','f') ? ' / '  :
                                 '.',
                        rec('200','a')
        ),
#       'h', rec('200','b'),
        'b', suffix(
                ( rec('200','k') && rec('200','f') ) ? ' / ' :
                                     ' ',
                        join_with(' ; ',
                                rec('200','k'),
                        ),
        ),
        'b', suffix(
                ( rec('200','d') && rec('200','f') ) ? ' / ' :
                                                       ' ',
                                rec('200','d'), 
        ),
        'b', suffix(
                ( rec('200','e') && rec('200','f') ) ? ' / ' :
                                                       ' ',
                        join_with(' : ',
                                rec('200','e'),
                        ),
        ),

        'c', rec('200','f'),

# append to last subfield
        '+', prefix('. ', 
                rec('200','c') 
        ),
);


marc('260','c',
        rec('210','d')
        
);

}
1	dpavlin	773
2			if ( rec('200') ) {
3
4	dpavlin	758	marc('035','6',
5			join_with('',
6			config(),
7			'L',
8			rec('000')
9			)
10			);
11
12
13			marc('020','a',
14			rec('10')
15			);
16
17
18			marc('022','a',
19			rec('11','a')
20			);
21
22
23	dpavlin	792	marc_indicators('245', 1, 0);
24
25			if ( ( rec('200','a') =~ m/^Die /) \|\|
26			( rec('200','a') =~ m/^Das /) \|\|
27			( rec('200','a') =~ m/^The /) ) {
28			marc_indicators('245', 1, 4);
29			}
30
31			if ( ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
32			{
33			marc_indicators('245', 1, 2);
34			}
35
36
37			### 245
38			# redoslijed polja
39
40			#_debug(3);
41			marc_compose('245',
42			'a', suffix(
43			rec('200','b') ? '. ' :
44			rec('200','k') ? ' ; ' :
45			rec('200','d') ? ' = ' :
46			rec('200','e') ? ' : ' :
47			rec('200','f') ? ' / ' :
48			'.',
49			rec('200','a')
50			),
51			# 'h', rec('200','b'),
52			'b', suffix(
53			( rec('200','k') && rec('200','f') ) ? ' / ' :
54			' ',
55			join_with(' ; ',
56			rec('200','k'),
57			),
58			),
59			'b', suffix(
60			( rec('200','d') && rec('200','f') ) ? ' / ' :
61			' ',
62			rec('200','d'),
63			),
64			'b', suffix(
65			( rec('200','e') && rec('200','f') ) ? ' / ' :
66			' ',
67			join_with(' : ',
68			rec('200','e'),
69			),
70			),
71
72			'c', rec('200','f'),
73
74			# append to last subfield
75			'+', prefix('. ',
76			rec('200','c')
77			),
78	dpavlin	758	);
79
80
81	dpavlin	792	marc('260','c',
82			rec('210','d')
83
84			);
85
86	dpavlin	773	}