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	search_display('ISBN',
2	isbn_13(
3	rec('020','a')
4	)
5	);
6
7	warn "### isbn_13 = ",dump(
8	isbn_13(
9	rec('020','a')
10	)
11	);
12
13	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	rec('041','a')
24	);
25
26	search_display('TitleProper',
27	join_with('',
28	rec('245','a'),
29	join_with(' / ',
30	rec('245','b'),
31	rec('245','c')
32	)
33	)
34	);
35
36	# regex('s/\s[=:\/;]\s//g',
37
38	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	#display('Pripadajuci',
52	# lookup(
53	# sub { rec('200','a') },
54	# 'hidra','bib',
55	# sub { rec('900') },
56	# sub { rec('451','a') }
57	# )
58	#);
59
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