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

Diff for /loncom/homework/drawimage.pm between versions 1.12 and 1.13

version 1.12, 2024/04/05 04:05:08 version 1.13, 2024/04/05 22:44:19
Line 240  sub start_polygon { Line 240  sub start_polygon {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;
     &Apache::lonxml::register('Apache::drawimage',('point'));      &Apache::lonxml::register('Apache::drawimage',('point'));
     if ($target eq 'web') {      if ($target eq 'web' || $target eq 'tex') {
  undef(@polygon);   undef(@polygon);
     }      }
     return $result;      return $result;
Line 249  sub start_polygon { Line 249  sub start_polygon {
 sub end_polygon {  sub end_polygon {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;          my $result;    
     if ($target eq 'web') {      if ($target eq 'web' || $target eq 'tex') {
  my $color=&Apache::lonxml::get_param('color',$parstack,$safeeval);   my $color=&Apache::lonxml::get_param('color',$parstack,$safeeval);
  my $filled=&Apache::lonxml::get_param('filled',$parstack,$safeeval);   my $filled=&Apache::lonxml::get_param('filled',$parstack,$safeeval);
  my $open=&Apache::lonxml::get_param('open',$parstack,$safeeval);   my $open=&Apache::lonxml::get_param('open',$parstack,$safeeval);
Line 267  sub end_polygon { Line 267  sub end_polygon {
 sub start_point {  sub start_point {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;
     if ($target eq 'web') {      if ($target eq 'web' || $target eq 'tex') {
  my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval);   my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval);
         my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval);          my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval);
  push (@polygon,"($x,$y)");   push (@polygon,"($x,$y)");
Removed from v.1.12  
changed lines
  Added in v.1.13

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