Changeset 22360

Timestamp:

2010-07-07T11:41:26+12:00 (14 years ago)

Author:

kjdon

Message:

for now, if a collection was part of a group, just copy to the top level of collect. Groups not preserved for the cd.

File:

• main/trunk/greenstone2/bin/script/exportcol.pl (modified) (1 diff)

main/trunk/greenstone2/bin/script/exportcol.pl

@@ -315 +315 @@
 
     # new coll directory
-    my $newcoldir = &util::filename_cat ($collectdir, $c);
+    # $c might be in a group, for now, copy to the top level.
+    my $new_c = $c;
+    $new_c =~ s/^.*[\/\\]//; # remove any folder info
+    my $newcoldir = &util::filename_cat ($collectdir, $new_c);
 
     &util::mk_all_dir ($newcoldir);