[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Dec 21 10:39:03 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies
In directory dev.open-bio.org:/tmp/cvs-serv23637/Perl/MOBY/RDF/Ontologies

Modified Files:
	ServiceTypes.pm Objects.pm 
Log Message:
changed # to / in uris
fixed bug in createByName where the term was the root node and no rdf was generated
moby-live/Perl/MOBY/RDF/Ontologies ServiceTypes.pm,1.4,1.5 Objects.pm,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2007/12/21 00:53:02	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2007/12/21 15:39:03	1.5
@@ -259,6 +259,7 @@
 	my $prettyPrint = $hash->{prettyPrint} ? $hash->{prettyPrint} : 'yes';
 	
 	my $termExists = 0;
+	$termExists++ if $term eq 'Service';
 
 	# set up an RDF model
 	my $storage = new RDF::Core::Storage::Memory;

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.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/Objects.pm	2007/12/21 00:53:02	1.6
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.pm	2007/12/21 15:39:03	1.7
@@ -186,6 +186,8 @@
 	my $prettyPrint = $hash->{prettyPrint} ? $hash->{prettyPrint} : 'yes';
 
 	my $termExists = 0;
+	
+	$termExists++ if $term eq "Object";
 
 	# set up an RDF model
 	my $storage = new RDF::Core::Storage::Memory;