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
2	if ( rec('200') ) {
3
4	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	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	);
79
80
81	marc('260','c',
82	rec('210','d')
83
84	);
85
86	}