From 1b19010429786e0a2987573dc9dbff351091911e Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 6 May 2008 01:14:39 +0000 Subject: agent-virtualize quick payment entry --- httemplate/elements/customer-table.html | 387 ++++++++++++++++++++++++++++++++ 1 file changed, 387 insertions(+) create mode 100644 httemplate/elements/customer-table.html (limited to 'httemplate/elements') diff --git a/httemplate/elements/customer-table.html b/httemplate/elements/customer-table.html new file mode 100644 index 000000000..fc298b03e --- /dev/null +++ b/httemplate/elements/customer-table.html @@ -0,0 +1,387 @@ +% # options example... +% # +% # #listrefs... +% # 'header' => [ '#', 'Item' ], +% # 'fields' => [ +% # 'column', +% # sub { my ($row,$param) = @_; $param->{"column$row"}; }, +% # ], +% # 'sizes' => [], # sizes ignored for immutable +% # 'types' => ['immutable', ''], # immutable or ''/text +% # 'param' => { column0 => 1 }, # preset column of row 0 to 1 +% # + + + + + + + + +% foreach my $header ( @{$opt{header}} ) { + +% } + +% my $row = 0; +% for ( $row = 0; exists($param->{"custnum$row"}); $row++ ) { + + + + + + + +% my $col = 0; +% foreach my $field ( @{$opt{fields}} ) { +% my $value; +% if ( ref($field) eq 'CODE' ) { +% $value = &{$field}($row,$param); +% } else { +% $value = $param->{"$field$row"}; +% } +% my $name = (ref($field) eq 'CODE') ? "column${col}_$row" : "$field$row"; +% my $size = $sizes->[$col] || 10; + +% $col++; +% } + + +% } + + +
Cust #Customer<% $header %>
+ " rownum="<% $row %>"> + + + " rownum="<% $row %>"> + + + + +% if (! $types->[$col] || $types->[$col] eq 'text') { + +% } elsif ($types->[$col] eq 'immutable') { + <% $value %> + +% } else { + Cannot represent unknown type: <% $types->[$col] %> +% } +
+ +<% include('/elements/xmlhttp.html', + 'url' => $p. 'misc/xmlhttp-cust_main-search.cgi', + 'subs' => [qw( custnum_search smart_search )], + ) +%> + + + +<%init> + +my(%opt) = @_; + +$opt{prefix} = '' unless defined $opt{prefix}; +$opt{prefix} .= '_' if $opt{prefix}; + +my $types = $opt{'types'} ? [ @{$opt{'types'}} ] : []; +my $sizes = $opt{'sizes'} ? [ @{$opt{'sizes'}} ] : []; + +my $param = $opt{param}; +$param = $cgi->Vars if $cgi->param('error'); + + -- cgit v1.2.1