[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jul 27 11:29:39 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv29378/MOBY

Modified Files:
	service_instance.pm 
Log Message:
new service instance didnt know its own LSID

moby-live/Perl/MOBY service_instance.pm,1.31,1.32
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/27 14:06:15	1.31
+++ /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/27 15:29:38	1.32
@@ -233,7 +233,7 @@
 		my $service_lsid = "urn:lsid:$LSID_Auth:$LSID_NS:"
 		  . $self->authority_uri . ","
 		  . $self->servicename;
- 
+		$self->lsid($service_lsid);
 		my $id = $self->adaptor->insert_service_instance(
 			category         => $self->category,
 			servicename      => $self->servicename,