From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 Oct 2011 16:06:35 +0000 (+0100)
Subject: bprun: Use job names
X-Git-Tag: v3.0~31
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=6230b5acb6f422175887a1124cafe6f1ebdfffb7;p=bex.git

bprun: Use job names
---

diff --git a/bprun b/bprun
index 65dd089..b64a08d 100755
--- a/bprun
+++ b/bprun
@@ -161,7 +161,8 @@ sub redraw_slot($) {
 	my $mach = $s->{'Host'};
 	my $stat = $s->{'Status'} // "?";
 	my $jid = $s->{'Job'} // "";
-	my $text = sprintf("%-20s %-10s %s", $mach, $stat, $jid);
+	my $jname = $queue->job_name($jid);
+	my $text = sprintf("%-20s %-10s %s", $mach, $stat, $jname);
 	$C->addnstr($s->{'Row'}, 0, $text, $C->getmaxx);
 	$C->clrtoeol;
 	$C->refresh;