From 3322e7340edde4ecc2f1206b8fef7e836d98e80d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 17 Sep 2005 23:17:56 +0000 Subject: (custom_id) try harder to have a sane name: before fallbacking to the class name (eg: "Printer"), try to use the vendor name (eg for printers) --- perl-install/harddrake/data.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index 13c5097c6..af99e1525 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -531,7 +531,8 @@ sub custom_id { $device->{"Socket Designation"} ? "$device->{name} (" . $device->{"Socket Designation"} . ")" : $device->{name} ? $device->{name} : - (defined($device->{description}) ? $device->{description} : $str)); + (defined($device->{description}) ? $device->{description} : + (defined($device->{Vendor}) ? $device->{Vendor} : $str))); } 1; -- cgit v1.2.1