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) |