[MOBY-guts] biomoby commit

[Eddie Kawas]

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

Modified Files:
	service_instance.pm 
Log Message:
Added more lsid stuff. Last time, i promise.
Eddie

moby-live/Perl/MOBY service_instance.pm,1.10,1.11
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/05/30 23:28:45	1.10
+++ /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/05/30 23:33:44	1.11
@@ -71,7 +71,8 @@
 		contact_email       => [ undef, 'read/write' ],
 		authoritative       => [ 0,     'read/write' ],
 		description         => [ undef, 'read/write' ],
-		registry => [ 'MOBY_Central', 'read/write' ],
+		registry => [ 'MOBY_Central', 'read/write' ],		
+		lsid => [ undef, 'read/write' ],
 		test     => [ 0,              'read/write' ]
 		,    # toggles create or test_existence behaviour
 	  );
@@ -249,6 +250,7 @@
 		$self->description( $existing_service->{'desc'} );
 		$self->authority( $existing_service->{'authURI'} );
 		$self->signatureURL( $existing_service->{'signatureURL'} );
+	    $self->lsid( $existing_service->{'lsid'} );
 		$self->{__exists__} = 1;    # this service already existed
 	} elsif (
 		!($existing_service)        # if it doesn't exist