loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.75 and 1.76

version 1.75, 2004/01/09 23:22:18	version 1.76, 2004/01/12 19:53:54
Line 771 ENDBUTTON	Line 771 ENDBUTTON
sub entercoordpolygon {	sub entercoordpolygon {
my ($id,$mode,$width,$height) = @_;	my ($id,$mode,$width,$height) = @_;
unless ($Apache::edit::bgimgsrc) { return ''; }	unless ($Apache::edit::bgimgsrc) { return ''; }
my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc);	&Apache::lonnet::logthis($Apache::edit::bgimgsrc);
	my $bgfile=&Apache::lonnet::escape(&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$Apache::edit::bgimgsrc));
	&Apache::lonnet::logthis($Apache::edit::bgfile);
my $form = 'lonhomework';	my $form = 'lonhomework';
my $element;	my $element;
if (! defined($mode) \|\| $mode eq 'attribute') {	if (! defined($mode) \|\| $mode eq 'attribute') {
Line 780 sub entercoordpolygon {	Line 782 sub entercoordpolygon {
$element = &Apache::lonnet::escape('homework_edit_'.	$element = &Apache::lonnet::escape('homework_edit_'.
$Apache::lonxml::curdepth);	$Apache::lonxml::curdepth);
}	}
my $id=&Apache::loncommon::get_cgi_id();	my $id=$Apache::lonxml::curdepth;
my %data=("cgi.$id.mode" =>'polygon',	my %data=("imagechoice.$id.mode" =>'polygon',
"cgi.$id.formname" =>$form,	"imagechoice.$id.formname" =>$form,
"cgi.$id.file" =>$bgfile,	"imagechoice.$id.file" =>$bgfile,
"cgi.$id.formcoord" =>$element);	"imagechoice.$id.formcoord" =>$element);
if ($height) {	if ($height) {
$data{"cgi.$id.formheight"}=$height.'_'.$Apache::edit::bgimgsrccurdepth;	$data{"imagechoice.$id.formheight"}=$height.'_'.
	$Apache::edit::bgimgsrccurdepth;
}	}
if ($width) {	if ($width) {
$data{"cgi.$id.formwidth"}=$width.'_'.$Apache::edit::bgimgsrccurdepth;	$data{"imagechoice.$id.formwidth"}=$width.'_'.
	$Apache::edit::bgimgsrccurdepth;
}	}
&Apache::lonnet::appenv(%data);	&Apache::lonnet::appenv(%data);
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">Create Polygon Data</a>';	my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">Create Polygon Data</a>';
return $result;	return $result;
}	}

	sub deletecoorddata {
	&Apache::lonnet::delenv("imagechoice\\.");
	}

#----------------------------------------------------- browse	#----------------------------------------------------- browse
sub browse {	sub browse {
# insert a link to call up the filesystem browser (lonindexer)	# insert a link to call up the filesystem browser (lonindexer)

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.75
changed lines
	Added in v.1.76