home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Element / Web / String.pm < prev    next >
Encoding:
Perl POD Document  |  2006-07-24  |  467 b   |  27 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Web::String;
  6. use strict;
  7. use base qw(Debconf::Element);
  8.  
  9.  
  10. sub show {
  11.     my $this=shift;
  12.  
  13.     $_=$this->question->extended_description;
  14.     s/\n/\n<br>\n/g;
  15.     $_.="\n<p>\n";
  16.  
  17.     my $default='';
  18.     $default=$this->question->value if defined $this->question->value;
  19.     my $id=$this->id;
  20.     $_.="<b>".$this->question->description."</b><input name=\"$id\" value=\"$default\">\n";
  21.  
  22.     return $_;
  23. }
  24.  
  25.  
  26. 1
  27.