From dac53213ef0c45f4866c7a62199b897420c8ec3a Mon Sep 17 00:00:00 2001
From: Ian Longden <ianl@sanger.ac.uk>
Date: Fri, 22 May 2009 13:06:13 +0000
Subject: [PATCH] store and retrieve meta pair vlaues
---
.../xref_mapping/XrefMapper/BasicMapper.pm | 25 +++++++++++++++++++
1 file changed, 25 insertions(+)
diff --git a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
index f66de70205..ac4cde7699 100644
--- a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
+++ b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
@@ -67,6 +67,16 @@ sub core{
}
+sub add_meta_pair {
+
+ my ($self, $key, $value) = @_;
+
+ my $sth = $self->xref->dbc->prepare('insert into meta (meta_key, meta_value, date) values("'.$key.'", "'.$value.'", now())');
+ $sth->execute;
+ $sth->finish;
+
+}
+
sub xref_latest_status {
my $self = shift;
@@ -85,6 +95,19 @@ sub xref_latest_status {
}
+sub get_meta_value {
+ my ($self, $key) = @_;
+
+ my $sth = $self->xref->dbc->prepare('select meta_value from meta where meta_key like "'.$key.'"');
+
+ $sth->execute();
+ my $value;
+ $sth->bind_columns(\$value);
+ $sth->fetch;
+ $sth->finish;
+
+ return $value;
+}
sub process_file {
my $self = shift;
@@ -182,6 +205,7 @@ sub process_file {
-dbname => $dbname);
$mapper->xref($xref);
+ $mapper->add_meta_pair("xref", $host.":".$dbname);
if(defined($xref_hash{'dir'})){
$xref->dir($xref_hash{'dir'});
if(!-d $xref_hash{'dir'}){
@@ -225,6 +249,7 @@ sub process_file {
-dbname => $dbname);
$mapper->core($core);
+ $mapper->add_meta_pair("species", $host.":".$dbname);
if(defined($species_hash{'dir'})){
$core->dir($species_hash{'dir'});
--
GitLab