From 21aa88487bfd3513bd00bbd30203490bbff8cd7d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 11 Aug 2004 07:28:43 +0000
Subject: fix product, component and version for bugzilla

---
 perl-install/standalone/drakbug | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/drakbug')

diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 54552a6db..07c1cf4b9 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -132,9 +132,13 @@ gtkadd($window->{window},
 							 my $options = "mdkbugreport=1";
 							 $options .= "&incident=1" if $incident;
 							 my $p = $package->get_text;
-							 $options .= "&package=$p" if $p =~ /mdk/;
+							 my ($product, $version) = $p =~ /^(.*)-([^-]+-[^-]+mdk)$/;
+							 my $app = $comb_app->entry->get_text;
+							 my $component = if_(member($app, @all_drakxtools), $app) || $mdk_app->{$app};
+							 $options .= "&product=$product" if $product;
+							 $options .= "&component=$component" if $component;
+							 $options .= "&version=$version" if $version;
 							 $options .= "&kernel=$kernel_release";
-							 $options .= "&version=$mandrake_version";
 							 print($bugzilla . "?" . $options . "\n");
 							 connect_bugzilla($bugzilla . "?" . $options);
 						      } else {
-- 
cgit v1.2.1