loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.375, 2007/08/10 11:21:00	version 1.376, 2007/09/10 19:50:20
Line 578 sub start_body {	Line 578 sub start_body {
'force_register' => 1});	'force_register' => 1});

if ($env{'request.state'} ne 'published') {	if ($env{'request.state'} ne 'published') {
$currentstring.=&Apache::lonmenu::constspaceform();
$currentstring.=(<<EDITBUTTON);
<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();
	$currentstring.=&Apache::londefdef::edit_controls();
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\begin{document}';	$currentstring = '\begin{document}';
}	}
return $currentstring;	return $currentstring;
}	}

	sub edit_controls {
	my $result = &Apache::lonmenu::constspaceform();
	$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>