[MOBY-guts] biomoby commit

[Nina Opushneva]

nopushneva
Tue Mar 22 14:45:43 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv13774

Modified Files:
	Central.pm 
Log Message:
some changes in the check parameters procedure for the rdfagent 

moby-live/Perl/MOBY/Client Central.pm,1.93,1.94
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -r1.93 -r1.94
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/03/16 20:05:46	1.93
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/03/22 19:45:43	1.94
@@ -780,7 +780,7 @@
 	$Category ||= "";
 
 #____________call RDFagent__________________________________________________
-if (defined $signatureURL){
+if ($signatureURL ne ""){
   my $ch = 0;
   my $sign_req;
     foreach $sign_req ($name, $type, $authURI, $email, $URL, $desc, $Category){
@@ -791,19 +791,19 @@
     }  
      if ($ch == 0){
  print "call Agent\n";
-	     my $message = "
-		<registerService>
-			<Category></Category>
-			<serviceName></serviceName>
-			<serviceType></serviceType>
-			<Description></Description>
-                        <signatureURL>$signatureURL</signatureURL>
-			<URL></URL>
-			<authURI></authURI>
-			<contactEmail></contactEmail>
-	       </registerService>";		
-         my   ( $return ) = $self->_call( 'default', 'registerService', $message );
-	    return ( $self->parseRegXML( $return ) );
+     my $message = "
+	<registerService>
+		<Category></Category>
+		<serviceName></serviceName>
+		<serviceType></serviceType>
+		<Description></Description>
+                <signatureURL>$signatureURL</signatureURL>
+		<URL></URL>
+		<authURI></authURI>
+		<contactEmail></contactEmail>
+       </registerService>";		
+     my   ( $return ) = $self->_call( 'default', 'registerService', $message );
+    return ( $self->parseRegXML( $return ) );
 
     }
 }