From 1a3c998ac130567bacbec67c94efad8c0503fa19 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Tue, 2 Mar 2004 23:53:09 +0000
Subject: Fixed HPOJ configuration when manually setting up a device.

---
 perl-install/printer/main.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/printer')

diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index bf09563af..811397ebf 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -2219,6 +2219,16 @@ sub configure_hpoj {
     } else {
 	return "";
     }
+    if ($#autodetected < 0) {
+	# Make a pseudo structure for the auto-detected data if there is
+	# no auto-detected data (for example when configuring manually)
+	$autodetected[0] = {
+	    'port' => $device,
+	    'val' => {
+		'MODEL' => N("Unknown model")
+	    }
+	};
+    }
     my $devdata;
     foreach (@autodetected) {
 	$device eq $_->{port} or next;
-- 
cgit v1.2.1