#! /usr/bin/perl -w

#patch para arreglar el link de Xenopus la base de datos 
# this should be fix in the table an the database rebuild but I don't want to risk it now   

use strict;
use DBI;

my $database='DDR_120115';
my $hostname='demetriusIB';                
my $dsn = "DBI:mysql:database=$database;host=$hostname";
my $user='ddr_admin';
my $password='ddr_2014';
my $dbh = DBI->connect($dsn, $user,$password);

$dbh->do("update emergence SET link='http://genome.jgi-psf.org/cgi-bin/dispGeneModel?db=Xentr4&id=' where id_org=11
") || die $dbh->errstr;