view release on metacpan or  search on metacpan

stylesheets/perform_html.xps  view on Meta::CPAN

    $selected = ' selected="selected" ';
  }
  else {
    $selected = '';
  }
  my $value = findvalue('@value|value', $node);
  $t->{'pre'} = qq|
    <option 
        value="$value" 
        $selected >|;
  $t->{'post'} = findvalue('@text|text', $node)."</option>";
  $t->{'showtag'} = 0;
  return -1;
};

$t->{'single_select'}{'testcode'} = sub {
  my ($node, $t) = @_;
  my $name = findvalue('@name|name', $node);
  my $index = findvalue('@index|index', $node) || '';
  $t->{'pre'} = qq|
    <select name="$name$index">
        |.apply_templates('options/option', $node);
  $t->{'post'} = "</select>".apply_templates("error", $node);
  $t->{'showtag'} = 0;
  return -1;
};

$t->{'multi_select'}{'testcode'} = sub {
  my ($node, $t) = @_;
  my $name = findvalue('@name|name', $node);
  my $index = findvalue('@index|index', $node) || '';
  $t->{'pre'} = qq|
    <select multiple="multiple" name="$name$index">
        |.apply_templates('options/option', $node);
  $t->{'post'} = "</select>".apply_templates("error", $node);
  $t->{'showtag'} = 0;
  return -1;
};

$t->{'textarea'}{'testcode'} = sub {
  my ($node, $t) = @_;
  my $name = findvalue('@name|name', $node);
  my $cols = findvalue('@cols|cols', $node);
  my $rows = findvalue('@rows|rows', $node);
  my $wrap = findvalue('@wrap|wrap', $node);
  my $value = findvalue('@value|value', $node);
  my $index = findvalue('@index|index', $node);
  if ($wrap) {
    $wrap = ' wrap="physical" ';
  }
  else {
    $wrap = '';
  }
  $t->{'pre'} = qq|
    <textarea name="$name$index" cols="$cols" rows="$rows" $wrap >$value|;
  $t->{'post'} = q|  </textarea> <br /> |.apply_templates('error', $node);
  $t->{'showtag'} = 0;
  return -1;
};

$t->{'file_upload'}{'testcode'} = sub {
  my ($node, $t) = @_;
  my $name = findvalue('@name|name', $node);
  my $value = findvalue('@value|value', $node);
  my $accept = findvalue('@accept|accept', $node);
  $t->{'pre'} = qq|
    <input type="file"  name="$name" accept="$accept" />|.apply_templates('error', $node);
  $t->{'showtag'} = 0;
  return -1;
};

 %>