|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/lib/perl5/vendor_perl/5.8.8/Foomatic/ |
Upload File : |
# TODO:
# sort by section and process that way
# order dep specific to particular options
# UI constraints
# various common non-UI options
# PJL options?
package Foomatic::UIElem;
# Call with name=>foo, label=>Foo, type=>Boolean or PickOne or PickMany
sub new {
my ($type, %vals) = @_;
return bless \%vals;
}
# default=>value
# order_real=>value
# order_section=>value
# order_keyword=>value
sub set {
my ($this, $var, $val) = @_;
$this->{$var} = $val;
}
sub add_option {
my ($this, $option, $label, $ps) = @_;
$ps =~ s!\r!!g;
push (@{$this->{'options'}},
{'option' => $option,
'label' => $label,
'snippet' => $ps});
}
1;