<%args>
$name => undef
$check => undef
<%init>
my $VALUES = eval ('use vars qw($VAR1); '.$check);
my $LAST = 0;
$m->out('
');
$m->out('
Идентификатор
Русскоязычное имя поля (то, что будет видно пользователю рядом с select)
');
$m->out('
Значения в выпадающем списке
');
if ((defined $VALUES) && (ref($VALUES) eq 'HASH'))
{
for my $key (sort (keys(%{ $VALUES })))
{
my $attr = $key;
my $rusname = $VALUES->{$attr}->{rusname};
my $values = $VALUES->{$attr}->{values};
next if (!defined($rusname) || !$rusname);
if ($attr =~ /^${name}_(\d+)$/)
{
$LAST = $1;
}
$m->out( $m->scomp( '.one_field.msn', attr => $attr, rusname => $rusname, values => $values ) );
}
}
for (($LAST+1)..($LAST+5))
{
my $attr = $name.'_'.$_;
$m->out( $m->scomp( '.one_field.msn', attr => $attr ) );
}
$m->out('
');
<%def .one_field.msn>
<% $attr %>
<%args>
$attr => undef
$rusname => undef
$values => []
<%init>
return undef if (! defined($attr));
<%doc>
Дополнительные поля в виде select'а. Каждое поле характеризуется следующими данными:
attr - уникальный ключ
rusname - русское название
values - значения (вводятся с помощью textbox)
Все это хранится в хэше...