From: <we...@ma...> - 2005-05-27 17:43:05
|
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 { |