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

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

revision 758 by dpavlin, Wed Oct 25 11:02:36 2006 UTC revision 773 by dpavlin, Fri Nov 3 20:41:12 2006 UTC
# Line 1  Line 1 
1    marc('022','a',
2            rec('022','a')
3    );
4    
5    marc('022','y',
6            rec('022','y')
7    );
8    
9    
10  marc_indicators('245', 0, 0);  marc_indicators('245', 0, 0);
11    
# Line 5  marc('245','a', Line 13  marc('245','a',
13          rec('245','a')          rec('245','a')
14  );  );
15    
16    marc('245','b',
17            rec('245','b')
18    );
19    
20  marc('245','h',  marc('245','h',
21          '[ Elektronička građa ]'          '[ Elektronička građa ]'
22  );  );
23    
24    marc_indicators('246', 0, 0);
25    
26    marc('246','a',
27            rec('246','a')
28    );
29    
30    marc('500','a',
31            rec('500','a')
32    );
33    
34    marc('500','a',
35            lookup(
36                    sub { 'Licenciran' },
37                    'wiley','licenced',
38                    sub {
39                            lc( rec('A') )
40                    },
41                    sub {
42                            regex('s/\s*(\.|:)\s*$//g',
43                                    lc( rec('245','a') )
44                            );
45                    },
46            )
47    );
48    
49    marc_indicators('650', ' ', 2);
50    
51    marc('650','a',
52            rec('650','a')
53    );
54    
55    marc('650','v',
56            rec('650','v')
57    );
58    
59    marc('650','z',
60            rec('650','z')
61    );
62    
63  marc('856','u',  marc('856','u',
64          rec('856','u')          rec('856','u')
65  );  );
66    
67    
Legend:
Removed from v.758  
changed lines
  Added in v.773
  ViewVC Help
Powered by ViewVC 1.1.26