From 833c241a01cd77f3d86e65109ac67d9090b808e4 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Tue, 20 Aug 2002 15:14:59 +0000 Subject: Fixed parantheses of a "member" function, fixed typos. --- perl-install/standalone/scannerdrake | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake index f7406e332..5a8c7066c 100755 --- a/perl-install/standalone/scannerdrake +++ b/perl-install/standalone/scannerdrake @@ -46,11 +46,13 @@ quit(); sub auto { foreach (@f) { - if (member($_->{val}{DESCRIPTION}), keys %$scanner::scannerDB) { + if (member($_->{val}{DESCRIPTION}, keys %$scanner::scannerDB)) { my $name = $_->{val}{DESCRIPTION}; $name =~ s/\s$//; #some HP entry have a trailing space, i will correct usbtable asap - $in->ask_yesorno('scannerdrake',_("%s found on %s, configure it ?",$name,$_->{port}),1) or manual(); + $in->ask_yesorno('scannerdrake',_("%s found on %s, configure it?",$name,$_->{port}),1) or manual(); tryConfScanner($name, $_->{port}); + } else { + $in->ask_yesorno('scannerdrake',_("%s is not in the scanner database, configure it manually?", $_->{val}{DESCRIPTION}),1) and manual(); } } } @@ -73,7 +75,7 @@ sub dynamic { } sub tryConfScanner { - # take care if interactive ouptut is needed (unsupported, parallel..) + # take care if interactive output is needed (unsupported, parallel..) my ($model, $port) = @_; if ($scanner::scannerDB->{$model}{flags}{unsupported}) { $in->ask_warn('scannerdrake', _("This %s scanner is unsupported", $model)); -- cgit v1.2.1