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