summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug15
1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index f93a32939..cb6678832 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -88,6 +88,7 @@ $table = create_packtable({ col_spacings => 5, row_spacings => 10 },
[ Gtk2::Label->new(N("Kernel:")), gtkset_editable(Gtk2::Entry->new_with_text($kernel_release), 0) ]
);
$comb_app->set_popdown_strings("", sort(@generic_tool));
+$comb_app->set_text("");
gtkadd($window->{window},
gtkpack_(Gtk2::VBox->new(0,5),
@@ -109,12 +110,10 @@ gtkadd($window->{window},
my $p = $package->get_text;
my ($product, $version) = $p =~ /^(.*)-([^-]+-[^-]+mdk)$/;
my $app = $comb_app->entry->get_text;
- my $component = if_(member($app, @all_drakxtools), $app) || $mdk_app->{$app};
+ my $component = $app ?
+ if_(member($app, @all_drakxtools), $app) || $mdk_app->{$app} :
+ $product;
$options .= "&product=$product" if $product;
- # this could probably be cleaner but whatever, it works (vdanen)
- if ($component eq "scannerdrake" && $product ne "drakxtools") {
- $component = $product;
- }
$options .= "&component=$component";
$options .= "&version=$version" if $version;
$options .= "&distro_code=$distrocode";
@@ -131,9 +130,13 @@ if (defined $prog) {
update_app($prog);
$comb_app->set_text($prog);
}
-$comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text) });
+$comb_app->entry->signal_connect('changed', sub {
+ my $text = $comb_app->entry->get_text;
+ $text and update_app($text);
+ });
$button_pkg->signal_connect('clicked', sub {
+ $comb_app->set_text("");
my $pkg_name = get_package($com_app->get_text);
$package->set_text($pkg_name);
});