% foreach (@field) {
<% shift @label %> |
|
% }
<%init>
my %param = @_;
my $debug = $param{'debug'};
my $callback = $param{'callback'} || "''";
my @label = ();
if ( ref($param{'label'}) ) {
push @label, @{$param{'label'}};
}else{
push @label, $param{'label'};
}
my @field = ();
if ( ref($param{'field'}) ) {
push @field, @{$param{'field'}};
}else{
push @field, $param{'field'};
}
%init>