Log Message:
-----------
pad entries with appended (rather than prepended) spaces so that sorting
will work properly in Excel, etc.
Arnie
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
Scoring.pm
Revision Data
-------------
Index: Scoring.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Scoring.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -Llib/WeBWorK/ContentGenerator/Instructor/Scoring.pm -Llib/WeBWorK/ContentGenerator/Instructor/Scoring.pm -u -r1.41 -r1.42
--- lib/WeBWorK/ContentGenerator/Instructor/Scoring.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/Scoring.pm
@@ -691,7 +691,8 @@
my ($self, $string, $padTo) = @_;
$string = '' unless defined $string;
my $spaces = $padTo - length $string;
- return " "x$spaces.$string;
+# return " "x$spaces.$string;
+ return $string." "x$spaces;
}
sub maxLength {
|
