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

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

revision 1094 by dpavlin, Sun Dec 23 17:51:43 2007 UTC revision 1095 by dpavlin, Fri Aug 1 23:41:47 2008 UTC
# Line 14  if ( Line 14  if (
14  #       ) ) > 1  #       ) ) > 1
15  ) {  ) {
16    
   
17  my $series_key =  my $series_key =
18  join_with('',  join_with('',
19          rec('225','a'),          rec('225','a'),
# Line 25  join_with('', Line 24  join_with('',
24  my $series = get( $series_key );  my $series = get( $series_key );
25    
26  if ( $series ) {  if ( $series ) {
27          warn "nije novi";          # warn "nije novi";
28  } else {  } else {
29    
30    
# Line 174  marc_remove('260','c'); Line 173  marc_remove('260','c');
173    
174  #_debug(0);  #_debug(0);
175    
176  #marc_duplicate();  marc_duplicate();
177  #marc_remove('*');  marc_remove('*');
178    
179    
180  } # $series  } # $series

Legend:
Removed from v.1094  
changed lines
  Added in v.1095

  ViewVC Help
Powered by ViewVC 1.1.26