loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.375.2.1, 2007/10/15 20:00:12	version 1.379, 2007/10/15 19:40:53
Line 579 sub start_body {	Line 579 sub start_body {

if ($env{'request.state'} ne 'published') {	if ($env{'request.state'} ne 'published') {
$currentstring.=&Apache::lonmenu::constspaceform();	$currentstring.=&Apache::lonmenu::constspaceform();
$currentstring.=(<<EDITBUTTON);	$currentstring.=&Apache::londefdef::edit_controls();
<form method="post">
<input type="submit" name="editmode" accesskey="e" value="Edit" />
</form>
<br />
EDITBUTTON
}	}
$currentstring.=&Apache::lonxml::message_location();	$currentstring.=&Apache::lonxml::message_location();
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
Line 593 EDITBUTTON	Line 588 EDITBUTTON
return $currentstring;	return $currentstring;
}	}

	sub edit_controls {
	my $result .= (<<EDITBUTTON);
	<form method="post">
	<input type="submit" name="editmode" accesskey="e" value="Edit" />
	</form>
	<br />
	EDITBUTTON
	return $result;
	}

sub end_body {	sub end_body {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = &end_p(); # Close off unclosed <p>	my $currentstring = &end_p(); # Close off unclosed <p>