# $Id: imagechoice.pm,v 1.1 2004/01/09 23:22:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/cgi-bin/plot.gif # # http://www.lon-capa.org/ # package Apache::imagechoice; use strict; use Apache::Constants qw(:common :http); # # Single coordinate, defined - store it # sub closewindow { my ($r,$output,$filename)=@_; $r->print(<<"ENDSUBM");

Position Selected

ENDSUBM } sub storedata { my ($r,$mode,$filename,$id)=@_; my (undef,@coords)=split(':',$ENV{"cgi.$id.coords"}); my $output; if ($ENV{"cgi.$id.formwidth"}) { $output.='opener.document.forms.'.$ENV{"cgi.$id.formname"}.'.'.$ENV{"cgi.$id.formwidth"}.'.value=document.pickimg.width;'; } if ($ENV{"cgi.$id.formheight"}) { $output.='opener.document.forms.'.$ENV{"cgi.$id.formname"}.'.'.$ENV{"cgi.$id.formheight"}.'.value=document.pickimg.height;'; } if ((defined($ENV{"cgi.$id.x"})) && (defined($ENV{"cgi.$id.y"})) && ($mode ne 'pairtwo') && ($mode ne 'pairthree')) { my $output=''; if ($ENV{"cgi.$id.formx"}) { $output.='opener.document.forms.'.$ENV{"cgi.$id.formname"}.'.'.$ENV{"cgi.$id.formx"}. '.value='.$ENV{"cgi.$id.x"}.';'; } if ($ENV{"cgi.$id.formy"}) { $output.='opener.document.forms.'.$ENV{"cgi.$id.formname"}.'.'.$ENV{"cgi.$id.formy"}. '.value='.$ENV{"cgi.$id.y"}.';'; } } elsif ($mode eq 'pairthree') { my $output=''; my $outputpair='('.$ENV{"cgi.$id.selx"}.','.$ENV{"cgi.$id.sely"}.')-('.$ENV{"cgi.$id.x"}.','.$ENV{"cgi.$id.y"}.')'; if ($ENV{"cgi.$id.formcoord"}) { $output.='opener.document.forms.'.$ENV{"cgi.$id.formname"}.'.'.$ENV{"cgi.$id.formcoord"}. '.value="'.$outputpair.'";'; } } elsif ($mode eq 'polygon') { my $coordstr; while (@coords) { $coordstr.='('.shift(@coords).','.shift(@coords).')-'; } chop($coordstr); $output.='opener.document.forms.'.$ENV{"cgi.$id.formname"}.'.'.$ENV{"cgi.$id.formcoord"}.'.value="'.$coordstr.'";'; } &closewindow($r,$output,$filename); } sub getcoord { my ($r,$mode,$filename,$id)=@_; my $heading='Position'; my $nextstage=''; if ($mode eq 'pair') { $heading='First Coordinate'; $nextstage=''; } elsif ($mode eq 'pairtwo') { $heading='Second Coordinate'; $nextstage=''; } elsif ($mode eq 'polygon') { $heading='Enter Coordinate or click finish to close Polygon'; $nextstage=''; } $r->print(<<"END");

Select $heading on Image

$nextstage
END } sub savecoord { my ($id)=@_; if (defined($ENV{"form.image.x"}) && defined($ENV{"form.image.y"})) { my $data=join(':',($ENV{"cgi.$id.coords"},$ENV{"form.image.x"}, $ENV{"form.image.y"})); &Apache::lonnet::appenv("cgi.$id.coords"=>$data); } } sub drawX { my ($imid,$x,$y)=@_; my %x; $x{"cgi.$imid.LINECOUNT"}=4; my $length = 6; my $width = 1; my $extrawidth = 2; $x{"cgi.$imid.LINE0"}= join(':',(($x-$length),($y-$length),($x+$length),($y+$length), "FFFFFF",($width+$extrawidth))); $x{"cgi.$imid.LINE1"}= join(':',(($x-$length),($y+$length),($x+$length),($y-$length), "FFFFFF",($width+$extrawidth))); $x{"cgi.$imid.LINE2"}= join(':',(($x-$length),($y-$length),($x+$length),($y+$length), "FF0000",($width))); $x{"cgi.$imid.LINE3"}= join(':',(($x-$length),($y+$length),($x+$length),($y-$length), "FF0000",($width))); return %x; } sub drawPolygon { my ($id,$imid)=@_; my (undef,@coords)=split(':',$ENV{"cgi.$id.coords"}); my $coordstr; while (@coords) { $coordstr.='('.shift(@coords).','.shift(@coords).')-'; } chop($coordstr); my %x; my $width = 1; my $extrawidth = 2; my $i=$x{"cgi.$imid.POLYCOUNT"}++; $x{"cgi.$imid.POLYOPT$i"}=join(':',("FFFFFF",($width+$extrawidth)),'1'); $x{"cgi.$imid.POLY$i"}=$coordstr; $i=$x{"cgi.$imid.POLYCOUNT"}++; $x{"cgi.$imid.POLYOPT$i"}=join(':',("00FF00",$width),'1'); $x{"cgi.$imid.POLY$i"}=$coordstr; return %x; } sub drawimage { my ($r,$mode,$filename,$id)=@_; my $imid=&Apache::loncommon::get_cgi_id(); my (undef,@coords)=split(':',$ENV{"cgi.$id.coords"}); if (scalar(@coords) < 2) { return $filename; } $filename=&Apache::lonnet::filelocation('',$filename); my %data; $data{"cgi.$imid.BGIMG"}=$filename; my $x=@coords[-2]; my $y=@coords[-1]; %data=(%data,&drawX($imid,$x,$y)); if ($mode eq "polygon") { %data=(%data,&drawPolygon($id,$imid)); } &Apache::lonnet::appenv(%data); return "/adm/randomlabel.png?token=$imid" } sub handler { my ($r)=@_; $r->content_type('text/html'); my %data; my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); my $filename = $ENV{"cgi.$id.file"}; my $formname = $ENV{"cgi.$id.formname"}; my $mode=$ENV{"cgi.$id.mode"}; $filename=&Apache::lonnet::unescape($filename); &savecoord($id); my $imurl=&drawimage($r,$mode,$filename,$id); if ($ENV{'form.finish'} eq 'Finish') { &storedata($r,$mode,$imurl,$id); } &getcoord($r,$mode,$imurl,$id); return OK; } 1; __END__