This commit was generated by cvs2svn to compensate for changes in r11022,
[freeside.git] / httemplate / elements / select-cust-part_pkg.html
1 <%doc>
2
3 Example:
4
5   include( '/elements/select-cust-part_pkg.html',
6
7     #required
8     'cust_main'  => $cust_main, #or 'custnum' ? 
9              
10     #strongly recommended (you want your forms to be "sticky" on errors, right?)
11     'curr_value' => 'current_value',
12   
13     #opt
14     'part_pkg'   => \@records,
15
16     #select-table.html options
17   )
18
19 </%doc>
20
21 <% include( '/elements/select-part_pkg.html',
22               'empty_label'    => 'Select package', #? need here in case removed
23                                                     #from select-part_pkg ??
24               %opt,
25           )
26 %>
27 <%init>
28
29 my( %opt ) = @_;
30
31 my $cust_main = $opt{'cust_main'}
32   or die "cust_main not specified";
33
34 $opt{'extra_sql'} .= ' AND '. FS::part_pkg->agent_pkgs_sql( $cust_main->agent );
35 #  ' AND ( agentnum IS NOT NULL '.
36 #  '         OR 0 < ( SELECT COUNT(*) FROM type_pkgs '.
37 #  '                    WHERE typenum = '. $cust_main->agent->typenum.
38 #  '                      AND type_pkgs.pkgpart = part_pkg.pkgpart )'.
39 #  '     )';
40
41 </%init>