summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-08-08 20:42:54 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-08-08 20:42:54 +0000
commitbfba9a5382c626965202ee3ffb2a4963ab0e6412 (patch)
treefadaaaadf8d3790ef8530921efb2566201181bb4 /perl-install
parent422d63b7ef2d8e8b240cf84816eaf15e32cb3d20 (diff)
downloaddrakx-bfba9a5382c626965202ee3ffb2a4963ab0e6412.tar
drakx-bfba9a5382c626965202ee3ffb2a4963ab0e6412.tar.gz
drakx-bfba9a5382c626965202ee3ffb2a4963ab0e6412.tar.bz2
drakx-bfba9a5382c626965202ee3ffb2a4963ab0e6412.tar.xz
drakx-bfba9a5382c626965202ee3ffb2a4963ab0e6412.zip
Installation fitted to new printerdrake
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm26
1 files changed, 2 insertions, 24 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index b0724180a..8d8f66467 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -861,7 +861,7 @@ sub summary {
my $format_mouse = sub { $mouse_name = translate($o->{mouse}{type}) . ' ' . translate($o->{mouse}{name}) };
&$format_mouse;
- #- format printer description in a better way according to CUPS/LPR used.
+ #- format printer description in a better way
my $format_printers = sub {
my ($printer) = @_;
if (is_empty_hash_ref($printer->{configured})) {
@@ -869,11 +869,7 @@ sub summary {
return _("No printer");
}
my $entry = $printer->{configured}{$printer->{QUEUE}} || (values %{$printer->{configured}})[0];
- for ($entry->{mode}) {
- /CUPS/ and return $entry->{cupsDescr};
- /lpr/ and return $entry->{DBENTRY};
- die "unknown entry for printer $entry->{QUEUE}";
- }
+ return "$entry->{'make'} $entry->{'model'}";
};
$o->ask_from_entries_refH_powered({
@@ -915,27 +911,9 @@ sub configurePrinter {
my $printer = $o->{printer} ||= {};
eval { add2hash($printer, printer::getinfo($o->{prefix})) };
- #- figure out what printing system to use, currently are suported cups and lpr,
- #- in case this has not be detected above.
- $::expert or $printer->{mode} ||= 'CUPS';
- if ($::expert || !$printer->{mode}) {
- $o->set_help('configurePrinterSystem');
- $o->ask_from_entries_refH_powered(
- {
- messages => _("Which printing system do you want to use?"),
- }, [ { val => \$printer->{mode}, list => [ 'CUPS', 'lpr' ] } ]
- ) or $printer->{mode} = undef, $printer->{want} = undef, return;
- $printer->{want} = 1;
- $o->set_help('configurePrinter');
- }
-
$printer->{PAPERSIZE} = $o->{lang} eq 'en' ? 'letter' : 'a4';
printerdrake::main($printer, $o, $ask_multiple_printer, sub { install_interactive::upNetwork($o, 'pppAvoided') });
- if (!is_empty_hash_ref($printer->{configured}) || pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'cups'))) {
- $o->pkg_install_if_requires_satisfied('Mesa-common', 'xpp', 'libqtcups2', 'qtcups', 'kups')
- and run_program::rooted($o->{prefix}, "update-menus");
- }
}
#------------------------------------------------------------------------------