From c30b9fc33dca319747b05a8163914798453f75a2 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Mon, 22 Aug 2005 22:51:53 +0000 Subject: - Fixed bug #17718 in both printerdrake and scannerdrake. --- perl-install/standalone/scannerdrake | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) (limited to 'perl-install/standalone/scannerdrake') diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake index 2731505d0..61e92e692 100755 --- a/perl-install/standalone/scannerdrake +++ b/perl-install/standalone/scannerdrake @@ -635,12 +635,13 @@ sub sharewindow { cancel => "", }, # List the hosts - [ { val => \$choice, format => \&translate, - sort => 0, separator => "####", - tree_expanded => 1, - quit_if_double_click => 1, - allow_empty_list => 1, - list => \@list }, + [ if_($#list >= 0, + { val => \$choice, format => \&translate, + sort => 0, separator => "####", + tree_expanded => 1, + quit_if_double_click => 1, + allow_empty_list => 1, + list => \@list }), { val => N("Add host"), type => 'button', clicked_may_quit => sub { @@ -785,12 +786,13 @@ sub sharewindow { cancel => "", }, # List the hosts - [ { val => \$choice, format => \&translate, - sort => 0, separator => "####", - tree_expanded => 1, - quit_if_double_click => 1, - allow_empty_list => 1, - list => \@list }, + [ if_($#list >= 0, + { val => \$choice, format => \&translate, + sort => 0, separator => "####", + tree_expanded => 1, + quit_if_double_click => 1, + allow_empty_list => 1, + list => \@list }), { val => N("Add host"), type => 'button', clicked_may_quit => sub { -- cgit v1.2.1