loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.263, 2003/06/12 20:28:14	version 1.265, 2003/06/20 14:45:48
Line 1139 sub inserteditinfo {	Line 1139 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>'.	my $xml_help = Apache::loncommon::helpLatexCheatsheet();
&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 $titledisplay=&display_title();	my $titledisplay=&display_title();
my $buttons=(<<BUTTONS);	my $buttons=(<<BUTTONS);
<input type="submit" name="attemptclean"	<input type="submit" name="attemptclean"
Line 1249 ENDNOTFOUND	Line 1243 ENDNOTFOUND
if ($ENV{'form.attemptclean'}) {	if ($ENV{'form.attemptclean'}) {
$filecontents=&htmlclean($filecontents,1);	$filecontents=&htmlclean($filecontents,1);
}	}
	#
	# we are in construction space, see if edit mode forced
	&Apache::loncommon::get_unprocessed_cgi
	($ENV{'QUERY_STRING'},['editmode']);
}	}
if (!$ENV{'form.editmode'} \|\| $ENV{'form.viewmode'}) {	if (!$ENV{'form.editmode'} \|\| $ENV{'form.viewmode'}) {
$result = &Apache::lonxml::xmlparse($request,$target,$filecontents,	$result = &Apache::lonxml::xmlparse($request,$target,$filecontents,