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

Contents of /trunk/conf/normalize/webpacus.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 964 - (show annotations)
Fri Nov 2 13:00:55 2007 UTC (16 years, 6 months ago) by dpavlin
File MIME type: text/plain
File size: 934 byte(s)
 r1471@llin:  dpavlin | 2007-11-02 14:00:35 +0100
 local

1 search_display('ISBN',
2 isbn_13(
3 rec('020','a')
4 )
5 );
6
7 search_display('ISBN_incorrect',
8 rec('010','z')
9 );
10
11 search_display('ISSN',
12 rec('022','a')
13 );
14
15
16 search_display('Language',
17 rec('041','a')
18 );
19
20 search_display('TitleProper',
21 join_with('',
22 rec('245','a'),
23 join_with(' / ',
24 rec('245','b'),
25 rec('245','c')
26 )
27 )
28 );
29
30 # regex('s/\s*[=:\/;]\s*//g',
31
32 sorted('TitleProper',
33 rec('245','a'),
34 );
35
36 search_display('ReminderTitle',
37 join_with(' : ',
38 prefix(' = ',
39 rec('245','d')
40 ),
41 rec('245','e')
42 )
43 );
44
45 #display('Pripadajuci',
46 # lookup(
47 # sub { rec('200','a') },
48 # 'hidra','bib',
49 # sub { rec('900') },
50 # sub { rec('451','a') }
51 # )
52 #);
53
54
55 search('PlacePublication',
56 rec('260','a')
57 );
58
59 search('NamePublisher',
60 rec('260','b'),
61 );
62
63 search_display('DatePublication',
64 rec('260','c')
65 );
66
67 display('Impresum',
68 rec('260'),
69 );
70
71 search_display('Dimensions',
72 rec('300','c')
73 );
74
75 search_display('GeneralNote',
76 rec('500')
77 );
78

  ViewVC Help
Powered by ViewVC 1.1.26