[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Sun Jan 18 03:51:32 UTC 2004


mwilkinson
Sat Jan 17 22:51:32 EST 2004
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv3340/Services

Modified Files:
	LocalServices.pm 
Log Message:
missed the closing tags on some elements

moby-live/Perl/scripts/Services LocalServices.pm,1.51,1.52
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -r1.51 -r1.52
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2004/01/18 03:45:22	1.51
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2004/01/18 03:51:32	1.52
@@ -785,7 +785,7 @@
 	#					push @simples, "<moby:b64_encoded_jpeg namespace='$namespace_LSID' id='$Allele'>$image_data</moby:b64_encoded_jpeg>";  # push it onto the collection list
 						push @simples, qq{<SimpleAnnotatedJPEGImage namespace="DragonDB_Allele" id="$identifier">
 										  <CrossReference>
-										  <Object namespace="DragonDB_Gene" id="$Locus">
+										  <Object namespace="DragonDB_Gene" id="$Locus"/>
 										  </CrossReference>$image_data<String namespace="" id="" articleName="Description">$picdesc</String>};
 					} # no else
 				}
@@ -822,7 +822,7 @@
 			my @simples;
 			foreach (@res){
 				my $Allele = shift @{$_};
-				push @simples, qq{<Object namespace="DragonDB_Allele" id="$Allele">};
+				push @simples, qq{<Object namespace="DragonDB_Allele" id="$Allele"/>};
 			}
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID); # after all images have been collected, create the collection
         }




More information about the MOBY-guts mailing list