home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Element / Editor / Boolean.pm next >
Encoding:
Perl POD Document  |  2009-03-24  |  1009 b   |  51 lines

  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Editor::Boolean;
  6. use strict;
  7. use Debconf::Gettext;
  8. use base qw(Debconf::Element);
  9.  
  10.  
  11.  
  12. sub show {
  13.     my $this=shift;
  14.  
  15.     $this->frontend->comment($this->question->extended_description."\n\n".
  16.         "(".gettext("Choices").": ".join(", ", gettext("yes"), gettext("no")).")\n".
  17.         $this->question->description."\n");
  18.  
  19.     my $default='';
  20.     $default=$this->question->value if defined $this->question->value;
  21.     if ($default eq 'true') {
  22.         $default=gettext("yes");
  23.     }
  24.     elsif ($default eq 'false') {
  25.         $default=gettext("no");
  26.     }
  27.  
  28.     $this->frontend->item($this->question->name, $default);
  29. }
  30.  
  31.  
  32. sub value {
  33.     my $this=shift;
  34.     
  35.     return $this->SUPER::value() unless @_;
  36.     my $value=shift;
  37.     
  38.     if ($value eq 'yes' || $value eq gettext("yes")) {
  39.         return $this->SUPER::value('true');
  40.     }
  41.     elsif ($value eq 'no' || $value eq gettext("no")) {
  42.         return $this->SUPER::value('false');
  43.     }
  44.     else {
  45.         return $this->SUPER::value($this->question->value);
  46.     }
  47. }
  48.  
  49.  
  50. 1
  51.