From a9d40fb10b72f011ac5d04e878b0040a2e0176ec Mon Sep 17 00:00:00 2001
From: Pablo Saratxaga <pablo@mandriva.com>
Date: Thu, 2 Oct 2003 19:08:27 +0000
Subject: corrected parameters of LPD info line

---
 perl-install/printer/main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/printer/main.pm')

diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 87b5b0c6f..1403c77b0 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -357,7 +357,7 @@ sub make_menuentry {
     } elsif ($connect =~ m!^file:(.+)$!) {
 	$connection = N(", printing to %s", $1);
     } elsif ($connect =~ m!^lpd://([^/]+)/([^/]+)/?$!) {
-	$connection = N(" on LPD server \"%s\", printer \"%s\"", $2, $1);
+	$connection = N(" on LPD server \"%s\", printer \"%s\"", $1, $2);
     } elsif ($connect =~ m!^socket://([^/:]+):([^/:]+)/?$!) {
 	$connection = N(", TCP/IP host \"%s\", port %s", $1, $2);
     } elsif ($connect =~ m!^smb://([^/\@]+)/([^/\@]+)/?$! ||
-- 
cgit v1.2.1