/[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 1007 - (hide 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 dpavlin 937 search_display('ISBN',
2 dpavlin 964 isbn_13(
3     rec('020','a')
4     )
5 dpavlin 937 );
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 dpavlin 964 rec('041','a')
18 dpavlin 937 );
19    
20     search_display('TitleProper',
21 dpavlin 964 join_with('',
22     rec('245','a'),
23     join_with(' / ',
24     rec('245','b'),
25     rec('245','c')
26     )
27     )
28 dpavlin 937 );
29    
30 dpavlin 964 # regex('s/\s*[=:\/;]\s*//g',
31    
32 dpavlin 937 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 dpavlin 1005 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 dpavlin 937
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