[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Aug 14 16:42:39 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv29718

Modified Files:
	LocalServices.pm 
Log Message:
Okay Okay... Rebecca caught me creating non-MOBY-compliant services :-)  I was breaking the rule that you must return a crossreference Invocation objevct if you change the namespace during the service transformation.  This new code will return a valid response for the GO term from keyword service.                                                                                                                                                       

moby-live/Perl/scripts/Services LocalServices.pm,1.25,1.26
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/17 15:50:14	1.25
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/08/14 20:42:39	1.26
@@ -130,6 +130,9 @@
 			my $def = $term->definition;
 			my $name = $term->name;
             push @simples, "<moby:GO_Term namespace='GO' id='$acc'>
+                    <CrossReference>
+						<Invocation namespace='$VALID_NAMESPACE' id='$kw'/>
+					<CrossReference>
                     <moby:String namespace='' id='' articleName='Term'>$name</moby:String>
                     <moby:String namespace='' id='' articleName='Definition'>$def</moby:String>
                 </moby:GO_Term>";