/[webpac2]/trunk/conf/normalize/webpacus-hidra.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/conf/normalize/webpacus-hidra.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1085 - (show annotations)
Sun Dec 23 22:06:37 2007 UTC (16 years, 4 months ago) by dpavlin
File MIME type: text/plain
File size: 1100 byte(s)
local

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

  ViewVC Help
Powered by ViewVC 1.1.26