From c31f5e1ac1fa888a570b570f73c633165d44c53b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 5 Aug 2002 15:50:33 +0000
Subject: - export %modules::conf - kill modparm::raw_parameters and
 modparm::parameter_type   which get merged back in modparm::parameters - add
 more parameters to modparm::parameters for harddrake

 harddrake/ui.pm |   19 ++++++++++---------
 modparm.pm      |   33 +++++++++------------------------
   2 files changed, 19 insertions(+), 33 deletions(-)
---
 perl-install/modparm.pm | 33 +++++++++------------------------
 1 file changed, 9 insertions(+), 24 deletions(-)

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

diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index 2defe4221..1e9524572 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -9,19 +9,8 @@ use strict;
 use common;
 use modules;
 
-sub parameter_type {
-    my ($min, $max, $is_a_number) = @_;
-    $min == 1 && $max == 1 ?
-	   ($is_a_number ? _("a number") : '') :
-	   $min == $max ? 
-	   ($is_a_number ? _("%d comma separated numbers", $min) : _("%d comma separated strings", $min)) :
-	   $min == 1 ?
-	   ($is_a_number ? _("comma separated numbers") : _("comma separated strings")) :
-	   ''; #- to weird and buggy, do not display it
-}
-
 
-sub raw_parameters {
+sub parameters {
   my ($module) = @_;
 
   my $modinfo = '/sbin/modinfo';
@@ -57,18 +46,14 @@ sub raw_parameters {
       }
       #- print "STILL HAVE ($_)\n" if $_;
 
-      push @parameters, [ $name, $description, $min, $max, $is_a_number ];
-  }
-  @parameters;
-}
-
-sub parameters {
-  my ($module) = @_;
-  my @parameters ;
-  foreach (raw_parameters($module)) {
-    my ($name, $description, $min, $max, $is_a_number) = @$_;
-    my $format = parameter_type($min, $max, $is_a_number);
-    push @parameters, [ $format ? "$name ($format)" : $name, $description ];
+	 my $format = $min == 1 && $max == 1 ?
+		($is_a_number ? _("a number") : '') :
+		$min == $max ? 
+		($is_a_number ? _("%d comma separated numbers", $min) : _("%d comma separated strings", $min)) :
+		$min == 1 ?
+		($is_a_number ? _("comma separated numbers") : _("comma separated strings")) :
+		''; #- to weird and buggy, do not display it
+    push @parameters, [ $format ? "$name ($format)" : $name, $description, $min, $max, $is_a_number ];
   }
   @parameters;
 }
-- 
cgit v1.2.1