From 6f8a1ea171832f1ae1ad7817edf94ae50f0605aa Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 17 Sep 2007 09:46:14 +0000
Subject: (getSCSI) extract std "vendor|description" in description field

---
 perl-install/detect_devices.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 49690f23f..249f0df6a 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -220,6 +220,7 @@ sub getSCSI() {
 	  $raw_type =~ /Scanner|Processor/ && 'scanner';
 
 	push @l, { info =>  $get->('vendor') . ' ' . $get->('model'), host => $host, channel => $channel, id => $id, lun => $lun, 
+	  description => join('|', $get->('vendor'), $get->('model')),
 	  bus => 'SCSI', media_type => $media_type, device => $device,
 	    $usb_dir ? (
 	  usb_vendor => hex($get_usb->('idVendor')), usb_id => hex($get_usb->('idProduct')),
-- 
cgit v1.2.1