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

\n"; my $default=''; $default=$this->question->value if defined $this->question->value; my $id=$this->id; $_.="\n". $this->question->description.""; return $_; } sub value { my $this=shift; return $this->SUPER::value() unless @_; my $value=shift; $this->SUPER::value($value eq 'on' ? 'true' : 'false'); } 1