FM / Editor

/usr/share/perl5/Debconf/Element/Editor/

/usr/share/perl5/Debconf/Element/Editor

Name	Size	Mode	Actions
Boolean.pm	1009	0644	edit dl rm
Error.pm	165	0644	edit dl rm
Multiselect.pm	916	0644	edit dl rm
Note.pm	164	0644	edit dl rm
Password.pm	171	0644	edit dl rm
Progress.pm	235	0644	edit dl rm
Select.pm	834	0644	edit dl rm
String.pm	439	0644	edit dl rm
Text.pm	316	0644	edit dl rm

Edit: /usr/share/perl5/Debconf/Element/Editor/Boolean.pm (1009B)

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!

package Debconf::Element::Editor::Boolean;
use strict;
use Debconf::Gettext;
use base qw(Debconf::Element);

sub show {
	my $this=shift;

$this->frontend->comment($this->question->extended_description."\n\n".
		"(".gettext("Choices").": ".join(", ", gettext("yes"), gettext("no")).")\n".
		$this->question->description."\n");

my $default='';
	$default=$this->question->value if defined $this->question->value;
	if ($default eq 'true') {
		$default=gettext("yes");
	}
	elsif ($default eq 'false') {
		$default=gettext("no");
	}

$this->frontend->item($this->question->name, $default);
}

sub value {
	my $this=shift;
	
	return $this->SUPER::value() unless @_;
	my $value=shift;
	
	if ($value eq 'yes' || $value eq gettext("yes")) {
		return $this->SUPER::value('true');
	}
	elsif ($value eq 'no' || $value eq gettext("no")) {
		return $this->SUPER::value('false');
	}
	else {
		return $this->SUPER::value($this->question->value);
	}
}

#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Element::Editor::Boolean; use strict; use Debconf::Gettext; use base qw(Debconf::Element); sub show { my $this=shift; $this->frontend->comment($this->question->extended_description."\n\n". "(".gettext("Choices").": ".join(", ", gettext("yes"), gettext("no")).")\n". $this->question->description."\n"); my $default=''; $default=$this->question->value if defined $this->question->value; if ($default eq 'true') { $default=gettext("yes"); } elsif ($default eq 'false') { $default=gettext("no"); } $this->frontend->item($this->question->name, $default); } sub value { my $this=shift; return $this->SUPER::value() unless @_; my $value=shift; if ($value eq 'yes' || $value eq gettext("yes")) { return $this->SUPER::value('true'); } elsif ($value eq 'no' || $value eq gettext("no")) { return $this->SUPER::value('false'); } else { return $this->SUPER::value($this->question->value); } } 1