/[webpac2]/trunk/conf/normalize/mapping.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/mapping.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 547 - (show annotations)
Thu Jun 29 23:19:26 2006 UTC (17 years, 9 months ago) by dpavlin
File MIME type: text/plain
File size: 1319 byte(s)
 r742@llin:  dpavlin | 2006-06-30 01:21:24 +0200
 added marc_repetable_subfield and marc_indicators, renamed marc21 to marc [2.23]

1 marc('001',
2 rec('000')
3 );
4
5 marc('020','a',
6 rec('010')
7 );
8
9 marc_repeatable_subfield('041','a',
10 rec('101')
11 );
12
13 marc_indicators('245', 0, 0);
14
15 marc('245','a',
16 rec('200','a')
17 );
18
19 marc('245','b',
20 join_with(' : ',
21 rec('200','d'),
22 rec('200','e')
23 )
24 );
25
26 marc('245','c',
27 join_with(' ; ',
28 rec('200','f'),
29 rec('200','g')
30 )
31 );
32
33 marc('250','a',
34 rec('205','a')
35 );
36
37 marc('260','a',
38 rec('210','a')
39 );
40
41 marc('260','b',
42 rec('210','c')
43 );
44
45 marc('260','c',
46 rec('210','d')
47 );
48
49 marc('300','a',
50 rec('215','a')
51 );
52
53 marc('300','b',
54 rec('215','c')
55 );
56
57 marc('300','c',
58 rec('215','d')
59 );
60
61 marc('300','e',
62 rec('215','e')
63 );
64
65 marc('490','a',
66 join_with(' = ',
67 rec('225','a'),
68 join_with(" : ",
69 rec('225','d'),
70 join_with(" / ",
71 rec('225','e'),
72 rec('225','f')
73 )
74 )
75 )
76 );
77
78 marc('490','v',
79 rec('225','v')
80 );
81
82 marc('500','a',
83 rec('300')
84 );
85
86 marc('504','a',
87 rec('320')
88 );
89
90 marc_indicators('655', ' ', 4);
91 marc('655','a',
92 rec('610')
93 );
94
95 marc_indicators('100', 0, ' ');
96 marc('100','a',
97 join_with(', ',
98 rec('700', 'a'),
99 rec('700', 'b')
100 )
101 );
102
103 marc('700','a',
104 join_with(', ',
105 rec('701', 'a'),
106 rec('701', 'b')
107 )
108 );
109
110 if ( rec('701') ) {
111 marc('700','4',
112 '070'
113 );
114 }
115
116 marc('700','a',
117 join_with(', ',
118 rec('702','a'),
119 rec('702','b')
120 )
121 );
122
123 if ( rec('702') ) {
124 marc('700','4',
125 '340'
126 );
127 }
128
129
130

  ViewVC Help
Powered by ViewVC 1.1.26