loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.246, 2004/11/19 21:17:56	version 1.247, 2004/11/19 22:16:33
Line 531 sub start_body {	Line 531 sub start_body {
$token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents().	$token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents().
';'.$onUnload;	';'.$onUnload;

$currentstring .= '<'.$token->[1];	if ($ENV{'request.state'} ne 'construct') {
	$currentstring .= '<'.$token->[1];
	}
foreach (keys %{$token->[2]}) {	foreach (keys %{$token->[2]}) {
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';	$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
}	}
$currentstring.='>';	if ($ENV{'request.state'} ne 'construct') {
	$currentstring.='>';
	}
if ($ENV{'request.state'} ne 'published') {	if ($ENV{'request.state'} ne 'published') {
	my $remote=($ENV{'environment.remote'} ne 'off');
	$currentstring=&Apache::loncommon::bodytag(undef,undef,
	$currentstring,$remote);
$currentstring.=(<<EDITBUTTON);	$currentstring.=(<<EDITBUTTON);
<form method="post">	<form method="post">
<input type="submit" name="editmode" accesskey="e" value="Edit" />	<input type="submit" name="editmode" accesskey="e" value="Edit" />