[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon Nov 17 10:27:02 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/lsid/authority
In directory dev.open-bio.org:/tmp/cvs-serv3260/Perl/MOBY-Server/lib/MOBY/lsid/authority

Modified Files:
	MobyMetadataResolver.pm 
Log Message:
fixed the URI component in the isLatest RDF returned by the lsid resolver.
moby-live/Perl/MOBY-Server/lib/MOBY/lsid/authority MobyMetadataResolver.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/lsid/authority/MobyMetadataResolver.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/lsid/authority/MobyMetadataResolver.pm	2008/09/02 13:11:53	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/lsid/authority/MobyMetadataResolver.pm	2008/11/17 15:27:02	1.4
@@ -115,13 +115,15 @@
 	  if ( $latest eq "" );
 
 	my $object = $lsid->object();
+	my $uri = MOBY::RDF::Ontologies::Namespaces->new();
+	$uri = $uri->{uri} || "http://biomoby.org/RESOURCES/MOBY-S/Namespaces#$object";
 	my $data   = <<END;
 <?xml version="1.0" encoding="UTF-8"?>
 <rdf:RDF
     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
     xmlns:lsid="http://lsid.omg.org/predicates#"
     xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#">
-     <rdf:Description rdf:about="http://biomoby.org/RESOURCES/MOBY-S/Namespaces#$object">
+     <rdf:Description rdf:about="$uri">
           <rdfs:comment>The Namespace described by the LSID: $lsid has since been modified. Please update your lsid.</rdfs:comment>
           <lsid:latest>$latest</lsid:latest>
      </rdf:Description>
@@ -333,13 +335,15 @@
 	  if ( $latest eq "" );
 
 	my $object = $lsid->object();
+	my $uri = MOBY::RDF::Ontologies::ServiceTypes->new();
+	$uri = $uri->{uri} || "http://biomoby.org/RESOURCES/MOBY-S/Services#$object";
 	my $data   = <<END;
 <?xml version="1.0" encoding="UTF-8"?>
 <rdf:RDF
     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
     xmlns:lsid="http://lsid.omg.org/predicates#"
     xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#">
-     <rdf:Description rdf:about="http://biomoby.org/RESOURCES/MOBY-S/Services#$object">
+     <rdf:Description rdf:about="$uri">
           <rdfs:comment>The ServiceType described by the LSID: $lsid has since been modified. Please update your lsid.</rdfs:comment>
           <lsid:latest>$latest</lsid:latest>
      </rdf:Description>
@@ -549,13 +553,15 @@
 	  if ( $latest eq "" );
 
 	my $object = $lsid->object();
+	my $uri = MOBY::RDF::Ontologies::Objects->new();
+	$uri = $uri->{uri} || "http://biomoby.org/RESOURCES/MOBY-S/Objects#$object";
 	my $data   = <<END;
 <?xml version="1.0" encoding="UTF-8"?>
 <rdf:RDF
     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
     xmlns:lsid="http://lsid.omg.org/predicates#"
     xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#">
-     <rdf:Description rdf:about="http://biomoby.org/RESOURCES/MOBY-S/Objects#$object">
+     <rdf:Description rdf:about="$uri">
           <rdfs:comment>The Datatype described by the LSID: $lsid has since been modified. Please update your lsid.</rdfs:comment>
           <lsid:latest>$latest</lsid:latest>
      </rdf:Description>