view release on metacpan or  search on metacpan

Genetics/API/DB/Update.pm  view on Meta::CPAN

  Function  : Update a Genetics::Object::Cluster object in the database.
  Argument  : The Genetics::Object::Cluster object to be updated.
  Returns   : 1 on success, undef otherwise. 
  Scope     : Public
  Comments  : Cluster.clusterType cannot be modified, so this method does 
              not touch the Cluster table.

=cut

sub updateCluster {
  my($self, $cluster) = @_ ;
  my($id, $actualType, $sth, $listPtr, $objRef) ;
  my $dbh = $self->{dbh} ;

  $DEBUG and carp " ->[updateCluster] $cluster." ;

  $id = $cluster->field("id") ;
  ( $actualType ) = $dbh->selectrow_array("select objType from Object 
                                           where id = $id") ;
  if ( $actualType ne "Cluster") {