[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Feb 20 11:23:07 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies
In directory dev.open-bio.org:/tmp/cvs-serv16667/Perl/MOBY/RDF/Ontologies

Modified Files:
	ServiceTypes.pm 
Log Message:
patched a bug in the service type rdf that resulted in invalid email addresses, authorities and lsids being used.
moby-live/Perl/MOBY/RDF/Ontologies ServiceTypes.pm,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2008/01/14 14:23:39	1.6
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2008/02/20 16:23:07	1.7
@@ -311,7 +311,6 @@
 
 	my $node_factory = new RDF::Core::NodeFactory();
 
-	# add the datatype Object to the model
 	do {
 		my $db = MOBY::Config->new()-> getDataAdaptor( source => "mobyservice" )->dbh;
 		my $sth  = $db->prepare( $self->{query} );
@@ -328,12 +327,12 @@
 			my $subject      = $$ref[0];
 			my $relationship = $$ref[1];
 			my $object       = $$ref[2];
-			my $articlename  = $$ref[3] || '';
-			my $description  = $$ref[4];
-			my $lsid         = $$ref[5];
-			my $authority    = $$ref[6];
-			my $email        = $$ref[7];
-
+			my $description  = $$ref[3];
+			my $lsid         = $$ref[4];
+			my $authority    = $$ref[5];
+			my $email        = $$ref[6];
+			my $object_lsid  = $$ref[7];
+			
 			my $resource = new RDF::Core::Resource( $self->{uri}, $subject );
 			$model->addStmt(
 				new RDF::Core::Statement(