/[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

Diff of /trunk/conf/normalize/mapping.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

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