loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.12, 2003/11/11 00:39:33	version 1.12.2.1, 2004/02/11 21:52:56
Line 60 sub get_image {	Line 60 sub get_image {
sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('image/png');	$r->content_type('image/png');
	$r->send_http_header;
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'});	my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'});
my $image=&get_image(&Apache::lonnet::unescape($ENV{"cgi.$id.BGIMG"}),0);	my $image=&get_image(&Apache::lonnet::unescape($ENV{"cgi.$id.BGIMG"}),0);
if (! defined($image)) {	if (! defined($image)) {