This commit was manufactured by cvs2svn to create branch
[freeside.git] / httemplate / elements / tr-select-cust_tag.html
1 % if ( $curuser->access_right('Edit customer tags') && @part_tag ) {
2
3   <TR>
4     <TD ALIGN="right"><% $opt{'label'} || 'Tags' %></TD>
5     <TD>
6       <% include( '/elements/select-cust_tag.html',
7                      'curr_value' => \@curr_tagnum,
8                      'part_tag'   => \@part_tag,
9                      %opt,
10                  )
11       %>
12     </TD>
13   </TR>
14
15 % } else {
16
17 %   foreach my $tagnum (@curr_tagnum) {
18       <INPUT TYPE="hidden" NAME="tagnum" VALUE="<% $tagnum %>">
19 %   }
20
21 % }
22 <%init>
23
24 my $curuser = $FS::CurrentUser::CurrentUser;
25
26 my %opt = @_;
27 my $cgi = $opt{'cgi'};
28
29 my @curr_tagnum = ();
30 if ( $cgi->param('error') ) {
31   @curr_tagnum = $cgi->param('tagnum');
32 } elsif ( $opt{'custnum'} ) {
33   @curr_tagnum = map $_->tagnum,
34                      qsearch('cust_tag', { 'custnum' => $opt{'custnum'} } );
35 }
36
37 my $extra_sql = "WHERE disabled IS NULL OR disabled = '' ";
38 $extra_sql .= ' OR tagnum IN ('. join(',', @curr_tagnum). ')' if @curr_tagnum;
39
40 my @part_tag = qsearch({
41   'table'     => 'part_tag',
42   'hashref'   => {},
43   'extra_sql' => $extra_sql,
44 });
45
46 </%init>