|
version 1.43, 2004/01/09 23:22:19
|
version 1.44, 2004/01/14 22:59:18
|
|
Line 489 sub start_rectangle {
|
Line 489 sub start_rectangle {
|
| my $coords=&Apache::lonxml::get_all_text('/rectangle',$parser); |
my $coords=&Apache::lonxml::get_all_text('/rectangle',$parser); |
| $result=&Apache::edit::tag_start($target,$token,'Rectangle'). |
$result=&Apache::edit::tag_start($target,$token,'Rectangle'). |
| &Apache::edit::editline($token->[1],$coords,'Coordinate Pairs',40). |
&Apache::edit::editline($token->[1],$coords,'Coordinate Pairs',40). |
| &Apache::edit::entercoordpair(undef,'textnode'). |
&Apache::edit::entercoord(undef,'textnode',undef,undef,'box'). |
| &Apache::edit::end_row(); |
&Apache::edit::end_row(); |
| } elsif ($target eq "modified") { |
} elsif ($target eq "modified") { |
| |
&Apache::edit::deletecoorddata(); |
| $result=$token->[4].&Apache::edit::modifiedfield('/rectangle',$parser); |
$result=$token->[4].&Apache::edit::modifiedfield('/rectangle',$parser); |
| } |
} |
| return $result; |
return $result; |
|
Line 540 sub start_polygon {
|
Line 541 sub start_polygon {
|
| my $coords=&Apache::lonxml::get_all_text('/polygon',$parser); |
my $coords=&Apache::lonxml::get_all_text('/polygon',$parser); |
| $result=&Apache::edit::tag_start($target,$token,'Polygon'). |
$result=&Apache::edit::tag_start($target,$token,'Polygon'). |
| &Apache::edit::editline($token->[1],$coords,'Coordinate list',40). |
&Apache::edit::editline($token->[1],$coords,'Coordinate list',40). |
| &Apache::edit::entercoordpolygon(undef,'textnode'). |
&Apache::edit::entercoord(undef,'textnode',undef,undef,'polygon'). |
| &Apache::edit::end_row(); |
&Apache::edit::end_row(); |
| } elsif ($target eq "modified") { |
} elsif ($target eq "modified") { |
| $result=$token->[4].&Apache::edit::modifiedfield('/polygon',$parser); |
$result=$token->[4].&Apache::edit::modifiedfield('/polygon',$parser); |
![[BACK]](/icons/back.gif){kind=icon}
Return to imageresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework