summaryrefslogtreecommitdiff
path: root/httemplate/elements/checkboxes-table-name.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/elements/checkboxes-table-name.html')
-rw-r--r--httemplate/elements/checkboxes-table-name.html113
1 files changed, 0 insertions, 113 deletions
diff --git a/httemplate/elements/checkboxes-table-name.html b/httemplate/elements/checkboxes-table-name.html
deleted file mode 100644
index 1638b9c..0000000
--- a/httemplate/elements/checkboxes-table-name.html
+++ /dev/null
@@ -1,113 +0,0 @@
-<%doc>
-
-Example:
-
- include( '/elements/checkboxes-table-name.html',
-
- ###
- # required
- ###
- 'link_table' => 'table_name',
-
- 'name_col' => 'name_column',
- #or
- 'name_callback' => sub { },
-
- 'names_list' => [ 'value',
- 'other value',
- [ 'complex value' => { 'desc' => "Add'l description",
- 'note' => '&nbsp;*',
- }
- ],
- ],
-
- ###
- # recommended (required?)
- ###
- 'source_obj' => $obj,
- #or?
- #'source_table' => 'table_name',
- #'sourcenum' => '4', #current value of primary key in source_table
- # # (none is okay, just pass it if you have it)
-
- ###
- # optional
- ###
- 'num_col' => 'col_name' #if column name is different in link_table than
- #source_table
- 'link_static' => { 'column' => 'value' },
-
- )
-
-</%doc>
-
-<TABLE CELLSPACING=0 CELLPADDING=0>
-
-% foreach my $item ( @{ $opt{'names_list'} } ) {
-%
-% my $name = ref($item) ? $item->[0] : $item;
-% ( my $display = $name ) =~ s/ /&nbsp;/g;
-% $display .= $item->[1]{note} if ref($item) && $item->[1]{note};
-% my $desc = ref($item) && $item->[1]{desc} ? $item->[1]{desc} : '';
-%
-% my $checked;
-% if ( $cgi->param('error') ) {
-%
-% $checked = $cgi->param($opt{'link_table'}. ".$name" )
-% ? 'CHECKED'
-% : '';
-%
-% } else {
-%
-% $checked =
-% qsearchs( $opt{'link_table'}, {
-% $source_pkey => $sourcenum,
-% $opt{'name_col'} => $name,
-% %$link_static,
-% } )
-% ? 'CHECKED'
-% : ''
-%
-% }
-
- <TR>
- <TD VALIGN="top">
- <INPUT TYPE="checkbox" NAME="<% $opt{'link_table'}. ".$name" %>" <% $checked %> VALUE="ON">
- </TD>
- <TD><% $display %>
-% if ( $desc ) {
- <BR><FONT SIZE="-2"><% $desc %></FONT>
-% }
- </TD>
- </TR>
-
-% }
-
-</TABLE>
-
-<%init>
-
-my( %opt ) = @_;
-
-my( $source_pkey, $sourcenum, $source_obj );
-if ( $opt{'source_obj'} ) {
-
- $source_obj = $opt{'source_obj'};
- #$source_table = $source_obj->dbdef_table->table;
- $source_pkey = $source_obj->dbdef_table->primary_key;
- $sourcenum = $source_obj->$source_pkey();
-
-} else {
-
- #$source_obj?
- $source_pkey = $opt{'source_table'}
- ? dbdef->table($opt{'source_table'})->primary_key
- : '';
- $sourcenum = $opt{'sourcenum'};
-}
-
-$source_pkey = $opt{'num_col'} || $source_pkey;
-
-my $link_static = $opt{'link_static'} || {};
-
-</%init>