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

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

revision 758 by dpavlin, Wed Oct 25 11:02:36 2006 UTC revision 1010 by dpavlin, Tue Nov 6 20:20:37 2007 UTC
# Line 1  Line 1 
1  # Leader  ### Leader
 #  
2    
3  marc_leader('05','n');  marc_leader('05','n');
4  marc_leader('06','a');  marc_leader('06','a');
5  if ( rec('990') ) {  #if ( rec('990') ) {
6          marc_leader('07','a');  #       marc_leader('07','a');
7  } else {  #} else {
8          marc_leader('07','b');          marc_leader('07','b');
9  };  #};
10  marc_leader('18','i');  marc_leader('18','i');
11    
12    ### 007
13    marc_fixed('007',00,'ta');
14    
15    ### 008
16    
17    ### 035
18  # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku  # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku
19    
20  #marc('035','6',  marc('035','6',
21  #join_with('',  join_with('',
22  #               config('input normalize path'),                  config('input normalize path'),
23  #               config('name'),  #               config('name'),
24  #               config('input name'),  #               config('input name'),
25  #               config(),  #               config(),
# Line 24  marc_leader('18','i'); Line 29  marc_leader('18','i');
29  #       )  #       )
30  #);  #);
31    
32    
33    ### 020
34    
35  marc('020','a',  marc('020','a',
36          rec('10')          rec('10')
37  );  );
38    
39  # u polje 040a možda još dodati prefiks HR  ### 040
40    
41  marc('040','a',  marc('040','a',
42          'FFZG'          'HR FFZG'
43  );  );
44    
45  marc('040','b',  marc('040','b',
46          'hrv'          'hrv'
47  );  );
48    
49    marc('040','e',
50            'HR PPIAK'
51    );
52    
53    ### 245 indikatori
54    
55  marc_indicators('245', 0, 0);  marc_indicators('245', 0, 0);
56    
57  #_debug(3);  #_debug(3);
# Line 50  marc_compose('245', Line 64  marc_compose('245',
64                  rec('203','e') ? ' : '  :                  rec('203','e') ? ' : '  :
65                  rec('203','f') ? ' / '  :                  rec('203','f') ? ' / '  :
66                                   '.',                                   '.',
67                          rec('203','a')                          join_with('. ',
68                                    rec('203','a')
69                            )
70          ),          ),
71          'h', rec('203','b'),          'h', rec('203','b'),
72          'b',          'b',
73                  join_with(' ; ',          join_with(' ; ',
74                          rec('203','k'),                  rec('203','k'),
75                  ),          ),
76          'b', rec('203','d'),          'b',
77            join_with(' = ',
78                    rec('203','d'),
79            ),
80          'b',          'b',
81                  join_with(' : ',          join_with(' : ',
82                          rec('203','e'),                  rec('203','e'),
83                  ),          ),
84          'c',          'c',
85                  join_with(' ; ',          join_with(' ; ',
86                          rec('203','f'),                  rec('203','f'),
87                  ),          ),
88          '+', prefix('. ', rec('203','c') ),          '+', prefix('. ', rec('203','c') ),
89  );  );
90    
Legend:
Removed from v.758  
changed lines
  Added in v.1010
  ViewVC Help
Powered by ViewVC 1.1.26