diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-14 11:34:48 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-14 11:34:48 +0000 |
| commit | 09ef017fc872ab44f230808b4eb822b16a7b8c75 (patch) | |
| tree | e8aa3c182c7aa9654e4df9fabb27e32754442c30 /perl-install/printerdrake.pm | |
| parent | 005dcfb8c69c5df00e526be7a8242dd9ffa31318 (diff) | |
| download | drakx-backup-do-not-use-09ef017fc872ab44f230808b4eb822b16a7b8c75.tar drakx-backup-do-not-use-09ef017fc872ab44f230808b4eb822b16a7b8c75.tar.gz drakx-backup-do-not-use-09ef017fc872ab44f230808b4eb822b16a7b8c75.tar.bz2 drakx-backup-do-not-use-09ef017fc872ab44f230808b4eb822b16a7b8c75.tar.xz drakx-backup-do-not-use-09ef017fc872ab44f230808b4eb822b16a7b8c75.zip | |
Wait message for queue transfer, manufacturer name bugfix
Diffstat (limited to 'perl-install/printerdrake.pm')
| -rw-r--r-- | perl-install/printerdrake.pm | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index fc336057a..084611451 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -656,7 +656,7 @@ sub get_db_entry { $driverstr = "GhostScript + $printer->{configured}{$queue}{'driver'}"; } - my $make = $printer->{configured}{$queue}{'make'}; + my $make = uc($printer->{configured}{$queue}{'make'}); my $model = $printer->{configured}{$queue}{'model'}; if ($::expert) { @@ -682,7 +682,7 @@ sub get_db_entry { # Point the list cursor at least to manufacturer and model of the # printer $printer->{DBENTRY} = ""; - my $make = $printer->{configured}{$queue}{'make'}; + my $make = uc($printer->{configured}{$queue}{'make'}); my $model = $printer->{configured}{$queue}{'model'}; my $key; for $key (keys %printer::thedb) { @@ -1032,15 +1032,21 @@ It may take some time before the printer starts.\n"); sub copy_queues_from { my ($printer, $in, $oldspooler) = @_; my $newspooler = $printer->{SPOOLER}; - my @oldqueues = printer::get_copiable_queues($oldspooler, $newspooler); + my @oldqueues; my @queueentries; my @queuesselected; - my $newspoolerstr = $printer::shortspooler_inv{$newspooler}; - my $oldspoolerstr = $printer::shortspooler_inv{$oldspooler}; - for (@oldqueues) { - push (@queuesselected, 1); - push (@queueentries, { text => $_, type => 'bool', - val => \$queuesselected[$#queuesselected] }); + my $newspoolerstr; + my $oldspoolerstr; + { + my $w = $in->wait_message('', _("Reading printer data ...")); + @oldqueues = printer::get_copiable_queues($oldspooler, $newspooler); + $newspoolerstr = $printer::shortspooler_inv{$newspooler}; + $oldspoolerstr = $printer::shortspooler_inv{$oldspooler}; + for (@oldqueues) { + push (@queuesselected, 1); + push (@queueentries, { text => $_, type => 'bool', + val => \$queuesselected[$#queuesselected] }); + } } if ($in->ask_from_entries_refH_powered ({ title => _("Transfer printer configuration"), |