diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2001-09-15 00:05:09 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2001-09-15 00:05:09 +0000 |
| commit | ee6604c44adc4125d47d5faa22741ac1e0486780 (patch) | |
| tree | 27192b55c44453d437b9fb7581fb0e31dd2bae7c /perl-install | |
| parent | 37af479ddeb125d701a31c4f4f3ed75909a5899b (diff) | |
| download | drakx-ee6604c44adc4125d47d5faa22741ac1e0486780.tar drakx-ee6604c44adc4125d47d5faa22741ac1e0486780.tar.gz drakx-ee6604c44adc4125d47d5faa22741ac1e0486780.tar.bz2 drakx-ee6604c44adc4125d47d5faa22741ac1e0486780.tar.xz drakx-ee6604c44adc4125d47d5faa22741ac1e0486780.zip | |
Fixed bug of a waiting message appearing together with a dialog
Cleaned up variables to correctly switch between CUPS/Foomatic/Raw type for a printer
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printerdrake.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 2e84e69ac..3741aed88 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -779,6 +779,9 @@ sub get_printer_info { (($oldchoice ne $printer->{DBENTRY}) || ($printer->{currentqueue}{'driver'} ne $printer::thedb{$printer->{DBENTRY}}{'driver'})))) { + delete($printer->{currentqueue}{printer}); + delete($printer->{currentqueue}{ppd}); + $printer->{currentqueue}{foomatic} = 0; # Read info from printer database foreach (qw(printer ppd driver make model)) { #- copy some parameter, shorter that way... $printer->{currentqueue}{$_} = $printer::thedb{$printer->{DBENTRY}}{$_}; @@ -1543,12 +1546,13 @@ sub main { # only experts should be asked for the spooler !$::expert and $printer->{SPOOLER} ||= 'cups'; - # If we have chosen a spooler, install it. - if (($printer->{SPOOLER}) && ($printer->{SPOOLER} ne '')) { - if (!install_spooler($printer, $in)) {return;} - } + } + # If we have chosen a spooler, install it. + if (($printer->{SPOOLER}) && ($printer->{SPOOLER} ne '')) { + if (!install_spooler($printer, $in)) {return;} } + # Control variables for the main loop my ($queue, $continue, $newqueue, $editqueue, $expertswitch) = ('', 1, 0, 0, 0); # Cursor position in queue modification window |