diff options
| author | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
| commit | 9c0f862749f30800837a45aff5abdcb529867dbc (patch) | |
| tree | b0ca51fff64f12fac03aea4afaa1fa722376844b /beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web | |
| parent | 33b79c725448efd2c9a72e2ae9a1fb04270492f5 (diff) | |
| parent | cea5039322781f6085dd47954af5584ca3f78911 (diff) | |
Merge branch 'schulung'
updates from current linutronix schulung.git
Conflicts:
Makefile
configpres.tex
flash-memory/ubi/handout_ubi_de.tex
handout.tex
index.txt
pres_master.tex
vorl.tex
vorl1.tex
vorl2.tex
vorl3.tex
vorl4.tex
vorl5.tex
Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web')
9 files changed, 0 insertions, 252 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm deleted file mode 100644 index 37748e6..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm +++ /dev/null @@ -1,36 +0,0 @@ -#!/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 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm deleted file mode 100644 index cad58e3..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Web::Error; -use strict; -use base qw(Debconf::Element::Web::Text); - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm deleted file mode 100644 index 18bad0d..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Web::Multiselect; -use strict; -use base qw(Debconf::Element::Multiselect); - - -sub show { - my $this=shift; - - $_=$this->question->extended_description; - s/\n/\n<br>\n/g; - $_.="\n<p>\n"; - - my %value = map { $_ => 1 } $this->translate_default; - - my $id=$this->id; - $_.="<b>".$this->question->description."</b>\n<select multiple name=\"$id\">\n"; - my $c=0; - foreach my $x ($this->question->choices_split) { - if (! $value{$x}) { - $_.="<option value=".$c++.">$x\n"; - } - else { - $_.="<option value=".$c++." selected>$x\n"; - } - } - $_.="</select>\n"; - - return $_; -} - - -sub value { - my $this=shift; - - return $this->SUPER::value() unless @_; - - my @values=@_; - - $this->question->template->i18n(''); - my @choices=$this->question->choices_split; - $this->question->template->i18n(1); - - $this->SUPER::value(join(', ', $this->order_values(map { $choices[$_] } @values))); -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm deleted file mode 100644 index d7fd359..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Web::Note; -use strict; -use base qw(Debconf::Element::Web::Text); - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm deleted file mode 100644 index 0242e5e..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Web::Password; -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; - $_.="<b>".$this->question->description."</b><input type=password name=\"$id\" value=\"$default\">\n"; - - return $_; -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm deleted file mode 100644 index d186fe8..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm +++ /dev/null @@ -1,24 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Web::Progress; -use strict; -use base qw(Debconf::Element); - - -sub start { -} - -sub set { - return 1; -} - -sub info { - return 1; -} - -sub stop { -} - -1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm deleted file mode 100644 index 1a3b456..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm +++ /dev/null @@ -1,48 +0,0 @@ -#!/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<br>\n/g; - $_.="\n<p>\n"; - - my $default=$this->translate_default; - my $id=$this->id; - $_.="<b>".$this->question->description."</b>\n<select name=\"$id\">\n"; - my $c=0; - foreach my $x ($this->question->choices_split) { - if ($x ne $default) { - $_.="<option value=".$c++.">$x\n"; - } - else { - $_.="<option value=".$c++." selected>$x\n"; - } - } - $_.="</select>\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 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm deleted file mode 100644 index 3fefbf2..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Web::String; -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; - $_.="<b>".$this->question->description."</b><input name=\"$id\" value=\"$default\">\n"; - - return $_; -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm deleted file mode 100644 index fad43f0..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Web::Text; -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"; - - return "<b>".$this->question->description."</b>$_<p>"; -} - - -1 |
