Parent Directory | Revision Log
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 |