Name

option_format —

DESCRIPTION

EXAMPLES

No examples are available at this time. We do consider this a problem and will try to supply some.

NOTES

AVAILABILITY

option_format is available in Interchange versions:

4.6.0-5.7.0 (git-head)

SOURCE

Interchange 5.7.0:

Source: code/Widget/option_format.widget
Lines: 12


# Copyright 2005-2007 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.
# 
# $Id: option_format.widget,v 1.3 2007-03-30 23:40:58 pajamian Exp $

CodeDef option_format Widget 1
CodeDef option_format Description Option formatter
CodeDef option_format MapRoutine Vend::Form::option_widget

Source: lib/Vend/Form.pm
Lines: 680

sub option_widget {
my($opt) = @_;
my($name, $val) = ($opt->{name}, $opt->{value});

my $width = $opt->{width} || 16;
$opt->{filter} = 'option_format'
  unless length($opt->{filter});
$val = Vend::Interpolate::filter_value($opt->{filter}, $val);
my @opts = split /\s*,\s*/, $val;

my $out = qq{<table cellpadding="0" cellspacing="0"><tr><th><small>};
$out .= errmsg('Value');
$out .= qq{</small></th><th align="left" colspan="2"><small>};
$out .= errmsg('Label');
$out .= qq{</small></th></tr>};

my $done;
my $height = $opt->{height} || 5;
$height -= 2;
for(@opts) {
  my ($v,$l) = split /\s*=\s*/, $_, 2;
  next unless $l || length($v);
  $done++;
  my $default;
  ($l =~ s/\*$// or ! $l && $v =~ s/\*$//)
    and $default = 1;
  $out .= option_widget_box($name, $v, $l, $default, $width);
}
while($done++ < $height) {
  $out .= option_widget_box($name, '', '', '', $width);
}
$out .= option_widget_box($name, '', '', '', $width);
$out .= option_widget_box($name, '', '', '', $width);
$out .= "</table>";
}

AUTHORS

Interchange Development Group

SEE ALSO

DocBook! Interchange!