[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon Jan 14 09:23:39 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies
In directory dev.open-bio.org:/tmp/cvs-serv32381/Perl/MOBY/RDF/Ontologies

Modified Files:
	ServiceTypes.pm Namespaces.pm Services.pm Objects.pm 
Log Message:
taverna dies because of the '/', so reverting back to '#' for the time being.
moby-live/Perl/MOBY/RDF/Ontologies ServiceTypes.pm,1.5,1.6 Namespaces.pm,1.5,1.6 Services.pm,1.10,1.11 Objects.pm,1.7,1.8
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2007/12/21 15:39:03	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2008/01/14 14:23:39	1.6
@@ -75,8 +75,8 @@
     
     # save some information retrieved from mobycentral.config
     my $CONF  = MOBY::Config->new;
-	$self->{uri}       = $CONF->{mobyservice}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Services/';
-	$self->{uri} = $self->{uri} . "/" unless $self->{uri} =~ m/^.*(\/{1})$/;
+	$self->{uri}       = $CONF->{mobyservice}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Services#';
+	$self->{uri} = $self->{uri} . "#" unless $self->{uri} =~ m/^.*(\#{1})$/;
 	
 	$self->{query_all} = <<END;
 SELECT ot1.service_type, rt.relationship_type, ot2.service_type, ot1.description, ot1.service_lsid, ot1.authority, ot1.contact_email, ot2.service_lsid 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm	2007/12/21 00:53:02	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm	2008/01/14 14:23:39	1.6
@@ -74,8 +74,8 @@
 	
 	# save some information retrieved from mobycentral.config
     my $CONF  = MOBY::Config->new;
-	$self->{uri}       = $CONF->{mobynamespace}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Namespaces/';
-	$self->{uri} = $self->{uri} . "/" unless $self->{uri} =~ m/^.*(\/{1})$/;
+	$self->{uri}       = $CONF->{mobynamespace}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Namespaces#';
+	$self->{uri} = $self->{uri} . "#" unless $self->{uri} =~ m/^.*(\#{1})$/;
 
 	$self->{query_all} = <<END;
 SELECT namespace_type, description, namespace_lsid, authority, contact_email FROM namespace ORDER BY namespace_type asc

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Services.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Services.pm	2007/12/21 00:53:02	1.10
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Services.pm	2008/01/14 14:23:39	1.11
@@ -146,26 +146,26 @@
 
 		#revert to a default value if nothing is retrieved
 		$self->{instance_uri} =
-		  'http://biomoby.org/RESOURCES/MOBY-S/ServiceInstances/'
+		  'http://biomoby.org/RESOURCES/MOBY-S/ServiceInstances#'
 		  unless $moby->{ServiceInstance}->[0];
-		$self->{service_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Services/'
+		$self->{service_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Services#'
 		  unless $moby->{Services}->[0];
 		$self->{namespace_uri} =
-		  'http://biomoby.org/RESOURCES/MOBY-S/Namespaces/'
+		  'http://biomoby.org/RESOURCES/MOBY-S/Namespaces#'
 		  unless $moby->{Namespaces}->[0];
-		$self->{datatype_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Objects/'
+		$self->{datatype_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Objects#'
 		  unless $moby->{Objects}->[0];
 	}
 
 	# add a / at the end of the uri if it isnt there already
-	$self->{instance_uri} = $self->{instance_uri} . "/"
-	  unless $self->{instance_uri} =~ m/^.*(\/{1})$/;
-	$self->{service_uri} = $self->{service_uri} . "/"
-	  unless $self->{service_uri} =~ m/^.*(\/{1})$/;
-	$self->{namespace_uri} = $self->{namespace_uri} . "/"
-	  unless $self->{namespace_uri} =~ m/^.*(\/{1})$/;
-	$self->{datatype_uri} = $self->{datatype_uri} . "/"
-	  unless $self->{datatype_uri} =~ m/^.*(\/{1})$/;    
+	$self->{instance_uri} = $self->{instance_uri} . "#"
+	  unless $self->{instance_uri} =~ m/^.*(\#{1})$/;
+	$self->{service_uri} = $self->{service_uri} . "#"
+	  unless $self->{service_uri} =~ m/^.*(\#{1})$/;
+	$self->{namespace_uri} = $self->{namespace_uri} . "#"
+	  unless $self->{namespace_uri} =~ m/^.*(\#{1})$/;
+	$self->{datatype_uri} = $self->{datatype_uri} . "#"
+	  unless $self->{datatype_uri} =~ m/^.*(\#{1})$/; 
 
 	$self->{is_alive_path} = $CONF->{mobycentral}->{service_tester_path};
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.pm	2007/12/21 15:39:03	1.7
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.pm	2008/01/14 14:23:39	1.8
@@ -76,8 +76,8 @@
 	
 	# save some information retrieved from mobycentral.config
     my $CONF  = MOBY::Config->new;
-	$self->{uri}       = $CONF->{mobyobject}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Objects/';
-	$self->{uri} = $self->{uri} . "/" unless $self->{uri} =~ m/^.*(\/{1})$/;
+	$self->{uri}       = $CONF->{mobyobject}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Objects#';
+	$self->{uri} = $self->{uri} . "#" unless $self->{uri} =~ m/^.*(\#{1})$/;
 	
 	$self->{uri_comp} = $self->{uri};
 	$self->{uri_comp} =~ s/\/MOBY\-S\//\/MOBY_SUB_COMPONENT\//;