Changeset 6788

Timestamp:

2004-02-12T15:50:59+13:00 (20 years ago)

Author:

kjdon

Message:

added a bit more output for a successful export

File:

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

trunk/gsdl/bin/script/exportcol.pl

@@ -352 +352 @@
     }
     &gsprintf($out, "{exportcol.success}");
-    &gsprintf($out, "{exportcol.output_dir}\n", $topdir);
+    my $successcolls = "";
+    my $first = 1;
+    foreach $c (@valid_coll_list) {
+    if ($first) {
+        $first=0;
+    } else {
+        $successcolls .=", ";
+    }
+    $successcolls .= "$c";
+    
+    }
+
+    &gsprintf($out, "{exportcol.output_dir}\n", $successcolls, $topdir);
+    &gsprintf($out, "{exportcol.instructions}\n");
     close OUT if $close_out;
 }
+