golden hour

/usr/share/perl5/Debconf/Element/Web

⬆️ Go Up

Upload

File/Folder	Size	Actions
Boolean.pm	660 B	Del OK
Error.pm	160 B	Del OK
Multiselect.pm	958 B	Del OK
Note.pm	159 B	Del OK
Password.pm	483 B	Del OK
Progress.pm	231 B	Del OK
Select.pm	877 B	Del OK
String.pm	467 B	Del OK
Text.pm	315 B	Del OK

Edit: Boolean.pm

#!/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<br>\n/g; $_.="\n<p>\n"; my $default=''; $default=$this->question->value if defined $this->question->value; my $id=$this->id; $_.="<input type=checkbox name=\"$id\"". ($default eq 'true' ? ' checked' : ''). ">\n<b>". $this->question->description."</b>"; return $_; } sub value { my $this=shift; return $this->SUPER::value() unless @_; my $value=shift; $this->SUPER::value($value eq 'on' ? 'true' : 'false'); } 1
Save