---

Multiselect.pm

#!/usr/bin/perl # This file was preprocessed, do not edit! package Debconf::Element::Multiselect; use warnings; 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

---

docroot: /var/www/469ed2f6-4d4b-4a8a-9f5e-ee4ef04d3bc8/public_html

---

curdir: /usr/share/perl5/Debconf/Element

	.		4096
	..		4096
	Dialog		4096
	Editor		4096
	Gnome		4096
X	Gnome.pm		2869
X	Multiselect.pm		926
	Noninteractive		4096
X	Noninteractive.pm		352
X	Select.pm		1991
	Teletype		4096
	Web		4096