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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 937 - (hide annotations)
Wed Oct 31 12:17:09 2007 UTC (16 years, 6 months ago) by dpavlin
File MIME type: text/plain
File size: 736 byte(s)
 r1415@llin:  dpavlin | 2007-10-31 13:14:40 +0100
 test normalize rules which I'm using for Webpacus

1 dpavlin 937
2     search_display('ISBN',
3     rec('020','a')
4     );
5    
6     search_display('ISBN_incorrect',
7     rec('010','z')
8     );
9    
10     search_display('ISSN',
11     rec('022','a')
12     );
13    
14    
15     search_display('Language',
16     rec('040','a')
17     );
18    
19     search_display('TitleProper',
20     rec('245','a')
21     );
22    
23     sorted('TitleProper',
24     rec('245','a'),
25     );
26    
27     search_display('ReminderTitle',
28     join_with(' : ',
29     prefix(' = ',
30     rec('245','d')
31     ),
32     rec('245','e')
33     )
34     );
35    
36     search_display('StatementResponsibility',
37     rec('245','f'),
38     );
39    
40    
41     search('PlacePublication',
42     rec('260','a')
43     );
44    
45     search('NamePublisher',
46     rec('260','b'),
47     );
48    
49     search_display('DatePublication',
50     rec('260','c')
51     );
52    
53     display('Impresum',
54     rec('260'),
55     );
56    
57     search_display('Dimensions',
58     rec('300','c')
59     );
60    
61     search_display('GeneralNote',
62     rec('500')
63     );
64    

  ViewVC Help
Powered by ViewVC 1.1.26