[WWcvs] pg: Allow labels A - ZZ Arnie

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

Log Message:
-----------
Allow labels A - ZZ

Arnie

Modified Files:
--------------
    pg/macros:
        PGbasicmacros.pl
        PGchoicemacros.pl

Revision Data
-------------
Index: PGbasicmacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGbasicmacros.pl,v
retrieving revision 1.36
retrieving revision 1.37
diff -Lmacros/PGbasicmacros.pl -Lmacros/PGbasicmacros.pl -u -r1.36 -r1.37
--- macros/PGbasicmacros.pl
+++ macros/PGbasicmacros.pl
@@ -1660,7 +1660,7 @@
 sub OL {
 	my(@array) = @_;
 	my $i = 0;
-	my @alpha = ("A".."Z");
+	my @alpha = ('A'..'Z', 'AA'..'ZZ');
 	my $letter;
 	my	$out= 	&M3(
 					"\\begin{enumerate}\n",
Index: PGchoicemacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGchoicemacros.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -Lmacros/PGchoicemacros.pl -Lmacros/PGchoicemacros.pl -u -r1.6 -r1.7
--- macros/PGchoicemacros.pl
+++ macros/PGchoicemacros.pl
@@ -528,7 +528,7 @@
 	my $self = shift;
 	my(@array) = @_;
 	my $i = 0;
-	my @alpha = ("A".."Z");
+	my @alpha = ('A'..'Z', 'AA'..'ZZ');
 	my $letter;
 	my	$out= 	&main::M3(
 					"\\begin{enumerate}\n",