[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Aug 15 20:37:50 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv3569

Modified Files:
	LocalServices.pm 
Log Message:
oops... I broke my services :-) 

moby-live/Perl/scripts/Services LocalServices.pm,1.28,1.29
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/08/15 23:41:56	1.28
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/08/16 00:37:50	1.29
@@ -63,11 +63,11 @@
 		unless ($acc =~/^GO:/){
 			$acc = "GO:$acc";  # we still haven't decided on whether id's should include the prefix...
 		}
-        $sth->execute($_);        
+        $sth->execute($acc);        
         my ($term, $def) = $sth->fetchrow_array;
         if ($term){
             $response .= simpleResponse("
-                <moby:GO_Term namespace='GO' id='$_'>
+                <moby:GO_Term namespace='GO' id='$acc'>
                     <moby:String namespace='' id='' articleName='Term'>$term</moby:String>
                     <moby:String namespace='' id='' articleName='Definition'>$def</moby:String>
                 </moby:GO_Term>")
@@ -143,7 +143,7 @@
 			$acc = "GO:$acc";  # we still haven't decided on whether id's should include the prefix...
 		}
 		my @simples;
-        $sth->execute($_);
+        $sth->execute($acc);
         while (my ($symb, $sp, $namsp, $type, $name, $def) = $sth->fetchrow_array){
             my $response_data .= "<Object namespace='$namsp' id='$symb'>\n";
 			$response_data .= "	<CrossReference>\n";
@@ -599,7 +599,7 @@
 	my $password = $ENV{MOBY_CENTRAL_DBPASS}; chomp $password;
 	my $port = $ENV{MOBY_CENTRAL_DBPORT}; chomp $port;
 	
-	my ($dsn) = "DBI:mysql:go:localhost:3306";
+	my ($dsn) = "DBI:mysql:go_full:localhost:3306";
 	my $dbh = DBI->connect($dsn, 'go', 'go', {RaiseError => 1}) or die "can't connect to database";
 	
 	return ($dbh);