loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.277, 2005/07/07 10:09:50	version 1.278, 2005/07/10 21:43:35
Line 535 sub start_body {	Line 535 sub start_body {
$token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents().	$token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents().
';'.$onUnload;	';'.$onUnload;

if ($env{'request.state'} ne 'construct') {	$currentstring .= '<'.$token->[1];
$currentstring .= '<'.$token->[1];
}
foreach (keys %{$token->[2]}) {	foreach (keys %{$token->[2]}) {
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';	$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
}	}
if ($env{'request.state'} ne 'construct') {	$currentstring.='>';
$currentstring.='>';
}
if ($env{'request.state'} ne 'published') {	if ($env{'request.state'} ne 'published') {
my $remote=($env{'environment.remote'} ne 'off');	if ($env{'environment.remote'} eq 'off') {
$currentstring=&Apache::loncommon::bodytag(undef,undef,	$currentstring.=
$currentstring,$remote);	&Apache::lonmenu::constspaceform().
	&Apache::lonmenu::menubuttons(1,'web',1);
	}
$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" />
</form>	</form>
EDITBUTTON	EDITBUTTON
} else {	} else {
$currentstring.=&Apache::lonmenu::menubuttons(undef,$target,1);	$currentstring.=&Apache::lonmenu::menubuttons(undef,$target,1);