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.11, 2006/05/30 12:45:37
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 lib '/home/httpd/lib/perl/';
	use LONCAPA;


sub deletedata {	sub deletedata {
my ($id)=@_;	my ($id)=@_;
Line 245 sub handler {	Line 248 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);