[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.672, Thu Mar 6 17:05:22 2008 UTC revision 1.673, Wed Mar 12 16:15:02 2008 UTC
# Line 542  Line 542 
542      }      }
543  }  }
544    
545    ##################
546    use SOAP::Lite;
547    sub get_expert_assertions {
548        my($pegs) = @_;
549    
550        my $response = SOAP::Lite
551            -> uri('http://www.nmpdr.org/AnnoClearinghouse_SOAP')
552            -> proxy('http://clearinghouse.nmpdr.org/aclh-soap.cgi')
553            -> get_user_annotations( $pegs );
554    
555        if (! $response) { return () }
556        my $result = $response->result;
557        if (! $result)   { return () }
558        my @assertions = ();
559        foreach my $peg (keys(%$result))
560        {
561            my $x = $result->{$peg};
562            push(@assertions,map { [$peg,@$_] } @$x);
563        }
564        return sort { &FIG::by_fig_id($a->[0],$b->[0]) } @assertions;
565    }
566    ###############
567    
568    
569  =head3 delete_genomes  =head3 delete_genomes
570    
571      $fig->delete_genomes(\@genomes);      $fig->delete_genomes(\@genomes);

Legend:
Removed from v.1.672  
changed lines
  Added in v.1.673

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3