From 4cff682760150b988cdf40fc866adf47364c8392 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 10 Aug 2009 14:48:21 -0700
Subject: [PATCH] support cloned blocks; handle multi-packages properly

---
 cgi/bugreport.cgi | 2 +-
 scripts/service   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index d6d5cf2..def15df 100755
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -290,7 +290,7 @@ unless (%status) {
 #$|=1;
 
 my %package;
-my @packages = splitpackages($status{package});
+my @packages = make_list($status{package});
 
 foreach my $pkg (@packages) {
      if ($pkg =~ /^src\:/) {
diff --git a/scripts/service b/scripts/service
index 8d9875d..dce8703 100755
--- a/scripts/service
+++ b/scripts/service
@@ -852,7 +852,7 @@ END
 	$ok++;
         $ref= $2;
 	my $add_remove = defined $1 && $1 eq 'un';
-	my @blockers = split /[\s,]+/, $3;
+	my @blockers = map {exists $clonebugs{$_}?$clonebugs{$_}:$_} split /[\s,]+/, $3;
 	$ref = $clonebugs{$ref} if exists $clonebugs{$ref};
 	$bug_affected{$ref} = 1;
 	eval {
-- 
2.39.2