--- loncom/xml/lonplot.pm 2001/12/28 21:56:16 1.25 +++ loncom/xml/lonplot.pm 2001/12/31 16:19:55 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Dynamic plot # -# $Id: lonplot.pm,v 1.25 2001/12/28 21:56:16 matthew Exp $ +# $Id: lonplot.pm,v 1.26 2001/12/31 16:19:55 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -288,7 +288,7 @@ sub start_plot { ($token,$parstack,$safeeval,keys(%plot_defaults)); if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); - $result.= &Apache::edit::handle_insert(); +# $result.= &Apache::edit::handle_insert(); } } return $result; @@ -496,7 +496,7 @@ sub start_curve { $tagstack->[-1]); push (@curves,\%curve); } elsif ($target eq 'edit') { - $result .= &Apache::edit::tag_start($target,$token,'Plot Curve'); + $result .= &Apache::edit::tag_start($target,$token,'Curve'); $result .= &edit_attributes($target,$token,\%curve_defaults); } elsif ($target eq 'modified') { my $constructtag=&Apache::edit::get_new_args @@ -536,9 +536,7 @@ sub start_function { $result .= &Apache::edit::tag_start($target,$token,'Curve Function'); my $text = &Apache::lonxml::get_all_text("/function",$$parser[-1]); $result .= ''. - &Apache::edit::editfield('',$text,'',20,1). - &Apache::edit::end_table(); - + &Apache::edit::editfield('',$text,'',20,1); } elsif ($target eq 'modified') { # Why do I do this? my $text=$$parser[-1]->get_text("/function"); @@ -552,6 +550,7 @@ sub end_function { my $result = ''; if ($target eq 'web') { } elsif ($target eq 'edit') { + $result .= &Apache::edit::end_table(); } return $result; } @@ -599,8 +598,7 @@ sub start_data { $result .= &Apache::edit::tag_start($target,$token,'Curve Data'); my $text = &Apache::lonxml::get_all_text("/data",$$parser[-1]); $result .= ''. - &Apache::edit::editfield('',$text,'',20,1). - &Apache::edit::end_table(); + &Apache::edit::editfield('',$text,'',20,1); } elsif ($target eq 'modified') { my $text=$$parser[-1]->get_text("/data"); $result.=&Apache::edit::modifiedfield($token); @@ -613,6 +611,7 @@ sub end_data { my $result = ''; if ($target eq 'web') { } elsif ($target eq 'edit') { + $result .= &Apache::edit::end_table(); } return $result; }