[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed May  6 09:47:31 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv9364/MOSES-MOBY/lib/MOSES/MOBY

Modified Files:
	Async.pm 
Log Message:

moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY Async.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Async.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Async.pm	2009/04/08 20:46:23	1.2
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Async.pm	2009/05/06 13:47:31	1.3
@@ -454,6 +454,7 @@
 	my $ans = '';
 	foreach my $queryID (@ids) {
 		my $property_status = "result_$queryID";
+		# TODO - does the property exist? if not throw error so we dont pass invalid XML
 		$ans .= "<"
 		  . $WSRF::WSRP::PropertyNamespaceMap->{$property_status}{prefix}
 		  . ":$property_status";
@@ -575,6 +576,8 @@
 	my $ans = '';
 	foreach my $queryID (@ids) {
 		my $property_status = "status_$queryID";
+		# does our property exist? 
+		# TODO - throw error if property doesnt exist so that we dont pass invalid XML
 		$ans .= "<"
 		  . $WSRF::WSRP::PropertyNamespaceMap->{$property_status}{prefix}
 		  . ":$property_status";