--- loncom/interface/lonprintout.pm	2004/04/20 06:11:49	1.292
+++ loncom/interface/lonprintout.pm	2004/04/22 22:59:11	1.293
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.292 2004/04/20 06:11:49 albertel Exp $
+# $Id: lonprintout.pm,v 1.293 2004/04/22 22:59:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1222,7 +1222,7 @@ sub get_CODE {
     srand($seed);
     my $newcode;
     while(1) {
-	$newcode=int(rand($max));
+	$newcode=sprintf("%06d",int(rand($max)));
 	if (!exists($$all_codes{$newcode})) {
 	    $$all_codes{$newcode}=1;
 	    return &num_to_letters($newcode);