Changeset 37734 for main

Timestamp:

2023-05-04T12:03:34+12:00 (12 months ago)

Author:

davidb

Message:

Fix for when the first ever file-level doc version history action is applied to a document

File:

• main/trunk/greenstone2/perllib/cgiactions/modmetadataaction.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/cgiactions/modmetadataaction.pm

@@ -3173 +3173 @@
     
     ## shuffle all the nminus-<n> folders down by one
-
     
     foreach my $nminus_n (@sorted_fldv_filtered_dirs) {
@@ -3200 +3199 @@
     }
     }
-
+    else {
+    # first time asked to perform the inc-nminus-1 action for this doc,
+    #  and there is not yet even a _fldv directory!
+    # => make the directory (and that's all that's needed at this stage)
+    print STDERR "First time file-level document-version history has been applied to this document\n";
+    print STDERR "Creating $fldv_full_dirname\n";
+    
+    &FileUtils::makeDirectory($fldv_full_dirname);
+    }
+    
     if (!$had_error) {
     ### Now need to copy everything top level in doc dir into nminus-1