Changeset 37150

Timestamp:

2023-01-18T14:51:55+13:00 (15 months ago)

Author:

davidb

Message:

Rewording of warning to make what is happening clear (motivated by file-level document-version history feature)

File:

• main/trunk/greenstone2/perllib/arcinfo.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/arcinfo.pm

@@ -159 +159 @@
 
     if ((defined $filename) && &FileUtils::fileExists($filename)) {
+        
     if ($filename =~ m/\.inf$/) {
         # e.g. 'archives-src.inf' (which includes complete list of file
@@ -170 +171 @@
 }
 
+# Loads in reverse-lookup info:
+#   Key   = a file in import
+#   Value = all the the doc ids that file is used in
+#
 sub load_rev_info
 {
@@ -326 +331 @@
         # where the document already seems to exist
         print STDERR "Warning: $OID already exists with index status $existing_status_info\n";
-        print STDERR "         Deleting previous version\n";
+        print STDERR "         Deleting previous version stored in archiveinfo\n";
 
         $self->delete_info ($OID);