diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2002-08-20 15:14:59 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2002-08-20 15:14:59 +0000 |
| commit | 833c241a01cd77f3d86e65109ac67d9090b808e4 (patch) | |
| tree | 7d78caf06d478154e881fd05fccea903cffbed08 /perl-install/standalone | |
| parent | c383f22793c1af73aacecfe6eba881dde0a18ac6 (diff) | |
| download | drakx-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-x | perl-install/standalone/scannerdrake | 8 |
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)); |