From 12a7cb311fab0975cc31a6f1054440b42617acec Mon Sep 17 00:00:00 2001
From: Andrew Yates <ayates@ebi.ac.uk>
Date: Thu, 10 Jan 2013 09:31:53 +0000
Subject: [PATCH] Removed DBI and the bad bits of error checking
---
misc-scripts/xref_mapping/XrefParser/CCDSParser.pm | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/misc-scripts/xref_mapping/XrefParser/CCDSParser.pm b/misc-scripts/xref_mapping/XrefParser/CCDSParser.pm
index ae9ece695e..fbcf6ef601 100644
--- a/misc-scripts/xref_mapping/XrefParser/CCDSParser.pm
+++ b/misc-scripts/xref_mapping/XrefParser/CCDSParser.pm
@@ -2,7 +2,6 @@ package XrefParser::CCDSParser;
use strict;
use Carp;
-use DBI;
use base qw( XrefParser::BaseParser );
use XrefParser::Database;
@@ -54,11 +53,7 @@ sub run_script {
if(!defined($dbi2)){
return 1;
}
-
-
- my $line_count = 0;
- my $xref_count = 0;
-
+
my $sql =(<<'SCD');
SELECT t.stable_id, x.dbprimary_acc
FROM xref x, object_xref ox, transcript t, external_db e
@@ -71,8 +66,8 @@ SCD
my %seen;
- my $sth = $dbi2->prepare($sql) or "Could not prepare sql $sql\n";;
- $sth->execute() or die "Could not execute $sql\n";;
+ my $sth = $dbi2->prepare($sql) or die "Could not prepare sql $sql\n";
+ $sth->execute() or die "Could not execute $sql\n";
my $xref_count = 0;
my $direct_count=0;
my ($stable_id, $display_label);
--
GitLab