From 3079c7b8ef0db6f140c9faff5ab44dbf203d88e1 Mon Sep 17 00:00:00 2001 From: Martin Mares Date: Tue, 5 Jun 2007 21:47:48 +0200 Subject: [PATCH] Sorting of tasks and parts is unnecessary, they have a well-defined order. --- submit/remote-status | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/submit/remote-status b/submit/remote-status index 21d8b95..3587b92 100755 --- a/submit/remote-status +++ b/submit/remote-status @@ -30,16 +30,10 @@ $r = $conn->request($r); or_die($r); #$r->write_indented(*STDOUT); -my %tasks = map { $_->get("T") => $_ } $r->getarray("(T"); -foreach my $task (sort keys %tasks) { - my $t = $tasks{$task}; - my %parts = map { $_->get("P") => $_ } $t->getarray("(P"); - my @pp = keys %parts; - if (@pp != 1) { - @pp = sort { $a <=> $b } @pp; # We expect that the parts are numeric - } - foreach my $part (@pp) { - my $p = $parts{$part}; +foreach my $t ($r->getarray("(T")) { + my $task = $t->get("T"); + foreach my $p ($t->getarray("(P")) { + my $part = $p->get("P"); my $name = $task; $part eq $task or $name .= "/$part"; printf "%-16s", $name; -- 2.39.2