# delete a given table row

sub	deleteTableRow
	{
	my $self	= shift;
	my $row		= $self->getTableRow(@_) or return undef;
	return $doc->removeElement($row);         #line 3035 (ede)
	}

sub	deleteRow
	{
	my $self	= shift;
	return $self->deleteTableRow(@_);
	}