[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Apr 30 12:53:26 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-serv13402/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache

Modified Files:
	ObjectCache.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 ObjectCache.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache/ObjectCache.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/RDF/Ontologies/Cache/ObjectCache.pm	2008/02/21 17:43:13	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Cache/ObjectCache.pm	2008/04/30 16:53:26	1.4
@@ -20,6 +20,7 @@
 
 use Fcntl ':flock';
 
+use MOBY::RDF::Utils;
 use MOBY::RDF::Ontologies::Objects;
 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" )