conf/normalize/webpacus.pl

search_display('ISBN',
        isbn_13(
                rec('020','a')
        )
);

warn "### isbn_13 = ",dump(
        isbn_13(
                rec('020','a')
        )
);

search_display('ISBN_incorrect',
        rec('010','z')
);

search_display('ISSN',
        rec('022','a')
);


search_display('Language',
        rec('041','a')
);

search_display('TitleProper',
        join_with('',
                rec('245','a'),
                join_with(' / ',
                        rec('245','b'),
                        rec('245','c')
                )
        )
);

# regex('s/\s*[=:\/;]\s*//g',

sorted('TitleProper',
        rec('245','a'),
);

search_display('ReminderTitle',
        join_with(' : ',
                prefix(' = ',
                        rec('245','d')
                ),
                rec('245','e')
        )
);

#display('Pripadajuci',
#       lookup(
#               sub { rec('200','a') },
#               'hidra','bib',
#               sub { rec('900') },
#               sub { rec('451','a') }
#       )
#);


search('PlacePublication',
        rec('260','a')
);

search('NamePublisher',
        rec('260','b'),
);

search_display('DatePublication',
        rec('260','c')
);

display('Impresum',
        rec('260'),
);

search_display('Dimensions',
        rec('300','c')
);

search_display('GeneralNote',
        rec('500')
);

1	dpavlin	937	search_display('ISBN',
2	dpavlin	964	isbn_13(
3			rec('020','a')
4			)
5	dpavlin	937	);
6
7	dpavlin	974	warn "### isbn_13 = ",dump(
8			isbn_13(
9			rec('020','a')
10			)
11			);
12
13	dpavlin	937	search_display('ISBN_incorrect',
14			rec('010','z')
15			);
16
17			search_display('ISSN',
18			rec('022','a')
19			);
20
21
22			search_display('Language',
23	dpavlin	964	rec('041','a')
24	dpavlin	937	);
25
26			search_display('TitleProper',
27	dpavlin	964	join_with('',
28			rec('245','a'),
29			join_with(' / ',
30			rec('245','b'),
31			rec('245','c')
32			)
33			)
34	dpavlin	937	);
35
36	dpavlin	964	# regex('s/\s[=:\/;]\s//g',
37
38	dpavlin	937	sorted('TitleProper',
39			rec('245','a'),
40			);
41
42			search_display('ReminderTitle',
43			join_with(' : ',
44			prefix(' = ',
45			rec('245','d')
46			),
47			rec('245','e')
48			)
49			);
50
51	dpavlin	964	#display('Pripadajuci',
52			# lookup(
53			# sub { rec('200','a') },
54			# 'hidra','bib',
55			# sub { rec('900') },
56			# sub { rec('451','a') }
57			# )
58			#);
59	dpavlin	937
60
61			search('PlacePublication',
62			rec('260','a')
63			);
64
65			search('NamePublisher',
66			rec('260','b'),
67			);
68
69			search_display('DatePublication',
70			rec('260','c')
71			);
72
73			display('Impresum',
74			rec('260'),
75			);
76
77			search_display('Dimensions',
78			rec('300','c')
79			);
80
81			search_display('GeneralNote',
82			rec('500')
83			);
84