sub pending_running_partition
{
    $var_data_running = "";
    $var_data_pending = "";
 	 my $str= shift;
	$DBH = &connect or die "Cannot connect to the sql server \n";
	$DBH->do("USE $str;");
	my $stmt="select queue_name,jobs_pending,jobs_running from queues order by jobs_pending,jobs_running DESC ;";		
	my $sth = $DBH->prepare( $stmt );
	 $sth->execute() or print "Could not insert_pending_running_partition";
	 my $tmp = 0;
	while(my @row_array=$sth->fetchrow_array)
	{
	    if ($tmp == 0) {
		$var_data_running .= "\[\"$row_array[0] \($row_array[2]\)\",$row_array[2]\]";
		$var_data_pending .= "\[\"$row_array[0] \($row_array[1]\)\",$row_array[1]\]";
		$tmp++;
	    }
	    else {
		$var_data_running .= ",\[\"$row_array[0] \($row_array[2]\)\",$row_array[2]\]";
		$var_data_pending .= ",\[\"$row_array[0] \($row_array[1]\)\",$row_array[1]\]";
	    }
	
	}
	$sth->finish;
	$DBH->disconnect();
}