From 5e14bb53b2d5500cbaaf443c9667965b685f07e3 Mon Sep 17 00:00:00 2001
From: tjc <tjc@ee4ac58c-ac51-4696-9907-e4b3aa274f04>
Date: Thu, 9 Dec 2004 14:25:42 +0000
Subject: [PATCH] fixes

git-svn-id: svn+ssh://svn.internal.sanger.ac.uk/repos/svn/pathsoft/artemis/trunk@2124 ee4ac58c-ac51-4696-9907-e4b3aa274f04
---
 etc/run_jalview | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/etc/run_jalview b/etc/run_jalview
index c14248f67..968b9c87d 100755
--- a/etc/run_jalview
+++ b/etc/run_jalview
@@ -160,12 +160,12 @@ sub process_fasta
 
   @protein_ids = sort keys %hash;
 
-  my $protein_db = "swall";
+  my $protein_db = "uniprot";
 
   # look for each of the IDs from the FASTA output in each of the DBs
 
   for my $id (@protein_ids) {
-    my $fetch = "getz -sf fasta -f seq [swall-id:$id]";
+    my $fetch = "getz -sf fasta -f seq [uniprot-acc:$id]";
 
     my $temp_seq = "";
 
@@ -230,8 +230,15 @@ while (defined ($file = <>)) {
   }
 }'
 
-perl -w -e "$PERL_PROG" "$@"
+echo "Arguments: $@"
+test=`wc -l "$@" | awk '{print $1}'`
 
+if [ $test != 1 ]
+then
+  perl -w -e "$PERL_PROG" "$@"
+else
+  perl -w -e "$PERL_PROG_FASTA" "$@"
+fi
 
 #if [ $# != 1 ]
 #then
-- 
GitLab