[Bio] / FigWebServices / fig_scripts_service.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/fig_scripts_service.cgi

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

revision 1.7, Sat Nov 10 19:35:56 2007 UTC revision 1.8, Thu Dec 13 21:12:14 2007 UTC
# Line 367  Line 367 
367    
368  =begin WSDL  =begin WSDL
369  _IN in $string  _IN in $string
370  _RETURN @string  _RETURN $string
371  _DOC Input is a peg, output is list of 4 tuples  _DOC Input is a peg, output is list of [protein, score] for things that are coupled to this peg
372    =cut
373    sub coupled_to {
374            my $class = shift();
375            my $fig = new FIG;
376            my $return=undef;
377            my @result = $fig->coupled_to(@_);
378            if (@result)
379            {
380                    $return = join("\n", map {$_->[0].",".$_->[1]} @result);
381            }
382            return $return;
383    }
384    
385    =begin WSDL
386    _IN in $string
387    _RETURN $string
388    _DOC Input is a peg, output is list of [protein, score] for things that are coupled to this peg
389  =cut  =cut
390  sub abstract_coupled_to {  sub abstract_coupled_to {
391          my $class = shift();          my $class = shift();
392          my $fig = new FIG;          my $fig = new FIG;
393            my $return=undef;
394          my @result = $fig->abstract_coupled_to(@_);          my @result = $fig->abstract_coupled_to(@_);
395          return @result;          if (@result)
396            {
397                    $return = join("\n", map {$_->[0].",".$_->[1]} @result);
398            }
399            return $return;
400  }  }
401    
402  =begin WSDL  =begin WSDL

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3