Changeset 16252

Timestamp:

2008-06-30 16:13:08 (5 months ago)

Author:

mdewsnip

Message:

Fixes to get_doc_dir() and get_new_doc_dir() so if you are importing the same document multiple times it doesn't generate a new archives directory with another ".dir" at the end every time.

Files:

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

gsdl/trunk/perllib/plugouts/BasPlugout.pm

@@ -517 +517 @@
-    my $doc_dir = '';
-
- {
-
-same one.
+
+
+This OID already has an archives directory, so use it again
-        $doc_dir = $doc_info->[0];
-        $doc_dir =~ s/\/?((doc(mets)?)|(dublin_core))\.xml(\.gz)?$//;
-
+
+
+
-        $source_filename = &File::Basename::dirname($source_filename);
-        $source_filename =~ s/[\\\/]+/\//g;
@@ -528 +530 @@
-
-        $doc_dir = substr($source_filename, length($ENV{'GSDLIMPORTDIR'}) + 1);
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-    if (!defined $self->{'group'} || !$self->{'group'}){
-        &util::mk_all_dir (&util::filename_cat ($working_dir, $doc_dir));
-    }
+
-    return $doc_dir;
-}
@@ -559 +563 @@
-             ($working_info->size() >= 1024 && $doc_dir_num < 2)));
-   
-
-
+
-}
-