conf/normalize/webpacus-unimarc.pl


use WebPAC::Normalize::ISBN;

search_display('ISBN',
        rec('10')
);

search_display('ISSN',
        rec('11')
);


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

search_display('TitleProper',
        join_with(' / ',
                join_with('',
                        rec('200','a'),
                        rec('200','c'),
                ),
                rec('200','f'),
        )
);
        

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

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


#display('PripadajuciOznaka',
#       lookup(
#               sub { [ rec('200','a') . rec('200','c'),  rec(451,'a') ] },
#               'hidra','bib',
#               sub { rec('900') },
#               sub { rec('451','1') }
#       )
#);
#
#display('Fond',
#       lookup(
#               sub { rec('200','a') },
#               'hidra','bib',
#               sub { rec('900') },
#               sub { rec('946','1') }
#       )
#);     


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

search('NamePublisher',
        rec('210','c'),
);

search_display('DatePublication',
        rec('210','d')
);

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

search_display('Series',
        rec('225','a')
);

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

1
2	use WebPAC::Normalize::ISBN;
3
4	search_display('ISBN',
5	rec('10')
6	);
7
8	search_display('ISSN',
9	rec('11')
10	);
11
12
13	search_display('Language',
14	rec('101','a')
15	);
16
17	search_display('TitleProper',
18	join_with(' / ',
19	join_with('',
20	rec('200','a'),
21	rec('200','c'),
22	),
23	rec('200','f'),
24	)
25	);
26
27
28
29	# regex('s/\s[=:\/;]\s//g',
30
31	sorted('TitleProper',
32	rec('200','a'),
33	);
34
35
36	#display('PripadajuciOznaka',
37	# lookup(
38	# sub { [ rec('200','a') . rec('200','c'), rec(451,'a') ] },
39	# 'hidra','bib',
40	# sub { rec('900') },
41	# sub { rec('451','1') }
42	# )
43	#);
44	#
45	#display('Fond',
46	# lookup(
47	# sub { rec('200','a') },
48	# 'hidra','bib',
49	# sub { rec('900') },
50	# sub { rec('946','1') }
51	# )
52	#);
53
54
55	search('PlacePublication',
56	rec('210','a')
57	);
58
59	search('NamePublisher',
60	rec('210','c'),
61	);
62
63	search_display('DatePublication',
64	rec('210','d')
65	);
66
67	display('Impresum',
68	rec('210'),
69	);
70
71	search_display('Series',
72	rec('225','a')
73	);
74
75	search_display('GeneralNote',
76	rec('300')
77	);
78