Bio-Genex

 view release on metacpan or  search on metacpan

AL_Spots/AL_Spots.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::AL_Spots::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'AL_Spots');
  $self->id($pkey);
  $self->als_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::AL_Spots::update_db: object not in DB"
    unless defined $self->id() && defined $self->als_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

AM_Spots/AM_Spots.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::AM_Spots::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'AM_Spots');
  $self->id($pkey);
  $self->ams_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::AM_Spots::update_db: object not in DB"
    unless defined $self->id() && defined $self->ams_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

ArrayLayout/ArrayLayout.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::ArrayLayout::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'ArrayLayout');
  $self->id($pkey);
  $self->al_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::ArrayLayout::update_db: object not in DB"
    unless defined $self->id() && defined $self->al_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

ArrayMeasurement/ArrayMeasurement.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::ArrayMeasurement::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'ArrayMeasurement');
  $self->id($pkey);
  $self->am_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::ArrayMeasurement::update_db: object not in DB"
    unless defined $self->id() && defined $self->am_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

BlastHits/BlastHits.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::BlastHits::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'BlastHits');
  $self->id($pkey);
  $self->bh_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::BlastHits::update_db: object not in DB"
    unless defined $self->id() && defined $self->bh_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Chromosome/Chromosome.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Chromosome::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Chromosome');
  $self->id($pkey);
  $self->chr_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Chromosome::update_db: object not in DB"
    unless defined $self->id() && defined $self->chr_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Citation/Citation.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Citation::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Citation');
  $self->id($pkey);
  $self->cit_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Citation::update_db: object not in DB"
    unless defined $self->id() && defined $self->cit_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Contact/Contact.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Contact::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Contact');
  $self->id($pkey);
  $self->con_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Contact::update_db: object not in DB"
    unless defined $self->id() && defined $self->con_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

ControlledVocab/ControlledVocab.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::ControlledVocab::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'ControlledVocab');
  $self->id($pkey);
  $self->term_string($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::ControlledVocab::update_db: object not in DB"
    unless defined $self->id() && defined $self->term_string();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

ExperimentFactors/ExperimentFactors.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::ExperimentFactors::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'ExperimentFactors');
  $self->id($pkey);
  $self->ef_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::ExperimentFactors::update_db: object not in DB"
    unless defined $self->id() && defined $self->ef_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

ExperimentSet/ExperimentSet.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::ExperimentSet::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'ExperimentSet');
  $self->id($pkey);
  $self->es_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::ExperimentSet::update_db: object not in DB"
    unless defined $self->id() && defined $self->es_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

ExternalDatabase/ExternalDatabase.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::ExternalDatabase::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'ExternalDatabase');
  $self->id($pkey);
  $self->name($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::ExternalDatabase::update_db: object not in DB"
    unless defined $self->id() && defined $self->name();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

GenexAdmin/GenexAdmin.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::GenexAdmin::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'GenexAdmin');
  $self->id($pkey);
  $self->ga_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::GenexAdmin::update_db: object not in DB"
    unless defined $self->id() && defined $self->ga_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

GroupSec/GroupSec.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::GroupSec::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'GroupSec');
  $self->id($pkey);
  $self->gs_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::GroupSec::update_db: object not in DB"
    unless defined $self->id() && defined $self->gs_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Protocol/Protocol.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Protocol::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Protocol');
  $self->id($pkey);
  $self->prt_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Protocol::update_db: object not in DB"
    unless defined $self->id() && defined $self->prt_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Sample/Sample.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Sample::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Sample');
  $self->id($pkey);
  $self->smp_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Sample::update_db: object not in DB"
    unless defined $self->id() && defined $self->smp_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Scanner/Scanner.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Scanner::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Scanner');
  $self->id($pkey);
  $self->scn_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Scanner::update_db: object not in DB"
    unless defined $self->id() && defined $self->scn_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Software/Software.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Software::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Software');
  $self->id($pkey);
  $self->sw_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Software::update_db: object not in DB"
    unless defined $self->id() && defined $self->sw_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Species/Species.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Species::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Species');
  $self->id($pkey);
  $self->spc_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Species::update_db: object not in DB"
    unless defined $self->id() && defined $self->spc_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

Spotter/Spotter.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::Spotter::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'Spotter');
  $self->id($pkey);
  $self->sptr_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::Spotter::update_db: object not in DB"
    unless defined $self->id() && defined $self->sptr_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

TreatmentLevel/TreatmentLevel.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::TreatmentLevel::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'TreatmentLevel');
  $self->id($pkey);
  $self->tl_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::TreatmentLevel::update_db: object not in DB"
    unless defined $self->id() && defined $self->tl_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

UserSec/UserSec.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::UserSec::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'UserSec');
  $self->id($pkey);
  $self->us_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::UserSec::update_db: object not in DB"
    unless defined $self->id() && defined $self->us_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

UserSequenceFeature/UserSequenceFeature.pm  view on Meta::CPAN

  if ($dbh->err) {
    warn "Bio::Genex::UserSequenceFeature::insert_db: SQL=<$sql>, DBI=<$DBI::errstr>";
    return undef;
  }
  my $pkey = fetch_last_id($dbh,'UserSequenceFeature');
  $self->id($pkey);
  $self->usf_pk($pkey);
  return $pkey;
}

sub update_db {
  my ($self,$dbh) = @_;
  assert_dbh($dbh);
  die "Bio::Genex::UserSequenceFeature::update_db: object not in DB"
    unless defined $self->id() && defined $self->usf_pk();

  # we must pre-fetch all the attributes 
  $self->fetch();

  # iterate over the fields and add them to the INSERT
  my %values;

scripts/create_genex_class.pl  view on Meta::CPAN

  if (\$dbh->err) {
    warn "$ {full_module_name}::insert_db: SQL=<\$sql>, DBI=<\$DBI::errstr>";
    return undef;
  }
  my \$pkey = fetch_last_id(\$dbh,'$module_name');
  \$self->id(\$pkey);
  \$self->$PKEY(\$pkey);
  return \$pkey;
}

sub update_db {
  my (\$self,\$dbh) = \@_;
  assert_dbh(\$dbh);
  die "$ {full_module_name}::update_db: object not in DB"
    unless defined \$self->id() && defined \$self->$PKEY();

  # we must pre-fetch all the attributes 
  \$self->fetch();

  # iterate over the fields and add them to the INSERT
  my \%values;

 view all matches for this distribution
 view release on metacpan -  search on metacpan