diff wsdl_hmdb.pl @ 20:b5a1d5e43685 draft

Master branch Updating - - Fxx
author fgiacomoni
date Wed, 23 Jan 2019 07:49:34 -0500
parents f8c8a990688a
children 63ba1cb240b7
line wrap: on
line diff
--- a/wsdl_hmdb.pl	Wed Jan 23 03:35:34 2019 -0500
+++ b/wsdl_hmdb.pl	Wed Jan 23 07:49:34 2019 -0500
@@ -130,7 +130,7 @@
 	print "\t and ".scalar(@$masses)." masses are submitted as ".scalar(@$submasses)." queries to HMDB \n\n" if ($VERBOSE>1) ;
 	
 	## get the hmdb server status by a test query - continuous queries or kill script.
-	$status = $oHmdb->test_matches_from_hmdb_ua() ;
+	$status = $oHmdb->testMatchesFromHmdbWithUA() ;
 	$oHmdb->check_state_from_hmdb_ua($status) ; ## can kill the script execution
 	
 	my $cluster = 1 ;
@@ -140,9 +140,9 @@
 		
 		my ( $hmdb_masses, $nb_masses_to_submit ) = $oHmdb->prepare_multi_masses_query($mzs) ;
 		
-		print "\t Submission of m/z cluster ".sprintf '%04s',$cluster."" if ($VERBOSE>1) ;
+		print "\n\tSubmission of m/z cluster ".sprintf '%04s',$cluster."" if ($VERBOSE>1) ;
 		
-		($hmdb_pages, $status) = $oHmdb->get_matches_from_hmdb_ua($hmdb_masses, $delta, $molecular_species) ;
+		($hmdb_pages, $status) = $oHmdb->getMatchesFromHmdbWithUA($hmdb_masses, $delta, $molecular_species) ;
 		print "...HMDB reply results with status: $status\n" if ($VERBOSE>1) ;
 		
 #		print Dumper $hmdb_pages ;