summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2005-08-22 22:51:53 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2005-08-22 22:51:53 +0000
commitc30b9fc33dca319747b05a8163914798453f75a2 (patch)
tree0aa040033caf265913ed38920532431071d1ddfc /perl-install/printer/printerdrake.pm
parent61a62dba86e87256b26173be6ad4e53722a9a4a3 (diff)
downloaddrakx-c30b9fc33dca319747b05a8163914798453f75a2.tar
drakx-c30b9fc33dca319747b05a8163914798453f75a2.tar.gz
drakx-c30b9fc33dca319747b05a8163914798453f75a2.tar.bz2
drakx-c30b9fc33dca319747b05a8163914798453f75a2.tar.xz
drakx-c30b9fc33dca319747b05a8163914798453f75a2.zip
- Fixed bug #17718 in both printerdrake and scannerdrake.
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm26
1 files changed, 14 insertions, 12 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 2bc61a30a..e998c7d18 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -164,12 +164,13 @@ If some of these measures lead to problems for you, turn this option off, but th
cancel => "",
},
# List the hosts
- [ { val => \$choice, format => \&translate,
- sort => 0, separator => "####",
- tree_expanded => 1,
- quit_if_double_click => 1,
- allow_empty_list => 1,
- list => $sharehosts->{list} },
+ [ if_($#{$sharehosts->{list}} >= 0,
+ { val => \$choice, format => \&translate,
+ sort => 0, separator => "####",
+ tree_expanded => 1,
+ quit_if_double_click => 1,
+ allow_empty_list => 1,
+ list => $sharehosts->{list} }),
{ val => N("Add host/network"),
type => 'button',
clicked_may_quit => sub {
@@ -349,12 +350,13 @@ N("Examples for correct IPs:\n") .
cancel => "",
},
# List the hosts
- [ { val => \$choice, format => \&translate,
- sort => 0, separator => "####",
- tree_expanded => 1,
- quit_if_double_click => 1,
- allow_empty_list => 1,
- list => $browsepoll->{list} },
+ [ if_($#{$browsepoll->{list}} >= 0,
+ { val => \$choice, format => \&translate,
+ sort => 0, separator => "####",
+ tree_expanded => 1,
+ quit_if_double_click => 1,
+ allow_empty_list => 1,
+ list => $browsepoll->{list} }),
{ val => N("Add server"),
type => 'button',
clicked_may_quit => sub {