Name	Size	Mode	Actions
Boolean.pm	660	0644	editdlrm
Error.pm	160	0644	editdlrm
Multiselect.pm	958	0644	editdlrm
Note.pm	159	0644	editdlrm
Password.pm	483	0644	editdlrm
Progress.pm	231	0644	editdlrm
Select.pm	877	0644	editdlrm
String.pm	467	0644	editdlrm
Text.pm	315	0644	editdlrm

#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Element::Web::Select; use strict; use base qw(Debconf::Element::Select); sub show { my $this=shift; $_=$this->question->extended_description; s/\n/\n
\n/g; $_.="\n

\n"; my $default=$this->translate_default; my $id=$this->id; $_.="".$this->question->description."\n\n"; my $c=0; foreach my $x ($this->question->choices_split) { if ($x ne $default) { $_.="$x\n"; } else { $_.="$x\n"; } } $_.="\n"; return $_; } sub value { my $this=shift; return $this->SUPER::value() unless @_; my $value=shift; $this->question->template->i18n(''); my @choices=$this->question->choices_split; $this->question->template->i18n(1); $this->SUPER::value($choices[$value]); } 1