X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=submit%2Fremote-status;h=04610570f94c7796c7722283ba7566f7878b12d4;hb=50cc126ebe949259a54f153a123848d771601b77;hp=aa13379e6d5fc78d1193f28eae198d0df892161b;hpb=3043ffa0cb666e509d5b07e479ead4792fbf722d;p=eval.git

diff --git a/submit/remote-status b/submit/remote-status
index aa13379..0461057 100755
--- a/submit/remote-status
+++ b/submit/remote-status
@@ -7,7 +7,7 @@ BEGIN {
 	defined $ENV{"MO_ROOT"} or die "Please set MO_ROOT to the contest root directory first.\n";
 }
 use lib $ENV{"MO_ROOT"} . "/lib/perl5";
-use lib ".";		### FIXME
+use lib $ENV{"MO_ROOT"} . "/submit/lib/perl5";
 
 use MO::Submit;
 use Sherlock::Object;
@@ -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;
@@ -47,7 +41,7 @@ foreach my $task (sort keys %tasks) {
 		my $current_ver = $p->get("V");
 		my $printed = 0;
 		foreach my $v ($p->getarray("(V")) {
-			if ($v && $v->get("V") == $current_ver) {
+			if ($v->get("V") == $current_ver) {
 				my $time = strftime("%H:%M:%S", localtime $v->get("T"));
 				print "OK (",
 					"$part.", $v->get("X"), ", ",