[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Tue Sep 27 00:01:24 UTC 2005


mwilkinson
Mon Sep 26 20:01:24 EDT 2005
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv19693/scripts

Modified Files:
	OntologyServer.cgi 
Log Message:
fixing ontology server relationshipExists call

moby-live/Perl/scripts OntologyServer.cgi,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2003/10/09 16:49:22	1.4
+++ /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2005/09/27 00:01:24	1.5
@@ -7,10 +7,10 @@
 
 my $q = CGI->new();
 my @params = $q->param;
-my $param = $params[0];  # one call per customer
+my $subroutine = $params[0];  # one call per customer
 
 no strict "refs";
-&$param($q->param($param));  #call that subroutie with the passed value
+&$subroutine($q->param($subroutine), $q);  #call that subroutie with the passed value
 use strict;
 
 sub testme {
@@ -60,10 +60,11 @@
 }
 
 sub relationshipExists {
+    my ($term, $CGI) = @_;
     my $OS = MOBY::OntologyServer->new(ontology => "relationship");
-    my ($success, $description, $id) = $OS->relationshipExists(term => $_[0]);
-    print header(-type => 'text/plain'), "$success\n$description\n$id";
-    
+    my $ontology = $CGI->param('ontology');
+    my ($success, $description, $id) = $OS->relationshipExists(ontology => $ontology, term => $term);
+    print header(-type => 'text/plain'), "$success\n$description\n$id";    
 }
 
 sub serviceExists {




More information about the MOBY-guts mailing list