summaryrefslogtreecommitdiff
path: root/httemplate/elements/checkboxes-table-name.html
blob: 957d8efdacf88b14f3d47fd5a55845c667e1977f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
<%doc>

Example:

  include( '/elements/checkboxes-table-name.html',

    ###
    # required
    ###
    'link_table'      => 'table_name',
   
    'name_col' => 'name_column',
    #or
    #not yet '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>

<% include('checkboxes.html',
             'names_list'             => $opt{'names_list'},
             'checked_callback'       => $checked_callback,
             'element_name_prefix'    => $opt{'link_table'}. '.',
             'disable_links'          => $opt{'disable_links'},
          )
%>

<%init>

my( %opt ) = @_;

my @pset = ( 'a'..'z', 'A'..'Z', '0'..'9' );

my $prefix = $opt{prefix}
             || join('', map $pset[ int(rand $#pset) ], (0..20) );

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'} || {};

my $checked_callback = sub {
  my( $cgi, $name ) = @_;
  qsearchs( $opt{'link_table'}, {
    $source_pkey     => $sourcenum,
    $opt{'name_col'} => $name,
    %$link_static,
  });
};

</%init>