Changeset 70

Timestamp:

1998-12-11T14:46:59+13:00 (25 years ago)

Author:

sjboddie

Message:

Put sorting back in for now as removing it caused some problems for the
niupepa collection. Will need to look a little more closely at how to
do this.

File:

• trunk/gsdl/perllib/plugins/ArcPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -46 +46 @@
 
     # process each file
-    foreach $subfile (sort @$file_list) {
+    foreach $subfile (sort alphabetically @$file_list) {
         # note: metadata is not carried on to the next level
         my $tmp = &util::filename_cat ($file, $subfile->[0]);