Diff for /loncom/homework/imageresponse.pm between versions 1.10 and 1.11

version 1.10, 2001/08/06 17:37:12 version 1.11, 2001/08/06 17:39:37
Line 273  sub start_rectangle { Line 273  sub start_rectangle {
     return '';      return '';
 }  }
   
 # ============================================================= Grade rectangle  # ====================================== Grade rectangle (return scalar string)
 sub grade_rectangle {  sub grade_rectangle {
     my ($spec,$x,$y) = @_;      my ($spec,$x,$y) = @_;
     &Apache::lonxml::debug("Spec is $spec");      &Apache::lonxml::debug("Spec is $spec");
Line 292  sub grade_rectangle { Line 292  sub grade_rectangle {
   
 # =============================================================== End rectangle  # =============================================================== End rectangle
 sub end_rectangle {  sub end_rectangle {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
   if ($target eq 'web' || $target eq 'grade') {      if ($target eq 'web' || $target eq 'grade') {
     my $name = $Apache::imageresponse::curname;   my $name = $Apache::imageresponse::curname;
     my $area = &Apache::lonxml::endredirection;   my $area = &Apache::lonxml::endredirection;
     &Apache::lonxml::debug("out is $area for $name");   &Apache::lonxml::debug("out is $area for $name");
     if ( $Apache::imageresponse::conceptgroup ) {   if ( $Apache::imageresponse::conceptgroup ) {
       push @{ $Apache::response::conceptgroup{"$name.area"} },      push @{ $Apache::response::conceptgroup{"$name.area"} },
            "rectangle:$area";            "rectangle:$area";
     } else {   } else {
       push @{ $Apache::response::foilgroup{"$name.area"} },"rectangle:$area";      push @{ $Apache::response::foilgroup{"$name.area"} },
            "rectangle:$area";
    }
     }      }
   }      return '';
   return '';  
 }  }
   
 1;  1;

Removed from v.1.10  
changed lines
  Added in v.1.11


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