loncom/homework/imagechoice.pm - diff

Return to imagechoice.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.10, 2006/04/13 18:49:29	version 1.12, 2006/07/03 00:03:56
Line 26 package Apache::imagechoice;	Line 26 package Apache::imagechoice;
use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
	use LONCAPA;


sub deletedata {	sub deletedata {
my ($id)=@_;	my ($id)=@_;
Line 56 ENDSUBM	Line 58 ENDSUBM
my $end_page =	my $end_page =
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();

my $js=<<"ENDSUBM";	$r->print(<<"ENDSUBM");
$start_page	$start_page
<h3>Position Selected</h3>	<h3>Position Selected</h3>
$display	$display
Line 245 sub handler {	Line 247 sub handler {
$r->send_http_header;	$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 = &unescape($env{"imagechoice.$id.file"});
my $formname = $env{"imagechoice.$id.formname"};	my $formname = $env{"imagechoice.$id.formname"};
if ($env{'form.cancel'} eq 'Cancel') {	if ($env{'form.cancel'} eq 'Cancel') {
&deletedata($id);	&deletedata($id);