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> |