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

Diff for /loncom/homework/imageresponse.pm between versions 1.57 and 1.58

version 1.57, 2004/11/13 16:28:21 version 1.58, 2004/12/08 01:00:41
Line 1 Line 1
   
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # image click response style  # image click response style
 #  #
Line 119  sub prep_image { Line 120  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) && $x=~/\S/ && defined($y) && $y =~/\S/) {      if (defined($x) && $x=~/\S/ && defined($y) && $y =~/\S/ && !&Apache::response::show_answer()) {
  my $length = 6;   my $length = 6;
  my $width = 1;   my $width = 1;
  my $extrawidth = 2;   my $extrawidth = 2;
Line 130  sub prep_image { Line 131  sub prep_image {
   
  $x{"cgi.$id.OBJTYPE"}.='LINE:';   $x{"cgi.$id.OBJTYPE"}.='LINE:';
  $i=$x{"cgi.$id.OBJCOUNT"}++;   $i=$x{"cgi.$id.OBJCOUNT"}++;
  $x{"cgi.$id.OBJ$i"}=join(':',(($x),($ymin),($x),($ymax),   $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymin),($xmax),($ymax),
       "FFFFFF",($width+$extrawidth)));        "FFFFFF",($width+$extrawidth)));
  $x{"cgi.$id.OBJTYPE"}.='LINE:';   $x{"cgi.$id.OBJTYPE"}.='LINE:';
  $i=$x{"cgi.$id.OBJCOUNT"}++;   $i=$x{"cgi.$id.OBJCOUNT"}++;
  $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($y),($xmax),($y),   $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymax),($xmax),($ymin),
       "FFFFFF",($width+$extrawidth)));        "FFFFFF",($width+$extrawidth)));
  $x{"cgi.$id.OBJTYPE"}.='LINE:';   $x{"cgi.$id.OBJTYPE"}.='LINE:';
  $i=$x{"cgi.$id.OBJCOUNT"}++;   $i=$x{"cgi.$id.OBJCOUNT"}++;
  $x{"cgi.$id.OBJ$i"}=join(':',(($x),($ymin),($x),($ymax),   $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymin),($xmax),($ymax),
       "FF0000",($width)));        "FF0000",($width)));
  $x{"cgi.$id.OBJTYPE"}.='LINE:';   $x{"cgi.$id.OBJTYPE"}.='LINE:';
  $i=$x{"cgi.$id.OBJCOUNT"}++;   $i=$x{"cgi.$id.OBJCOUNT"}++;
  $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($y),($xmax),($y),   $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymax),($xmax),($ymin),
       "FF0000",($width)));        "FF0000",($width)));
     }      }
     if ($mode eq 'answer') {      if ($mode eq 'answer') {
Removed from v.1.57  
changed lines
  Added in v.1.58

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