--- loncom/xml/londefdef.pm 2007/08/10 11:21:00 1.375 +++ loncom/xml/londefdef.pm 2007/09/10 19:50:20 1.376 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.375 2007/08/10 11:21:00 foxr Exp $ +# $Id: londefdef.pm,v 1.376 2007/09/10 19:50:20 albertel Exp $ # # # Copyright Michigan State University Board of Trustees @@ -578,21 +578,27 @@ sub start_body { 'force_register' => 1}); if ($env{'request.state'} ne 'published') { - $currentstring.=&Apache::lonmenu::constspaceform(); - $currentstring.=(< - - -
-EDITBUTTON + } $currentstring.=&Apache::lonxml::message_location(); + $currentstring.=&Apache::londefdef::edit_controls(); } elsif ($target eq 'tex') { $currentstring = '\begin{document}'; } return $currentstring; } +sub edit_controls { + my $result = &Apache::lonmenu::constspaceform(); + $result .= (< + + +
+EDITBUTTON + return $result; +} + sub end_body { my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; my $currentstring = &end_p(); # Close off unclosed