loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.6, 2003/02/26 18:49:58	version 1.8, 2003/02/27 21:36:27
Line 70 sub handler {	Line 70 sub handler {
return OK;	return OK;
}	}
#binmode(STDOUT);	#binmode(STDOUT);
my $black = $image->colorAllocate(0,0,0);	my $black;
	if (!($black=$image->colorResolve(0,0,0))) {
	$black = $image->colorClosestHWB(0,0,0);
	}
for(my $i=0;$i<$ENV{"form.ICOUNT"};$i++) {	for(my $i=0;$i<$ENV{"form.ICOUNT"};$i++) {
my $subimage=&get_image($ENV{"form.IMG$i"},1);	my $subimage=&get_image($ENV{"form.IMG$i"},1);
$image->copy($subimage,$ENV{"form.X$i"},$ENV{"form.Y$i"},	$image->copy($subimage,$ENV{"form.X$i"},$ENV{"form.Y$i"},
Line 82 sub handler {	Line 85 sub handler {
$ENV{"form.LB$i"},$black);	$ENV{"form.LB$i"},$black);
}	}
$r->print($image->png);	$r->print($image->png);
&Apache::lonnet::delenv('imagerequest\.'.$token);
return OK;	return OK;
}	}