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 {
|
