loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.374, 2007/07/17 19:05:24	version 1.378, 2007/09/20 21:39:13
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>
Line 1268 sub start_br {	Line 1273 sub start_br {
$signal = 1;	$signal = 1;
}	}
}	}
if ($signal eq 1) {	if ($signal != 1) {
$currentstring .= ' \vskip 0 mm ';
} else {
$currentstring .= '\strut \\\\ \strut ';	$currentstring .= '\strut \\\\ \strut ';
}	}