Changeset 6269 for branches/clusters/PERL_SCRIPTS/GENOME/GI.pm

Timestamp:

23/11/09 08:54:41 (3 years ago)

Author:

westram

Message:

• merged 6262-6267

Files:

• branches/clusters/PERL_SCRIPTS/GENOME/GI.pm (modified) (3 diffs)

branches/clusters/PERL_SCRIPTS/GENOME/GI.pm

@@ -72 +72 @@
       $gb_orf = BIO::create_nonexisting_gene($gb_genome, $orf);
       if (!$gb_orf) {
-        my $reason = ARB::get_error();
+        my $reason = ARB::await_error();
         $error = "cannot create gene '$orf' ($reason)";
       }
@@ -78 +78 @@
         my $gb_locus_tag = ARB::search($gb_orf, "locus_tag", "STRING");
         if (!$gb_locus_tag) {
-          my $reason = ARB::get_error();
+          my $reason = ARB::await_error();
           $error = "cannot create field 'locus_tag' ($reason)";
         }
@@ -106 +106 @@
     $gb_field = ARB::search($gb_container, $field_name, $field_type);
     if (!$gb_field) {
-      my $reason = ARB::get_error();
+      my $reason = ARB::await_error();
       $error = "Can't create '$field_name' ($reason)";
     }