loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.147, 2002/01/08 21:11:13	version 1.149, 2002/01/17 17:42:34
Line 1035 sub inserteditinfo {	Line 1035 sub inserteditinfo {
SIMPLECONTENT	SIMPLECONTENT
}	}

$filecontents =~ s:</textarea>:</textarea>:g;	$filecontents =~ s:</textarea>:</textarea>:ig;
# my $editheader='<a href="#editsection">Edit below</a><hr />';	# my $editheader='<a href="#editsection">Edit below</a><hr />';
my $editfooter=(<<ENDFOOTER);	my $editfooter=(<<ENDFOOTER);
<hr />	<hr />
Line 1055 ENDFOOTER	Line 1055 ENDFOOTER
return $result;	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 {	sub handler {
my $request=shift;	my $request=shift;

Line 1126 ENDNOTFOUND	Line 1115 ENDNOTFOUND
if ($ENV{'form.showmode'} eq 'Edit') {	if ($ENV{'form.showmode'} eq 'Edit') {
$result='<html><body bgcolor="#FFFFFF"></body></html>';	$result='<html><body bgcolor="#FFFFFF"></body></html>';
$result=&inserteditinfo($result,$filecontents);	$result=&inserteditinfo($result,$filecontents);
} else {
$result = &editbutton($result);
}	}
}	}