[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Jan 11 00:51:10 EST 2004
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv304/Services

Modified Files:
	LocalServices.pm 
Log Message:
a new OntologyServer that returns lots of RDF for those who love RDF.  Mmmmm, RDFFFFFFF

moby-live/Perl/scripts/Services LocalServices.pm,1.49,1.50
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -r1.49 -r1.50
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/16 20:46:40	1.49
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2004/01/11 05:51:10	1.50
@@ -463,7 +463,7 @@
 				if ($kw){$tempresponse .="<Object namespace='Global_Keyword' id='$kw'/>\n"}
 				if ($acc){$tempresponse .="<Object namespace='NCBI_Acc' id='$acc'/>\n"}
 				$tempresponse .="<Object namespace='NCBI_gi' id='$identifier'/>\n";
-				$tempresponse .="</CrossReference>\n<Integer namespace='' id='' articleName='Length'>".($SEQ->length)."</Integer>
+				$tempresponse .="</CrossReference>\n<Integer namespace='' id='' articleName='Length'>$length</Integer>
 												 </VirtualSequence>";
 				$MOBY_RESPONSE .= simpleResponse($tempresponse, "", $qID);
 			} elsif (($ns eq $validNS{'NCBI_Acc'}) || ($ns eq $validNS{'EMBL'})){