my ($self, @cursors) = @_;

    my $cursor;
    foreach $cursor (@cursors) {
        if (exists($self->{CURSORS}{$cursor}))
	{
            #
            eval {
                my $ref = $self->{CURSORS}{$cursor};
		delete($self->{CURSORS}{$cursor});
                $ref->finish;
            }                  
 }
    }
}

      if ($self->{CONNECTION} && !$self->{CONNECTION}->{InactiveDestroy})
      {
	  $self->{CONNECTION}->disconnect;