From c1c7b5d9db1523ea9e2f5e0da1aabc0ba20b7853 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 2 Nov 2004 11:03:18 +0000
Subject: display more information

---
 perl-install/harddrake/data.pm     | 12 ++++++++++++
 perl-install/standalone/harddrake2 |  9 +++++++++
 2 files changed, 21 insertions(+)

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 308704b3d..43b11d1cd 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -238,6 +238,15 @@ our @tree =
       checked_on_boot => 0,
      },
 
+     {
+      class => "MEMORY",
+      string => N("Memory"),
+      icon => "memory.png",
+      configurator => "",
+      detector => sub { grep { member($_->{name}, 'Cache', 'Memory Module') } detect_devices::dmidecode() },
+      checked_on_boot => 1,
+     },
+
      {
       class => "AGP",
       string => N("AGP controllers"),
@@ -429,6 +438,9 @@ sub custom_id {
     defined($device->{device}) ? $device->{device} :
         (defined($device->{processor}) ? 
          N("cpu # ") . $device->{processor} . ": " . $device->{'model name'} :
+         $device->{"Socket Designation"} ?
+         "$device->{name} (" . $device->{"Socket Designation"} . ")" :
+         $device->{name} ? $device->{name} :
          (defined($device->{description}) ? $device->{description} : $str));
 }
 
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 8bbb144f5..4e26beed9 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -94,6 +94,15 @@ my %fields =
       lun => [ N("Logical unit number"), N("the SCSI target number (LUN). SCSI devices connected to a host are uniquely identified by a
 channel number, a target id and a logical unit number") ],
      },
+     MEMORY =>
+     {
+      'Installed Size' => [ N("Installed size"), N("Installed size of the memory bank") ],
+      'Enabled Size' => [ N("Enabled Size"), N("Enabled size of the memory bank") ],
+      'name' => [ N("Type"), N("tyme of the memory device") ],
+      'Current Speed' => [ N("Speed"), N("Speed of the memory bank") ],
+      'Bank Connections' => [ N("Bank connections"), '' ],
+      'Socket Designation' => [ N("Name"), N("Socket designation of the memory bank") ],
+     },
      MOUSE =>
      {
       "device" => [ N("Device file"), N("the device file used to communicate with the kernel driver for the mouse") ],
-- 
cgit v1.2.1