conf/normalize/webpacus-unimarc.pl


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

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