loncom/homework/imagechoice.pm - diff

Return to imagechoice.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.5, 2004/02/24 00:14:01	version 1.7, 2005/02/17 09:01:03
Line 217 sub drawimage {	Line 217 sub drawimage {

sub handler {	sub handler {
my ($r)=@_;	my ($r)=@_;
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;
my %data;	my %data;
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'});	my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'});
my $filename = &Apache::lonnet::unescape($ENV{"imagechoice.$id.file"});	my $filename = &Apache::lonnet::unescape($ENV{"imagechoice.$id.file"});
Line 230 sub handler {	Line 231 sub handler {
my $type=$ENV{"imagechoice.$id.type"};	my $type=$ENV{"imagechoice.$id.type"};
if (defined($ENV{'form.type'})) { $type=$ENV{'form.type'}; }	if (defined($ENV{'form.type'})) { $type=$ENV{'form.type'}; }
my $numcoords=&savecoord($id,$type);	my $numcoords=&savecoord($id,$type);
&Apache::lonnet::logthis("num coords is $numcoords");
my $imurl=&drawimage($r,$type,$filename,$id);	my $imurl=&drawimage($r,$type,$filename,$id);
if (($ENV{'form.finish'} eq 'Finish')) {	if (($ENV{'form.finish'} eq 'Finish')) {
&storedata($r,$type,$imurl,$id);	&storedata($r,$type,$imurl,$id);