Log Message:
-----------
formatting changes
Modified Files:
--------------
pg/macros:
PG.pl
parserFunction.pl
Revision Data
-------------
Index: PG.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PG.pl,v
retrieving revision 1.37
retrieving revision 1.38
diff -Lmacros/PG.pl -Lmacros/PG.pl -u -r1.37 -r1.38
--- macros/PG.pl
+++ macros/PG.pl
@@ -612,9 +612,6 @@
(\$STRINGforOUTPUT, \$STRINGforHEADER_TEXT,\%PG_ANSWERS_HASH,eval(q!\%main::PG_FLAGS!));
}
-=back
-
-=cut
################################################################################
Index: parserFunction.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/parserFunction.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -Lmacros/parserFunction.pl -Lmacros/parserFunction.pl -u -r1.12 -r1.13
--- macros/parserFunction.pl
+++ macros/parserFunction.pl
@@ -160,9 +160,14 @@
return (($Df->substitute($x=>$g))*($g->D(@_)))->{tree}->reduce;
}
+=head3 NameForNumber($number)
+
#
# Get the name for a number
#
+
+=cut
+
sub NameForNumber {
my $n = shift;
my $name = ('zeroth','first','second','third','fourth','fifth',
|
