[WWcvs] webwork-modperl: When exporting classlist to a file, tell the user the

[Arnie P. v. a. <we...@ma...>]

Log Message:
-----------
When exporting classlist to a file, tell the user the name and location of the
resulting file (e.g. templates/math1.lst) so they can find it in the File Mannager

Arnie

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

Revision Data
-------------
Index: UserList.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v
retrieving revision 1.65
retrieving revision 1.66
diff -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -u -r1.65 -r1.66
--- lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
@@ -1070,11 +1070,17 @@
 
 sub export_handler {
 	my ($self, $genericParams, $actionParams, $tableParams) = @_;
+	my $r       = $self->r;
+	my $ce      = $r->ce;
+	my $dir     = $ce->{courseDirs}->{templates};
 	
 	my $scope = $actionParams->{"action.export.scope"}->[0];
 	my $target = $actionParams->{"action.export.target"}->[0];
 	my $new = $actionParams->{"action.export.new"}->[0];
 	
+	#get name of templates directory as it appears in file manager
+	$dir =~ s|.*/||;
+	
 	my $fileName;
 	if ($target eq "new") {
 		$fileName = $new;
@@ -1095,7 +1101,7 @@
 	
 	$self->exportUsersToCSV($fileName, @userIDsToExport);
 	
-	return scalar @userIDsToExport . " users exported";
+	return scalar @userIDsToExport . " users exported to file    $dir/$fileName";
 }
 
 sub cancelEdit_form {