From cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 6 Sep 2000 14:21:26 +0000
Subject: *** empty log message ***

---
 perl-install/printerdrake.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/printerdrake.pm')

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');
-- 
cgit v1.2.1