diff options
author | Till Kamppeter <tkamppeter@mandriva.com> | 2004-08-30 05:56:11 +0000 |
---|---|---|
committer | Till Kamppeter <tkamppeter@mandriva.com> | 2004-08-30 05:56:11 +0000 |
commit | 56e07e315562a6cdc391f0b460e629b9e1a45506 (patch) | |
tree | 16f4af056e346a39aabc7886cec1da9918704475 /perl-install/printer/main.pm | |
parent | a8f6c2f237d1a98187a5440a1ce68215589a1f2b (diff) | |
download | drakx-56e07e315562a6cdc391f0b460e629b9e1a45506.tar drakx-56e07e315562a6cdc391f0b460e629b9e1a45506.tar.gz drakx-56e07e315562a6cdc391f0b460e629b9e1a45506.tar.bz2 drakx-56e07e315562a6cdc391f0b460e629b9e1a45506.tar.xz drakx-56e07e315562a6cdc391f0b460e629b9e1a45506.zip |
- Added column to show whether the printers are enabled or disables to the list of available print queues in the main window.
- Added command to the edit-printer window to enable and disable print queues.
- Fixed bug of "--expert" command line option of printerdrake not working.
Diffstat (limited to 'perl-install/printer/main.pm')
-rw-r--r-- | perl-install/printer/main.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm index b7cebdc6c..185c17f8b 100644 --- a/perl-install/printer/main.pm +++ b/perl-install/printer/main.pm @@ -1854,7 +1854,7 @@ sub configure_queue($) { } # Make sure that queue is active - if ($printer->{SPOOLER} ne "pdq") { + if ($printer->{NEW} && ($printer->{SPOOLER} ne "pdq")) { run_program::rooted($::prefix, "foomatic-printjob", "-s", $printer->{currentqueue}{spooler}, "-C", "up", $printer->{currentqueue}{queue}); @@ -1912,6 +1912,17 @@ sub configure_queue($) { return 1; } +sub enable_disable_queue { + my ($printer, $queue, $state) = @_; + + if (($printer->{SPOOLER} ne "pdq") && + ($printer->{SPOOLER} ne "rcups")) { + run_program::rooted($::prefix, "foomatic-printjob", + "-s", $printer->{SPOOLER}, + "-C", ($state ? "start" : "stop"), $queue); + } +} + sub remove_queue($$) { my ($printer, $queue) = @_; run_program::rooted($::prefix, "foomatic-configure", "-R", "-q", |