--- loncom/xml/londefdef.pm	2002/01/09 23:11:59	1.39
+++ loncom/xml/londefdef.pm	2002/01/17 17:42:34	1.40
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.39 2002/01/09 23:11:59 albertel Exp $
+# $Id: londefdef.pm,v 1.40 2002/01/17 17:42:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -351,6 +351,13 @@ sub end_m {
 	      	$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
 	      }
 	      $currentstring.='>';
+	      if ($ENV{'request.state'} ne 'published') {
+		$currentstring.=(<<EDITBUTTON);
+		<form method="post">
+		<input type="submit" name="showmode" value="Edit" />
+		</form>
+EDITBUTTON
+	      }
        	    } elsif ($target eq 'tex') {
               $currentstring = '\begin{document}';  
 	    }