local
[webpac2] / conf / normalize / webpacus-hidra.pl
1 search_display('TitleProper',
2         join_with(' / ',
3                 join_with(' = ',
4                         join_with(' ',
5                                 join_with(' ',
6                                         rec('200','a'),
7                                         rec('200','c')
8                                 ),
9                                 rec('200','b'),
10                         ),
11                         rec('200','d'),
12                 ),
13                 rec('200','f'),
14         )
15 );
16         
17 # regex('s/\s*[=:\/;]\s*//g',
18
19 display('Edition',
20         rec('205','a')
21 );
22
23 display('Impressum',
24         join_with(', ',
25                 join_with(' : ',
26                         rec('210','a'),
27                         rec('210','c'),
28                 ),
29                 rec('210','d'),
30         )
31 );
32
33 display('Series',
34         rec('225','a'),
35 );
36
37
38 display('SeeAlso',
39         lookup(
40                 sub { [ rec('200','a') . rec('200','c'),  rec('451','a') ] },
41                 'hidra','bib',
42                 sub { rec('900') },
43                 sub { rec('451','1') }
44         )
45 );
46
47 display('Fond',
48         lookup(
49                 sub { rec('200','a') },
50                 'hidra','bib',
51                 sub { rec('900') },
52                 sub { rec('946','1') }
53         )
54 );      
55
56 display('Direktive',
57         lookup(
58                 sub { rec('200','a') . ', ' . rec('856','u') },
59                 'hidra','dir',
60                 sub { rec('900') },
61                 sub { rec('859','1') }
62         )
63 );
64
65 display('Set',
66         lookup(
67                 sub { rec('200','a') },
68                 'hidra','bib',
69                 sub { rec('900') },
70                 sub { rec('946','1') },
71         )
72 );
73
74 display('GeneralNote',
75         rec('300','a')
76 );
77
78 display('URL',
79         rec('856','u')
80 );
81