[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon May 30 19:28:45 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv2890

Modified Files:
	service_instance.pm 
Log Message:
created an lsid for insertion into db
Eddie

moby-live/Perl/MOBY service_instance.pm,1.9,1.10
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2004/11/18 17:41:14	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/05/30 23:28:45	1.10
@@ -261,6 +261,14 @@
 		&& ( defined $self->description )
 	  )
 	{        # then create it de novo if we have enough information
+		#create LSID for service and register it in the DB
+	my $_config ||= MOBY::Config->new;
+	my $service_lsid = "urn:lsid:"
+	  . $_config->{mobycentral}->{lsid_authority} . ":"
+	  . $_config->{mobycentral}->{lsid_namespace} . ":"
+	  . $self->authority_uri . ","
+	  . $self->servicename;
+ 
 		my $id = $self->adaptor->insert_service_instance(
 									category         => $self->category,
 									servicename      => $self->servicename,
@@ -271,6 +279,7 @@
 									authoritative    => $self->authoritative,
 									description      => $self->description,
 									signatureURL     => $self->signatureURL,
+									lsid			 => $service_lsid
 		);
 		$self->service_instance_id($id);
 		$self->{__exists__} = 1;    # this service now exists