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