/[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 537 by dpavlin, Thu Jun 29 10:26:12 2006 UTC revision 549 by dpavlin, Fri Jun 30 10:16:05 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',  if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
10            marc_indicators('041', 1, ' ');
11    } else {
12            marc_indicators('041', 0, ' ');
13    }
14    
15    marc_repeatable_subfield('041','a',
16          rec('101')          rec('101')
17  );  );
18    
19  marc21('245','a',  marc_indicators('245', 0, 0);
20    
21    marc('245','a',
22          rec('200','a')          rec('200','a')
23  );  );
24    
25  marc21('245','b',  marc('245','b',
26          join_with(' : ',          join_with(' : ',
27                  rec('200','d'),                  rec('200','d'),
28                  rec('200','e')                  rec('200','e')
29          )          )
30  );  );
31    
32  marc21('245','c',  marc('245','c',
33          join_with(' ; ',          join_with(' ; ',
34                  rec('200','f'),                  rec('200','f'),
35                  rec('200','g')                  rec('200','g')
36          )          )
37  );  );
38    
39  marc21('250','a',  marc('250','a',
40          rec('205','a')          rec('205','a')
41  );  );
42    
43  marc21('260','a',  marc('260','a',
44          rec('210','a')          rec('210','a')
45  );  );
46    
47  marc21('260','b',  marc('260','b',
48          rec('210','c')          rec('210','c')
49  );  );
50    
51  marc21('260','c',  marc('260','c',
52          rec('210','d')          rec('210','d')
53  );  );
54    
55  marc21('300','a',  marc('300','a',
56          rec('215','a')          rec('215','a')
57  );  );
58    
59  marc21('300','b',  marc('300','b',
60          rec('215','c')          rec('215','c')
61  );  );
62    
63  marc21('300','c',  marc('300','c',
64          rec('215','d')          rec('215','d')
65  );  );
66    
67  marc21('300','e',  marc('300','e',
68          rec('215','e')          rec('215','e')
69  );  );
70    
71  marc21('490','a',  marc('490','a',
72          join_with(' = ',          join_with(' = ',
73                  rec('225','a'),                  rec('225','a'),
74                  join_with(" :  ",                  join_with(" :  ",
# Line 73  marc21('490','a', Line 81  marc21('490','a',
81          )          )
82  );  );
83    
84  marc21('490','v',  marc('490','v',
85          rec('225','v')          rec('225','v')
86  );  );
87    
88  marc21('500','a',  marc('500','a',
89          rec('300')          rec('300')
90  );  );
91    
92  marc21('504','a',  marc('504','a',
93          rec('320')          rec('320')
94  );  );
95    
96  marc21('655','a',  marc_indicators('655', ' ', 4);
97    marc('655','a',
98          rec('610')          rec('610')
99  );  );
100    
101  marc21('500','a',  marc_indicators('100', 1, ' ');
102          rec('300')  marc('100','a',
 );  
   
 marc21('504','a',  
         rec('320')  
 );  
   
 marc21('655','a',  
         rec('610')  
 );  
   
 marc21('100','a',  
103          join_with(', ',          join_with(', ',
104                  rec('700', 'a'),                  rec('700', 'a'),
105                  rec('700', 'b')                  rec('700', 'b')
106          )          )
107  );  );
108    
109  marc21('700','a',  
110    marc_indicators('700', 1, ' ');
111    marc('700','a',
112          join_with(', ',          join_with(', ',
113                  rec('701', 'a'),                  rec('701', 'a'),
114                  rec('701', 'b')                  rec('701', 'b')
# Line 116  marc21('700','a', Line 116  marc21('700','a',
116  );  );
117    
118  if ( rec('701') ) {  if ( rec('701') ) {
119          marc21('700','4',          marc('700','4',
120                  '070'                  '070'
121          );          );
122  }  }
123    
124  marc21('700','a',  marc('700','a',
125          join_with(', ',          join_with(', ',
126                  rec('702','a'),                  rec('702','a'),
127                  rec('702','b')                  rec('702','b')
# Line 129  marc21('700','a', Line 129  marc21('700','a',
129  );  );
130    
131  if ( rec('702') ) {  if ( rec('702') ) {
132          marc21('700','4',          marc('700','4',
133                  '340'                  '340'
134          );          );
135  }  }
Legend:
Removed from v.537  
changed lines
  Added in v.549
  ViewVC Help
Powered by ViewVC 1.1.26