summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm35
1 files changed, 13 insertions, 22 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 12a9735ad..49e6c5aa2 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -2655,15 +2655,15 @@ sub install_spooler {
# "lpr" conflicts with "LPRng", remove either "LPRng" or remove "lpr"
my $packages = $spoolers{$spooler}{packages2rm};
- if ($packages) {
+ if ($packages && files_exist($packages->[1])) {
$w = $in->wait_message(N("Printerdrake"), N("Removing %s ..."), $spoolers{$packages->[0]}{short_name});
- $in->do_pkgs->remove_nodeps($packages->[0]) if !files_exist($packages->[1]);
+ $in->do_pkgs->remove_nodeps($packages->[0]);
}
$packages = $spoolers{$spooler}{packages2add};
- if ($packages) {
+ if ($packages && !files_exist(@{$packages->[1]})) {
$w = $in->wait_message(N("Printerdrake"), N("Installing %s ..."), $spoolers{$spooler}{short_name});
- $in->do_pkgs->install(@{$packages->[0]}) if !files_exist(@{$packages->[1]});
+ $in->do_pkgs->install(@{$packages->[0]});
}
undef $w;
@@ -3350,23 +3350,15 @@ What do you want to modify on this printer?",
$in->ask_warn(N("Default printer"),
N("The printer \"%s\" is set as the default printer now.", $queue));
} elsif ($modify eq N("Add this printer to Star Office/OpenOffice.org/GIMP")) {
- if (printer::main::addcupsremotetoapplications
- ($printer, $queue)) {
- $in->ask_warn(N("Adding printer to Star Office/OpenOffice.org/GIMP"),
- N("The printer \"%s\" was successfully added to Star Office/OpenOffice.org/GIMP.", $queue));
- } else {
- $in->ask_warn(N("Adding printer to Star Office/OpenOffice.org/GIMP"),
- N("Failed to add the printer \"%s\" to Star Office/OpenOffice.org/GIMP.", $queue));
- }
+ $in->ask_warn(N("Adding printer to Star Office/OpenOffice.org/GIMP"),
+ printer::main::addcupsremotetoapplications($printer, $queue) ?
+ N("The printer \"%s\" was successfully added to Star Office/OpenOffice.org/GIMP.", $queue) :
+ N("Failed to add the printer \"%s\" to Star Office/OpenOffice.org/GIMP.", $queue));
} elsif ($modify eq N("Remove this printer from Star Office/OpenOffice.org/GIMP")) {
- if (printer::main::removeprinterfromapplications
- ($printer, $queue)) {
- $in->ask_warn(N("Removing printer from Star Office/OpenOffice.org/GIMP"),
- N("The printer \"%s\" was successfully removed from Star Office/OpenOffice.org/GIMP.", $queue));
- } else {
- $in->ask_warn(N("Removing printer from Star Office/OpenOffice.org/GIMP"),
- N("Failed to remove the printer \"%s\" from Star Office/OpenOffice.org/GIMP.", $queue));
- }
+ $in->ask_warn(N("Removing printer from Star Office/OpenOffice.org/GIMP"),
+ printer::main::removeprinterfromapplications($printer, $queue) ?
+ N("The printer \"%s\" was successfully removed from Star Office/OpenOffice.org/GIMP.", $queue) :
+ N("Failed to remove the printer \"%s\" from Star Office/OpenOffice.org/GIMP.", $queue));
} elsif ($modify eq N("Print test pages")) {
print_testpages($printer, $in, $upNetwork);
} elsif ($modify eq N("Know how to use this printer")) {
@@ -3417,8 +3409,7 @@ What do you want to modify on this printer?",
# Configure the current printer queue in applications when main menu
# will not be shown (During installation in "Recommended" mode)
if ($::isInstall && !$::expert && !$menushown && !$continue) {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Configuring applications..."));
+ my $w = $in->wait_message(N("Printerdrake"), N("Configuring applications..."));
printer::main::configureapplications($printer);
}