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	dpavlin	964
2			search_display('ISBN',
3	dpavlin	974	isbn_13(
4			rec('10')
5			)
6	dpavlin	964	);
7
8	dpavlin	974	warn "### isbn_13 = ",dump(
9			isbn_13(
10			rec('10')
11			)
12			);
13
14	dpavlin	964	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