--- loncom/xml/lonxml.pm 2002/01/08 21:11:13 1.147
+++ loncom/xml/lonxml.pm 2002/01/17 17:42:34 1.149
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.147 2002/01/08 21:11:13 albertel Exp $
+# $Id: lonxml.pm,v 1.149 2002/01/17 17:42:34 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1035,7 +1035,7 @@ sub inserteditinfo {
SIMPLECONTENT
}
- $filecontents =~ s:</textarea>:</textarea>:g;
+ $filecontents =~ s:</textarea>:</textarea>:ig;
# my $editheader='<a href="#editsection">Edit below</a><hr />';
my $editfooter=(<<ENDFOOTER);
<hr />
@@ -1055,17 +1055,6 @@ ENDFOOTER
return $result;
}
-sub editbutton {
- my ($result) = @_;
- my $button=(<<EDITBUTTON);
-<form method="post">
-<input type="submit" name="showmode" value="Edit" />
-</form>
-EDITBUTTON
- $result=~s/(\<\/body\>)/$button/is;
- return $result;
-}
-
sub handler {
my $request=shift;
@@ -1126,8 +1115,6 @@ ENDNOTFOUND
if ($ENV{'form.showmode'} eq 'Edit') {
$result='<html><body bgcolor="#FFFFFF"></body></html>';
$result=&inserteditinfo($result,$filecontents);
- } else {
- $result = &editbutton($result);
}
}