summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-08 10:02:01 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-08 10:02:01 +0000
commit3240a98c869b07d8ac517a55f5988399b0249e75 (patch)
treeeb6eef29e64811e21735783d9c01901a38b38111 /perl-install/install_steps_interactive.pm
parent0f16f9693f47687136e5058916d0d04dcb611217 (diff)
downloaddrakx-3240a98c869b07d8ac517a55f5988399b0249e75.tar
drakx-3240a98c869b07d8ac517a55f5988399b0249e75.tar.gz
drakx-3240a98c869b07d8ac517a55f5988399b0249e75.tar.bz2
drakx-3240a98c869b07d8ac517a55f5988399b0249e75.tar.xz
drakx-3240a98c869b07d8ac517a55f5988399b0249e75.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 3b5471588..a8f3d03c2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -457,7 +457,6 @@ on that server which jobs should be placed in."),
[_("Remote hostname:"), _("Remote queue")],
[\$o->{printer}{REMOTEHOST}, \$o->{printer}{REMOTEQUEUE}],
);
-
} elsif ($o->{printer}{TYPE} eq "SMB") {
return if !$o->ask_from_entries_ref(
_("SMB (Windows 9x/NT) Printer Options"),
@@ -481,6 +480,7 @@ applicable user name, password, and workgroup information."),
return 0;
},
);
+ install_any::pkg_install($o, 'samba') unless $::testing;
} elsif ($o->{printer}{TYPE} eq "NCP") {
return if !$o->ask_from_entries_ref(_("NetWare Printer Options"),
_("To print to a NetWare printer, you need to provide the
@@ -492,6 +492,7 @@ wish to access and any applicable user name and password."),
[\$o->{printer}{NCPHOST}, \$o->{printer}{NCPQUEUE},
\$o->{printer}{NCPUSER}, {val => \$o->{printer}{NCPPASSWD}, hidden => 1}],
);
+ install_any::pkg_install($o, 'ncpfs') unless $::testing;
}
my $action;
@@ -531,10 +532,11 @@ wish to access and any applicable user name and password."),
$o->ask_from_entries_refH('', _("Printer options"), [
_("Paper Size") => { val => \$o->{printer}{PAPERSIZE}, type => 'list', , not_edit => !$::expert, list => \@printer::papersize_type },
-@list_res ? (
+_("Eject page after job?") => { val => \$o->{printer}{AUTOSENDEOF}, type => 'bool' },
+$#list_res > 0 ? (
_("Resolution") => { val => \$o->{printer}{RESOLUTION}, type => 'list', , not_edit => !$::expert, list => \@res } ) : (),
_("Fix stair-stepping text?") => { val => \$o->{printer}{CRLF}, type => "bool" },
-@list_col ? (
+$#list_col > 0 ? (
$is_uniprint ? (
_("Uniprint driver options") => { val => \$o->{printer}{BITSPERPIXEL}, type => 'list', , not_edit => !$::expert, list => \@col } ) : (
_("Color depth options") => { val => \$o->{printer}{BITSPERPIXEL}, type => 'list', , not_edit => !$::expert, list => \@col } ), ) : ()