conf/normalize/webpacus-unimarc.pl


search_display('ISBN',
        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			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