Changeset 37150 for main/trunk/greenstone2/perllib/arcinfo.pm
- Timestamp:
- 2023-01-18T14:51:55+13:00 (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/arcinfo.pm
r33167 r37150 159 159 160 160 if ((defined $filename) && &FileUtils::fileExists($filename)) { 161 161 162 if ($filename =~ m/\.inf$/) { 162 163 # e.g. 'archives-src.inf' (which includes complete list of file … … 170 171 } 171 172 173 # Loads in reverse-lookup info: 174 # Key = a file in import 175 # Value = all the the doc ids that file is used in 176 # 172 177 sub load_rev_info 173 178 { … … 326 331 # where the document already seems to exist 327 332 print STDERR "Warning: $OID already exists with index status $existing_status_info\n"; 328 print STDERR " Deleting previous version \n";333 print STDERR " Deleting previous version stored in archiveinfo\n"; 329 334 330 335 $self->delete_info ($OID);
Note:
See TracChangeset
for help on using the changeset viewer.