Changeset 17294

Timestamp:

2008-09-17T06:20:47+12:00 (16 years ago)

Author:

kjdon

Message:

added a fix for a bug John T discovered where in get_new_doc_dir you can come out of the while loop and still have a directory name that already exists (because you have run out of doc_dir_rest). This occurs if you have OIDs that are prefixes of other ones and the longer ones get processed first.

File:

• gsdl/trunk/perllib/plugouts/BasePlugout.pm (modified) (1 diff)

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -565 +565 @@
         ((-d &util::filename_cat ($working_dir, "$doc_dir.dir")) || 
          ($working_info->size() >= 1024 && $doc_dir_num < 2)));
-   
+   my $i = 1;
+   my $doc_dir_base = $doc_dir;
+   while (-d &util::filename_cat ($working_dir, "$doc_dir.dir")) {
+       $doc_dir = "$doc_dir_base-$i";
+       $i++;
+   }
+          
    return "$doc_dir.dir";
 }