[BACK]Return to imageresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/imageresponse.pm between versions 1.40 and 1.41

version 1.40, 2003/11/10 23:29:27 version 1.41, 2003/11/11 00:25:24
Line 106  sub whichfoils { Line 106  sub whichfoils {
 sub prep_image {  sub prep_image {
     my ($image)=@_;      my ($image)=@_;
     my $part=$Apache::inputtags::part;      my $part=$Apache::inputtags::part;
     my $id=$Apache::inputtags::response['-1'];      my $respid=$Apache::inputtags::response['-1'];
     my $token=$Apache::lonxml::curdepth.'_'.$$;      my $id=&Apache::loncommon::get_cgi_id();
     my $args="BGIMG=".$image;      my %x;
     &Apache::lonxml::debug("args is $args image is $image");      $x{"cgi.$id.BGIMG"}=$image;
     my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$id.submission"});      my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.submission"});
     #draws 2 xs on the image at the clicked location      #draws 2 xs on the image at the clicked location
     #one in white and then one in red on top of the one in white      #one in white and then one in red on top of the one in white
     if (defined($x) && defined($y)) {      if (defined($x) && defined($y)) {
  $args.="&LINECOUNT=4";   $x{"cgi.$id.LINECOUNT"}=4;
  my $length = 6;   my $length = 6;
  my $width = 1;   my $width = 1;
  my $extrawidth = 2;   my $extrawidth = 2;
  $args.="&LINEW0=".($width+$extrawidth);   $x{"cgi.$id.LINE0"}=
  $args.="&LINEC0=FFFFFF";      join(':',(($x-$length),($y-$length),($x+$length),($y+$length),
  $args.="&LINEX10=".($x-$length)."&LINEY10=".($y-$length);        "FFFFFF",($width+$extrawidth)));
  $args.="&LINEX20=".($x+$length)."&LINEY20=".($y+$length);   $x{"cgi.$id.LINE1"}=
  $args.="&LINEW1=".($width+$extrawidth);      join(':',(($x-$length),($y+$length),($x+$length),($y-$length),
  $args.="&LINEC1=FFFFFF";        "FFFFFF",($width+$extrawidth)));
  $args.="&LINEX11=".($x-$length)."&LINEY11=".($y+$length);   $x{"cgi.$id.LINE2"}=
  $args.="&LINEX21=".($x+$length)."&LINEY21=".($y-$length);      join(':',(($x-$length),($y-$length),($x+$length),($y+$length),
  $args.="&LINEW2=$width";        "FF0000",($width)));
  $args.="&LINEC2=FF0000";   $x{"cgi.$id.LINE3"}=
  $args.="&LINEX12=".($x-$length)."&LINEY12=".($y-$length);      join(':',(($x-$length),($y+$length),($x+$length),($y-$length),
  $args.="&LINEX22=".($x+$length)."&LINEY22=".($y+$length);        "FF0000",($width)));
  $args.="&LINEW3=$width";  
  $args.="&LINEC3=FF0000";  
  $args.="&LINEX13=".($x-$length)."&LINEY13=".($y+$length);  
  $args.="&LINEX23=".($x+$length)."&LINEY23=".($y-$length);  
     }      }
     &Apache::lonxml::debug("args is $args image is $image");      &Apache::lonnet::appenv(%x);
     &Apache::lonnet::appenv(("imagerequest.$token"=>      return $id;
      &Apache::lonnet::escape($args)));  
     return $token;  
 }  }
   
 sub displayfoils {  sub displayfoils {
Removed from v.1.40  
changed lines
  Added in v.1.41

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