[WWcvs] webwork-modperl: Fixed an error in creating the tarred archives (I had

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Fixed an error in creating the tarred archives (I had messed it up
when adding the report of how many files were archived).

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        FileManager.pm

Revision Data
-------------
Index: FileManager.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -Llib/WeBWorK/ContentGenerator/Instructor/FileManager.pm -Llib/WeBWorK/ContentGenerator/Instructor/FileManager.pm -u -r1.9 -r1.10
--- lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm
@@ -650,7 +650,8 @@
 	my $dir = $self->{courseRoot}.'/'.$self->{pwd};
 	my $archive = uniqueName($dir,(scalar(@files) == 1)?
 				 $files[0].".tgz": $self->{courseName}.".tgz");
-	my $tar = "cd '$dir' && $self->{ce}{externalPrograms}{tar} -czf $archive ";
+	my $tar = "cd '$dir' && $self->{ce}{externalPrograms}{tar} -cvzf $archive ";
+	$tar .= join(" ",@files);
 	my $files = `$tar`; chomp($files);
 	if ($? == 0) {
 		my @files = split(/\n/,$files);