[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon Jul 16 17:28:09 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies
In directory dev.open-bio.org:/tmp/cvs-serv21963/RDF/Ontologies

Modified Files:
	Namespaces.pm 
Log Message:
when querying for the root namespace (Namespace), empty rdf was returned. now not so much!

moby-live/Perl/MOBY/RDF/Ontologies Namespaces.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm	2007/07/05 17:38:26	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm	2007/07/16 21:28:09	1.2
@@ -263,7 +263,9 @@
 	my $prettyPrint = $hash->{prettyPrint} ? $hash->{prettyPrint} : 'yes';
 	
 	my $termExists = 0;
-
+	#special case where term == Namespace
+	$termExists = $termExists + 1 if $term eq 'Namespace';
+	
 	# set up an RDF model
 	my $storage = new RDF::Core::Storage::Memory;
 	my $model   = new RDF::Core::Model( Storage => $storage );
@@ -332,7 +334,6 @@
 
 		#base case
 		$term = '' if $term eq 'Namespace';
-
 		# returns an array of hash references
 		while ( my $ref = $sth->fetchrow_arrayref ) {
 			$termExists++;