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

Diff for /loncom/homework/imageresponse.pm between versions 1.47 and 1.48

version 1.47, 2004/02/11 21:59:34 version 1.48, 2004/02/18 00:23:01
Line 117  sub prep_image { Line 117  sub prep_image {
     my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.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) && $x=~/\S/ && defined($y) && $y =~/\S/) {
  $x{"cgi.$id.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;
    my $xmin=($x-$length);
    my $xmax=($x+$length); 
    my $ymin=($y-$length);
    my $ymax=($y+$length);
   
  $x{"cgi.$id.LINE0"}=   $x{"cgi.$id.LINE0"}=
     join(':',(($x-$length),($y-$length),($x+$length),($y+$length),      join(':',(($xmin),($ymin),($xmax),($ymax),
       "FFFFFF",($width+$extrawidth)));        "FFFFFF",($width+$extrawidth)));
  $x{"cgi.$id.LINE1"}=   $x{"cgi.$id.LINE1"}=
     join(':',(($x-$length),($y+$length),($x+$length),($y-$length),      join(':',(($xmin),($ymax),($xmax),($ymin),
       "FFFFFF",($width+$extrawidth)));        "FFFFFF",($width+$extrawidth)));
  $x{"cgi.$id.LINE2"}=   $x{"cgi.$id.LINE2"}=
     join(':',(($x-$length),($y-$length),($x+$length),($y+$length),      join(':',(($xmin),($ymin),($xmax),($ymax),
       "FF0000",($width)));        "FF0000",($width)));
  $x{"cgi.$id.LINE3"}=   $x{"cgi.$id.LINE3"}=
     join(':',(($x-$length),($y+$length),($x+$length),($y-$length),      join(':',(($xmin),($ymax),($xmax),($ymin),
       "FF0000",($width)));        "FF0000",($width)));
     }      }
     if ($mode eq 'answer') {      if ($mode eq 'answer') {
Line 611  sub end_polygon { Line 616  sub end_polygon {
  $target eq 'analyze') {   $target eq 'analyze') {
  my $name = $Apache::imageresponse::curname;   my $name = $Apache::imageresponse::curname;
  my $area = &Apache::lonxml::endredirection;   my $area = &Apache::lonxml::endredirection;
    $area=~s/\s*//g;
  &Apache::lonxml::debug("out is $area for $name");   &Apache::lonxml::debug("out is $area for $name");
  if ( $Apache::imageresponse::conceptgroup   if ( $Apache::imageresponse::conceptgroup
      && !&Apache::response::showallfoils()) {       && !&Apache::response::showallfoils()) {
Removed from v.1.47  
changed lines
  Added in v.1.48

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