summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-06 14:21:26 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-06 14:21:26 +0000
commitcc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7 (patch)
treefdc3ea1a0c8929885df80852b7225f3c348cc3cf /perl-install/printerdrake.pm
parentfe108560318dbdae544d30e6850177288c814066 (diff)
downloaddrakx-backup-do-not-use-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar
drakx-backup-do-not-use-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar.gz
drakx-backup-do-not-use-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar.bz2
drakx-backup-do-not-use-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar.xz
drakx-backup-do-not-use-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 065e7c1a3..fc9743ba6 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -49,7 +49,7 @@ _("Printer Device") => {val => \$printer->{DEVICE}, list => \@port } ],
);
#- make the DeviceURI from DEVICE.
- $printer->{DeviceURI} = ($printer->{DEVICE} =~ /usb/ ? "usb:" : "parallel:") . $_->{DEVICE};
+ $printer->{DeviceURI} = ($printer->{DEVICE} =~ /usb/ ? "usb:" : "parallel:") . $printer->{DEVICE};
foreach (@parport) {
$printer->{DEVICE} eq $_->{port} or next;
@@ -149,7 +149,7 @@ sub setup_uri($$$) {
my ($printer, $in, $install) = @_;
return if !$in->ask_from_entries_refH(_("Printer Device URI"),
-_("You can specify directly the URI to access the printer with CUPS."),
+_("You can specify directly the URI to access the printer with CUPS."), [
_("Printer Device URI") => { val => \$printer->{DeviceURI}, list => [ printer::get_direct_uri(),
"file:/",
"http://",
@@ -157,7 +157,7 @@ _("Printer Device URI") => { val => \$printer->{DeviceURI}, list => [ printer::g
"lpq://",
"smb://",
"socket://",
- ], },
+ ], not_edit => 0 }, ],
);
if ($printer->{DeviceURI} =~ /^smb:/) {
&$install('samba');