From 0b65502a14b81a1be6995f20d04a9872d3cbde66 Mon Sep 17 00:00:00 2001
From: Felix Kokocinski <fsk@sanger.ac.uk>
Date: Mon, 21 Aug 2006 16:28:02 +0000
Subject: [PATCH] added update_ditag() method
---
modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm | 27 ++++++++++++++++++-
1 file changed, 26 insertions(+), 1 deletion(-)
diff --git a/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm b/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm
index 057662dc25..808d9096b4 100644
--- a/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm
+++ b/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm
@@ -269,7 +269,8 @@ sub store {
$sth->execute($ditag->name, $ditag->type);
if($sth->fetchrow() > 0){
warning( "Ditag with name/type ".$ditag->name." / ".$ditag->type.
- " is already stored in this database." );
+ " is already stored in this database.\n".
+ "Use $da->update_ditag() instead.");
next TAG;
}
@@ -329,6 +330,30 @@ sub print_creation {
}
+=head2 update_ditag
+
+ Arg [1] : ditag to update
+ Description: update an existing ditag with new values
+ Returntype : 1 on success
+
+=cut
+
+sub update_ditag {
+ my ($self, $ditag) = @_;
+
+ my $sth = $self->prepare( "UPDATE ditag SET name=?, type=?, tag_count=?, sequence=? where ditag_id=?;" );
+ my $result =$sth->execute(
+ $ditag->name,
+ $ditag->type,
+ $ditag->tag_count,
+ $ditag->sequence,
+ $ditag->dbID,
+ );
+
+ return $result;
+}
+
+
=head2 list_dbIDs
Args : None
--
GitLab