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

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

revision 902 by dpavlin, Thu Sep 6 19:12:31 2007 UTC revision 903 by dpavlin, Wed Oct 10 21:00:48 2007 UTC
# Line 27  marc_fixed('007',00,'ta'); Line 27  marc_fixed('007',00,'ta');
27    
28  ## 008 - All materials  ## 008 - All materials
29  marc_fixed('008','00', '070707');       # Date entered on file  marc_fixed('008','00', '070707');       # Date entered on file
30  marc_fixed('008','06', 's');            # Type of date/Publication status  marc_fixed('008','06', 't');            # Type of date/Publication status
31  if ( rec('11') ) {  if ( rec('11') ) {
32          if ( my $lookup = lookup(          if ( my $lookup = lookup(
33                          sub { rec('210','d') },                          sub { rec('210','d') },
# Line 43  if ( rec('11') ) { Line 43  if ( rec('11') ) {
43                  );                  );
44          }          }
45  }                                       # Date 1  }                                       # Date 1
46  marc_fixed('008','11', ' ');            # Date 2  
47    # marc_fixed('008','11', ' ');          # Date 2
48  marc_fixed('008','15',  marc_fixed('008','15',
49          lc ( rec('102') )          lc ( rec('102') )
50  );                              # Place of publication, production, or execution  );                              # Place of publication, production, or execution
# Line 55  marc_fixed('008','39','d');    # Cataloging Line 56  marc_fixed('008','39','d');    # Cataloging
56    
57    
58  ## 008 - Continuing resources  ## 008 - Continuing resources
59  marc_fixed('008','18', '|');    # Frequency  marc_fixed('008','18', '|');    # Frequency - ovo treba popuniti iz polja 326
60  marc_fixed('008','19', '|');    # Regularity  marc_fixed('008','19', '|');    # Regularity
61  marc_fixed('008','21', 'p');    # Type of continuing resource  marc_fixed('008','21', 'p');    # Type of continuing resource
62  marc_fixed('008','29', '|');    # Conference publication  marc_fixed('008','29', '|');    # Conference publication
# Line 64  marc_fixed('008','34', '|');   # Entry con Line 65  marc_fixed('008','34', '|');   # Entry con
65    
66    
67  ## 022  ## 022
68  if ( ! rec('225','a') ) {  # if ( ! rec('225','a') ) {
69          marc('022','a',  #       marc('022','a',
70                  rec('11')  #               rec('11')
71          );  #       );
72  }  # }
73    #
74    
75    ## 022
76    marc('022','a',
77            rec('11')
78    );
79    
80    
81  # 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
82    
# Line 105  marc_repeatable_subfield('041','a', Line 113  marc_repeatable_subfield('041','a',
113  ## 044 - zemlja izdavanja  ## 044 - zemlja izdavanja
114    
115  if ( rec('11') ) {  if ( rec('11') ) {
116          marc('044','a',          if ( my $lookup = lookup(
                 lookup(  
117                          sub { rec('102','a') },                          sub { rec('102','a') },
118                          'nsk','bbaza',                          'nsk','bbaza',
119                          sub { first( rec('011','a') ) },                          sub { first( rec('011','a') ) },
120                          sub { rec('11') },                          sub { rec('11') },
121                  ),                  )
122          );          ) {
123  }                  marc('044','a', $lookup );
124            } else {
125                    marc('044','a',
126                            rec('102')
127                    );
128            }
129    }
130    
131  marc('080','a',  marc('080','a',
132          rec('675','a')          rec('675','a')
Legend:
Removed from v.902  
changed lines
  Added in v.903
  ViewVC Help
Powered by ViewVC 1.1.26