Changeset 22360

Show
Ignore:
Timestamp:
07.07.2010 11:41:26 (9 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.

Files:
1 modified

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);