[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.675, Wed Mar 12 21:18:14 2008 UTC revision 1.676, Thu Mar 13 19:22:39 2008 UTC
# Line 544  Line 544 
544    
545  ##################  ##################
546  use SOAP::Lite;  use SOAP::Lite;
547    
548    sub get_all_assertions {
549        my($pegs) = @_;
550    
551        my $response = SOAP::Lite
552            -> uri('http://www.nmpdr.org/AnnoClearinghouse_SOAP')
553            -> proxy('http://clearinghouse.nmpdr.org/aclh-soap.cgi')
554            -> get_all_annotations( $pegs );
555    
556        if (! $response) { return () }
557        my $result = $response->result;
558        if (! $result)   { return () }
559    
560        my @assertions = ();
561        foreach my $peg (@$pegs)
562        {
563            push @assertions, $result->{$peg};
564        }
565        return @assertions;
566    }
567    
568  sub get_expert_assertions {  sub get_expert_assertions {
569      my($pegs) = @_;      my($pegs) = @_;
570    

Legend:
Removed from v.1.675  
changed lines
  Added in v.1.676

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3