--- 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>:g;
+ $filecontents =~ s::</textarea>:ig;
# my $editheader='Edit below
';
my $editfooter=(<
@@ -1055,17 +1055,6 @@ ENDFOOTER
return $result;
}
-sub editbutton {
- my ($result) = @_;
- my $button=(<
-
-
-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='';
$result=&inserteditinfo($result,$filecontents);
- } else {
- $result = &editbutton($result);
}
}