loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.298, 2004/05/03 17:51:11	version 1.299, 2004/05/04 19:58:57
Line 1046 ENDPART	Line 1046 ENDPART
@allcodes=split(',',$result{$old_name});	@allcodes=split(',',$result{$old_name});
} else {	} else {
my %allcodes;	my %allcodes;
	srand($seed);
for (my $i=0;$i<$num_todo;$i++) {	for (my $i=0;$i<$num_todo;$i++) {
$moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6');	$moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6');
}	}
Line 1247 sub num_to_letters {	Line 1248 sub num_to_letters {
sub get_CODE {	sub get_CODE {
my ($all_codes,$num,$seed,$size)=@_;	my ($all_codes,$num,$seed,$size)=@_;
my $max='1'.'0'x$size;	my $max='1'.'0'x$size;
srand($seed);
my $newcode;	my $newcode;
while(1) {	while(1) {
$newcode=sprintf("%06d",int(rand($max)));	$newcode=sprintf("%06d",int(rand($max)));