[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Oct 21 10:09:21 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv26581/Perl/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
thanks ken - good eye.  My Sequence objects were all wrong in that the Integer tag was written as 'Int' rather than 'Integer'.  I hope I didn't lead too many people astray with this error...

moby-live/Perl/scripts/Services LocalServices.pm,1.35,1.36
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/10/20 14:23:54	1.35
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/10/21 14:09:21	1.36
@@ -274,7 +274,7 @@
 		if ($length){
 			$response .= simpleResponse("
 		<moby:VirtualSequence namespace='NCBI_Acc' id='$acc'>
-			<moby:Int namespace='' id='' articleName='Length'>$length</moby:Int>
+			<moby:Integer namespace='' id='' articleName='Length'>$length</moby:Integer>
 		</moby:VirtualSequence>");
 		} else {
 			$response .= simpleResponse("");
@@ -318,7 +318,7 @@
 		if ($length){
 			$response .= simpleResponse("
 		<moby:GenericSequence namespace='NCBI_Acc' id='$acc'>
-			<moby:Int namespace='' id='' articleName='Length'>$length</moby:Int>
+			<moby:Integer namespace='' id='' articleName='Length'>$length</moby:Integer>
 			<moby:String namespace='' id='' articleName='SequenceString'>$sequence</moby:String>
 		</moby:GenericSequence>");
 		} else {
@@ -363,7 +363,7 @@
 		if ($length){
 			$response .= simpleResponse("
 		<moby:VirtualSequence namespace='NCBI_gi' id='$acc'>
-			<moby:Int namespace='' id='' articleName='Length'>$length</moby:Int>
+			<moby:Integer namespace='' id='' articleName='Length'>$length</moby:Integer>
 		</moby:VirtualSequence>");
 		} else {
 			$response .= simpleResponse("");
@@ -408,7 +408,7 @@
 		if ($length){  # and construct the response
 			$response .= simpleResponse("
 		<moby:GenericSequence namespace='NCBI_gi' id='$acc'>
-			<moby:Int namespace='' id='' articleName='Length'>$length</moby:Int>
+			<moby:Integer namespace='' id='' articleName='Length'>$length</moby:Integer>
 			<moby:String namespace='' id='' articleName='SequenceString'>$sequence</moby:String>
 		</moby:GenericSequence>");
 		} else {
@@ -499,7 +499,7 @@
 			if ($acc && !($namespace_LSID eq $GB_Acc_LSID)){$tempresponse .="<Object namespace='NCBI_Acc' id='$acc'/>"}
 			if ($gi && !($namespace_LSID eq $GB_gi_LSID)){$tempresponse .="<Object namespace='NCBI_gi' id='$gi'/>"}
 			$tempresponse .="</CrossReference>
-			<moby:Int namespace='' id='' articleName='Length'>$length</moby:Int>
+			<moby:Integer namespace='' id='' articleName='Length'>$length</moby:Integer>
 			<moby:String namespace='' id='' articleName='SequenceString'>$sequence</moby:String>
 		</moby:$ObjectType>";
 			$response .= simpleResponse($tempresponse);