[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Apr 30 12:53:45 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache
In directory dev.open-bio.org:/tmp/cvs-serv13482/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache

Modified Files:
	ServiceTypeCache.pm 
Log Message:
added a check for situations when there is nothing in the ontology. This was causing an error before and now empty rdf is returned.
moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache ServiceTypeCache.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.pm	2008/02/21 17:15:40	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.pm	2008/04/30 16:53:45	1.3
@@ -20,6 +20,7 @@
 
 use Fcntl ':flock';
 
+use MOBY::RDF::Utils;
 use MOBY::RDF::Ontologies::ServiceTypes;
 use MOBY::RDF::Ontologies::Cache::CacheUtils;
 use MOBY::Client::Central;
@@ -447,7 +448,8 @@
 				}
 
 			}
-			$xml = $doc->toString();
+			$xml = $doc->toString() if $doc;
+			$xml = new MOBY::RDF::Utils->empty_rdf unless $doc;
 
 			# save new RDF file
 			open( FILE, ">$file" )