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

Diff of /FigWebServices/co_occurs_server.cgi

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

revision 1.2, Fri May 8 21:24:11 2009 UTC revision 1.3, Mon May 11 19:50:26 2009 UTC
# Line 12  Line 12 
12  use ERDB;  use ERDB;
13  use FC;  use FC;
14    
15    print $cgi->header();
16  my $function = $cgi->param('function');  my $function = $cgi->param('function');
17  $function || die "Missing a function in call to co_occurs_server.cgi";  $function || die "Missing a function in call to co_occurs_server.cgi";
18    
# Line 30  Line 31 
31              my($sc,$fid,$pairset) = @$tuple;              my($sc,$fid,$pairset) = @$tuple;
32              push(@$group,[$sc,$fid,scalar $fig->function_of($fid),$pairset]);              push(@$group,[$sc,$fid,scalar $fig->function_of($fid),$pairset]);
33          }          }
34    
35          push(@$tuples,$group);          push(@$tuples,$group);
36      }      }
37      my $str = &YAML::Dump($tuples);      my $str = &YAML::Dump($tuples);

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3