Changeset 23119

Show
Ignore:
Timestamp:
12.10.2010 13:58:44 (9 years ago)
Author:
kjdon
Message:

removed some print statements, and don't go into .svn folder when reading through a directory

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/inexport.pm

    r23053 r23119  
    376376    my $manifest_lookup = new manifest($collectcfg->{'infodbtype'},$archivedir); 
    377377    if ($self->{'manifest'} ne "") { 
    378     print STDERR "parsing manifest\n"; 
    379378    my $manifest_filename = $self->{'manifest'}; 
    380379 
     
    528527    # 1. Process delete files first 
    529528    #  
    530  
    531529    my @deleted_files = keys %{$manifest_lookup->{'delete'}}; 
    532530    my @full_deleted_files = (); 
     
    534532    # ensure all filenames are absolute 
    535533    foreach my $df (@deleted_files) { 
    536         #print STDERR "**delete file $df\n"; 
    537534        my $full_df = 
    538535        (&util::filename_is_absolute($df))  
     
    559556    my @reindex_files = keys %{$manifest_lookup->{'reindex'}}; 
    560557    my @full_reindex_files = (); 
    561  
    562558    # ensure all filenames are absolute 
    563559    foreach my $rf (@reindex_files) {        
     
    580576    # appropriate plugin, we need to add it to block_hash reindex list 
    581577    foreach my $full_rf (@full_reindex_files) { 
    582         #print STDERR "***reindex file $full_rf\n"; 
    583578        $block_hash->{'reindex_files'}->{$full_rf} = 1; 
    584579    } 
     
    593588 
    594589    foreach my $nf (@new_files) { 
    595         #print STDERR "***index file $nf\n"; 
    596590        # ensure filename is absolute 
    597591        my $full_nf = 
     
    11591153    my $subfile = $dir[$i]; 
    11601154    next if ($subfile =~ m/^\.\.?$/); 
     1155    next if ($subfile =~ /^\.svn$/); 
    11611156    my $full_file = &util::filename_cat($dirname, $subfile); 
    11621157    if (-d $full_file) {