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

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

revision 791 by dpavlin, Fri Nov 3 20:41:12 2006 UTC revision 792 by dpavlin, Tue Jan 30 18:23:53 2007 UTC
# Line 20  marc('022','a', Line 20  marc('022','a',
20  );  );
21    
22    
23  marc_indicators('245', 0, 0);  marc_indicators('245', 1, 0);
24  marc('245','a',  
25          rec('200','a')  if (    ( rec('200','a') =~ m/^Die /) ||
26            ( rec('200','a') =~ m/^Das /) ||
27            ( rec('200','a') =~ m/^The /) ) {
28                    marc_indicators('245', 1, 4);
29    }
30    
31    if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
32            {
33                    marc_indicators('245', 1, 2);
34    }
35    
36    
37    ### 245
38    # redoslijed polja
39    
40    #_debug(3);
41    marc_compose('245',
42            'a', suffix(
43                    rec('200','b') ? '. '   :
44                    rec('200','k') ? ' ; '  :
45                    rec('200','d') ? ' = '  :
46                    rec('200','e') ? ' : '  :
47                    rec('200','f') ? ' / '  :
48                                     '.',
49                            rec('200','a')
50            ),
51    #       'h', rec('200','b'),
52            'b', suffix(
53                    ( rec('200','k') && rec('200','f') ) ? ' / ' :
54                                         ' ',
55                            join_with(' ; ',
56                                    rec('200','k'),
57                            ),
58            ),
59            'b', suffix(
60                    ( rec('200','d') && rec('200','f') ) ? ' / ' :
61                                                           ' ',
62                                    rec('200','d'),
63            ),
64            'b', suffix(
65                    ( rec('200','e') && rec('200','f') ) ? ' / ' :
66                                                           ' ',
67                            join_with(' : ',
68                                    rec('200','e'),
69                            ),
70            ),
71    
72            'c', rec('200','f'),
73    
74    # append to last subfield
75            '+', prefix('. ',
76                    rec('200','c')
77            ),
78  );  );
79    
80    
81    marc('260','c',
82            rec('210','d')
83            
84    );
85    
86  }  }
Legend:
Removed from v.791  
changed lines
  Added in v.792
  ViewVC Help
Powered by ViewVC 1.1.26