Ignore:
Timestamp:
2009-09-30T13:52:07+13:00 (13 years ago)
Author:
kjdon
Message:

making the reverse lookup contain full paths not relative ones

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/inexport.pm

    r20578 r20764  
    280280    my $oids = $src_rec->{'oid'};
    281281    foreach my $oid (@$oids) {
    282 
    283282        # Find out if it's a main doc, assoc file, or metadata
    284283
     
    334333        my $val = &GDBMUtils::gdbmDatabaseGet($arcinfo_doc_filename,$oid);
    335334        my ($index_status) = ($val =~ m/^<index-status>(.*)$/m);
    336 
    337335
    338336        if ($index_status ne "D") {
     
    389387
    390388    foreach my $existing_filename (@existing_files) {
    391    
    392389    if (-M $existing_filename < $archiveinf_timestamp) {
    393390        # file is newer than last build
    394391       
    395392        my $existing_file = $existing_filename;
    396         my $collectdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'});
    397 
    398         my $collectdir_resafe = &util::filename_to_regex($collectdir);
    399         $existing_file =~ s/^$collectdir_resafe(\\|\/)?//;
     393        #my $collectdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'});
     394
     395        #my $collectdir_resafe = &util::filename_to_regex($collectdir);
     396        #$existing_file =~ s/^$collectdir_resafe(\\|\/)?//;
    400397       
    401 ###     print STDERR "**** Deleting existing file: $existing_file\n";
     398        print STDERR "**** Reindexing existing file: $existing_file\n";
    402399
    403400        push(@$reindex_files,$existing_file);
Note: See TracChangeset for help on using the changeset viewer.