Changeset 6788
- Timestamp:
- 2004-02-12T15:50:59+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/exportcol.pl
r6054 r6788 352 352 } 353 353 &gsprintf($out, "{exportcol.success}"); 354 &gsprintf($out, "{exportcol.output_dir}\n", $topdir); 354 my $successcolls = ""; 355 my $first = 1; 356 foreach $c (@valid_coll_list) { 357 if ($first) { 358 $first=0; 359 } else { 360 $successcolls .=", "; 361 } 362 $successcolls .= "$c"; 363 364 } 365 366 &gsprintf($out, "{exportcol.output_dir}\n", $successcolls, $topdir); 367 &gsprintf($out, "{exportcol.instructions}\n"); 355 368 close OUT if $close_out; 356 369 } 370
Note:
See TracChangeset
for help on using the changeset viewer.