summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/share/po/libDrakX.pot6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/share/po/libDrakX.pot b/perl-install/share/po/libDrakX.pot
index 37ee5e7a8..247c1a4d8 100644
--- a/perl-install/share/po/libDrakX.pot
+++ b/perl-install/share/po/libDrakX.pot
@@ -2,18 +2,16 @@
# Copyright (C) YEAR Free Software Foundation, Inc.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
-#, fuzzy
msgid ""
msgstr ""
-"Project-Id-Version: PACKAGE VERSION\n"
+"Project-Id-Version: libDrakX\n"
"POT-Creation-Date: 2011-04-29 01:59+0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=CHARSET\n"
+"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8-bit\n"
-"Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\n"
#: any.pm:258 any.pm:955 diskdrake/interactive.pm:648 diskdrake/interactive.pm:871 diskdrake/interactive.pm:931 diskdrake/interactive.pm:1033 diskdrake/interactive.pm:1263 diskdrake/interactive.pm:1315 do_pkgs.pm:241 do_pkgs.pm:287 harddrake/sound.pm:303 interactive.pm:587 pkgs.pm:285
#, c-format
generated by cgit v1.2.1 (git 2.21.0) at 2025-03-01 18:23:12 +0000
131' href='#n131'>131 132 133 134 135 136 137 138 139 140 141 142 143 144 
package modules::interactive;
use interactive;
use modules;
use common;

sub config_window {
    my ($in, $data) = @_;
    require modules;
    modules::mergein_conf('/etc/modules.conf');
    my %conf = modules::get_parameters($data->{driver});
    require modules::parameters;
    my @l;
    foreach (modules::parameters::parameters($data->{driver})) {
	   my ($name, $format, $description) = @$_;
	   push @l, { label => $name, help => "$description\n[$format]", val => \$conf{$name} };
    }
    if ($in->ask_from(N("Module configuration"), N("You can configure each parameter of the module here."), \@l)) {
	   my $options = join(' ', map { if_($conf{$_}, "$_=$conf{$_}") } keys %conf);
	   if ($options) {
		  modules::set_options($data->{driver}, $options);
		    modules::write_conf;
		}
    }
}

sub load_category {
    my ($in, $category, $b_auto, $b_at_least_one) = @_;

    my @l;
    {
	my $w;
	my $wait_message = sub { $w = wait_load_module($in, $category, @_) };
	@l = modules::load_category($category, $wait_message);
    }
    if (my @err = grep { $_ } map { $_->{error} } @l) {
	my $return = $in->ask_warn('', join("\n", @err));
	$in->exit(1) if !defined($return);
    }