[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Aug 16 15:54:26 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv7214/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
removed some debugging info

moby-live/Perl/MOBY/Client Central.pm,1.47,1.48
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/08/16 15:51:33	1.47
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/08/16 19:54:26	1.48
@@ -189,7 +189,7 @@
 	my $param = join "", @params;  # must be a single message!
 
 	if (lc($type) eq "get"){
-		print STDERR "executing CGI call\n";
+		#print STDERR "executing CGI call\n";
 		use LWP::UserAgent;
 		my $ua = LWP::UserAgent->new;
 		use CGI;
@@ -204,7 +204,7 @@
 			return "<result>EXECUTION ERROR - unsuccessful call to MOBY Central registry named '$reg'</result>"
 		}
 	} else {
-		print STDERR "executing SOAP call\n";
+		#print STDERR "executing SOAP call\n";
 		my $payload = $connect->call($method => $param)->paramsall;
 		return $payload;
 	}	
@@ -872,7 +872,7 @@
 			unless (ref($param) =~ /array/i){return (undef, $self->errorRegXML("invalid structure of $inout objects, expected arrayref of class and \@namespaces"))}
 			my ($class, $namespaces) = @{$param};
 			die "no class part of param " unless defined $class;
-			warn "no namespace part of the param" unless defined $namespaces;
+			#warn "no namespace part of the param" unless defined $namespaces;
 			my @objectdefs;
 			if ((ref $class) =~ /array/i){ # collection
 				$message .="<Collection>\n";