Changeset 22360


Ignore:
Timestamp:
07/07/10 11:41:26 (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/bin/script/exportcol.pl

    r21762 r22360  
    315315
    316316    # new coll directory
    317     my $newcoldir = &util::filename_cat ($collectdir, $c);
     317    # $c might be in a group, for now, copy to the top level.
     318    my $new_c = $c;
     319    $new_c =~ s/^.*[\/\\]//; # remove any folder info
     320    my $newcoldir = &util::filename_cat ($collectdir, $new_c);
    318321
    319322    &util::mk_all_dir ($newcoldir);
Note: See TracChangeset for help on using the changeset viewer.