Changeset 20764

Timestamp:

2009-09-30T13:52:07+13:00 (15 years ago)

Author:

kjdon

Message:

making the reverse lookup contain full paths not relative ones

File:

• gsdl/trunk/perllib/inexport.pm (modified) (3 diffs)

gsdl/trunk/perllib/inexport.pm

@@ -280 +280 @@
     my $oids = $src_rec->{'oid'};
     foreach my $oid (@$oids) {
-
         # Find out if it's a main doc, assoc file, or metadata
 
@@ -334 +333 @@
         my $val = &GDBMUtils::gdbmDatabaseGet($arcinfo_doc_filename,$oid);
         my ($index_status) = ($val =~ m/^<index-status>(.*)$/m);
-
 
         if ($index_status ne "D") {
@@ -389 +387 @@
 
     foreach my $existing_filename (@existing_files) {
-    
     if (-M $existing_filename < $archiveinf_timestamp) {
         # file is newer than last build
         
         my $existing_file = $existing_filename;
-        my $collectdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'});
-
-        my $collectdir_resafe = &util::filename_to_regex($collectdir);
-        $existing_file =~ s/^$collectdir_resafe(\\|\/)?//;
+        #my $collectdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'});
+
+        #my $collectdir_resafe = &util::filename_to_regex($collectdir);
+        #$existing_file =~ s/^$collectdir_resafe(\\|\/)?//;
         
-###     print STDERR "**** Deleting existing file: $existing_file\n";
+        print STDERR "**** Reindexing existing file: $existing_file\n";
 
         push(@$reindex_files,$existing_file);