summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2002-08-20 15:14:59 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2002-08-20 15:14:59 +0000
commit833c241a01cd77f3d86e65109ac67d9090b808e4 (patch)
tree7d78caf06d478154e881fd05fccea903cffbed08 /perl-install/standalone
parentc383f22793c1af73aacecfe6eba881dde0a18ac6 (diff)
downloaddrakx-backup-do-not-use-833c241a01cd77f3d86e65109ac67d9090b808e4.tar
drakx-backup-do-not-use-833c241a01cd77f3d86e65109ac67d9090b808e4.tar.gz
drakx-backup-do-not-use-833c241a01cd77f3d86e65109ac67d9090b808e4.tar.bz2
drakx-backup-do-not-use-833c241a01cd77f3d86e65109ac67d9090b808e4.tar.xz
drakx-backup-do-not-use-833c241a01cd77f3d86e65109ac67d9090b808e4.zip
Fixed parantheses of a "member" function, fixed typos.
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/scannerdrake8
1 files 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));