split print_hive_status so that there are 2 methods print_analysis_status

and print_running_worker_status.

modules/Bio/EnsEMBL/Hive/Queen.pm

@@ -450,6 +450,14 @@ sub get_num_needed_workers {
 
 
 sub print_hive_status
+{
+  my $self = shift;
+  $self->print_analysis_status;
+  $self->print_running_worker_status;
+}
+
+
+sub print_analysis_status
 {
   my $self = shift;
 
@@ -458,6 +466,12 @@ sub print_hive_status
   foreach my $analysis_stats (@{$allStats}) {
     $analysis_stats->print_stats;
   }
+}
+
+
+sub print_running_worker_status
+{
+  my $self = shift;
 
   print("HIVE LIVE WORKERS====\n");
   my $sql = "select logic_name, count(*) from hive, analysis ".
@@ -469,11 +483,10 @@ sub print_hive_status
     printf("%20s : %d workers\n", $logic_name, $count);
   }
   print("=====================\n");
-  $sth->finish;  
+  $sth->finish;
 }
 
 
-
 #
 # INTERNAL METHODS
 #