/[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 1007 - (show annotations)
Sun Nov 4 19:11:46 2007 UTC (16 years, 6 months ago) by dpavlin
File MIME type: text/plain
File size: 936 byte(s)
 r1555@llin:  dpavlin | 2007-11-04 20:11:37 +0100
 remove debug output

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('245','a') },
48 'webpacus','foobar',
49 sub { rec('774','w') },
50 sub { rec('035','6') }
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