loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.239, 2003/02/25 21:27:07	version 1.240, 2003/02/26 17:52:14
Line 1100 sub inserteditinfo {	Line 1100 sub inserteditinfo {
my ($result,$filecontents)=@_;	my ($result,$filecontents)=@_;
$filecontents = &HTML::Entities::encode($filecontents);	$filecontents = &HTML::Entities::encode($filecontents);
# my $editheader='<a href="#editsection">Edit below</a><hr />';	# my $editheader='<a href="#editsection">Edit below</a><hr />';
	my $xml_help = '<table><tr><td>'.
	&Apache::loncommon::help_open_topic("Greek_Symbols",'Greek Symbols',
	undef,undef,600)
	.'</td><td>'.
	&Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols',
	undef,undef,600)
	.'</td></tr></table>';
my $buttons=(<<BUTTONS);	my $buttons=(<<BUTTONS);
<input type="submit" name="attemptclean"	<input type="submit" name="attemptclean"
value="Save and then attempt to clean HTML" />	value="Save and then attempt to clean HTML" />
Line 1110 BUTTONS	Line 1117 BUTTONS
<hr />	<hr />
<a name="editsection" />	<a name="editsection" />
<form method="post">	<form method="post">
	$xml_help
<input type="hidden" name="editmode" value="Edit" />	<input type="hidden" name="editmode" value="Edit" />
$buttons<br />	$buttons<br />
<textarea cols="80" rows="40" name="filecont">$filecontents</textarea>	<textarea cols="80" rows="40" name="filecont">$filecontents</textarea>