support cloned blocks; handle multi-packages properly

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index d6d5cf20f7430ef5e558a573bcd7bf713910a241..def15df910243cdd5ddd8fabb5f4a2e4a6b29533 100755 (executable)
--- 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 8d9875d00e7f104e05a3d31d2b4b61142a9e985c..dce8703c948ecbcf0c22349e179ad91c4603ec86 100755 (executable)
--- 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 {