1 files changed, 47 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm
new file mode 100644
index 0000000..1d1b26e
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm
@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Multiselect;
+use strict;
+use base qw(Debconf::Element::Select);
+
+
+sub order_values {
+	my $this=shift;
+	my %vals=map { $_ => 1 } @_;
+	$this->question->template->i18n('');
+	my @ret=grep { $vals{$_} } $this->question->choices_split;
+	$this->question->template->i18n(1);
+	return @ret;
+}
+
+
+sub visible {
+        my $this=shift;
+
+        my @choices=$this->question->choices_split;
+        return ($#choices >= 0);
+}
+
+
+sub translate_default {
+	my $this=shift;
+
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n('');
+	my @choices_c=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	
+	my @ret;
+	foreach my $c_default ($this->question->value_split) {
+		foreach (my $x=0; $x <= $#choices; $x++) {
+			push @ret, $choices[$x]
+				if $choices_c[$x] eq $c_default;
+		}
+	}
+	return @ret;
+}
+
+
+1