loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.113, 2008/01/15 03:09:09	version 1.114, 2008/03/12 02:46:52
Line 880 sub entercoords {	Line 880 sub entercoords {
$data{"imagechoice.$id.formwidth"}=$width.'_'.	$data{"imagechoice.$id.formwidth"}=$width.'_'.
$Apache::edit::bgimgsrccurdepth;	$Apache::edit::bgimgsrccurdepth;
}	}
&Apache::lonnet::appenv(%data);	&Apache::lonnet::appenv(\%data);
my $text="Click Coordinates";	my $text="Click Coordinates";
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';	my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';
return $result;	return $result;
Line 913 sub entercoord {	Line 913 sub entercoord {
$data{"imagechoice.$id.formwidth"}=$width.'_'.	$data{"imagechoice.$id.formwidth"}=$width.'_'.
$Apache::edit::bgimgsrccurdepth;	$Apache::edit::bgimgsrccurdepth;
}	}
&Apache::lonnet::appenv(%data);	&Apache::lonnet::appenv(\%data);
my $text="Enter Coordinates";	my $text="Enter Coordinates";
if ($type eq 'polygon') { $text='Create Polygon Data'; }	if ($type eq 'polygon') { $text='Create Polygon Data'; }
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';	my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';