loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.148, 2002/01/09 09:50:59	version 1.149, 2002/01/17 17:42:34
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);
}	}
}	}