Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git] / httemplate / search / 477_cust_pkg.html
1 <& elements/search.html,
2                   'html_init'   => $html_init,
3                   'html_form'   => $html_form,
4                   'html_foot'   => '</FORM>',
5                   'title'       => emt('Package Search Results'), 
6                   'name'        => 'packages',
7                   'query'       => $query,
8                   'count_query' => $count_query,
9                   'header'      => [ emt('#'),
10                                      emt('Quan.'),
11                                      emt('Package'),
12                                      emt('Class'),
13                                      emt('Status'),
14                                      emt('Freq.'),
15                                      emt('Setup'),
16                                      emt('Next bill'),
17                                      emt('Susp.'),
18                                      emt('Changed'),
19                                      emt('Cancel'),
20                                      FS::UI::Web::cust_header(),
21                                      emt('Census tract'),
22                                      emt('Package options'),
23                                    ],
24                   'fields'      => [
25                     'pkgnum',
26                     'quantity',
27                     sub { $_[0]->pkg; },
28                     'classname',
29                     sub { ucfirst(shift->status); },
30                     sub { FS::part_pkg::freq_pretty(shift); },
31
32                     ( map { time_or_blank($_) }
33                       qw( setup bill susp change_date cancel ) ),
34
35                     \&FS::UI::Web::cust_fields,
36
37                     sub { # census tract
38                       my $cust_pkg = shift;
39                       my $cust_location = $cust_pkg->cust_location;
40                       ($cust_location->censustract || '<b>unknown</b>').
41                         '<font size="-1"> (edit)</font>';
42                     },
43
44                     # a hidden input in each row with the pkgnum, so that
45                     # we can refresh back to this list of pkgnums
46                     sub {
47                       my $cust_pkg = shift;
48                       my $part_pkg = $cust_pkg->part_pkg;
49                       my %hash = $part_pkg->fcc_options;
50                       '<INPUT NAME="pkgnum" TYPE="hidden" VALUE="' .
51                         $cust_pkg->pkgnum . '">' .
52                       include('/elements/input-fcc_options.html',
53                         id          => 'pkgnum'.$cust_pkg->pkgnum.
54                                        'pkgpart'.$part_pkg->pkgpart,
55                         curr_value  => encode_json(\%hash),
56                         html_only   => 1
57                       )
58                     },
59                   ],
60                   'color' => [
61                     '',
62                     '',
63                     '',
64                     '',
65                     sub { shift->statuscolor; },
66                     '', '', '', '', '', '',
67                     FS::UI::Web::cust_colors(),
68                     '',
69                     '',
70                   ],
71                   'style' => [ '', '', '', '', 'b', 
72                                '', '', '', '', '', '',
73                                FS::UI::Web::cust_styles() ],
74                   'size'  => [ '', '', '', '', '-1' ],
75                   'align' => 'rrlcccrrrrr'. FS::UI::Web::cust_aligns(). 'cl',
76                   'links' => [
77                     $link,
78                     $link,
79                     $link,
80                     '', '', '', '', '', '', '', '',
81                     ( map { $_ ne 'Cust. Status' ? $clink : '' }
82                           FS::UI::Web::cust_header()
83                     ),
84                     '',
85                     '',
86                   ],
87                   'link_onclicks' => [
88                     (('') x 11),
89                     (map { '' } FS::UI::Web::cust_header()),
90                     $pkg_edit_location_link,
91                     '',
92                   ],
93
94 &>
95 <%init>
96
97 my $curuser = $FS::CurrentUser::CurrentUser;
98 my $edit        = 'Edit FCC report configuration';
99 my $edit_global = 'Edit FCC report configuration for all agents';
100 my $acl_edit        = $curuser->access_right($edit);
101 my $acl_edit_global = $curuser->access_right($edit_global);
102
103 die "access denied"
104   unless $acl_edit || $acl_edit_global;
105
106 my $conf = new FS::Conf;
107
108 my $session;
109
110 my ($query, $count_query);
111
112 if ( $cgi->param('redirect') ) { # then restore the pkgnum list
113   $session = $cgi->param('redirect');
114   my $pref = $curuser->option("redirect$session"); # contains a list of pkgnums
115   die "unknown redirect session $session\n" unless length($pref);
116   my @pkgnums = grep /^\d+$/, split(',', $pref);
117   
118   $query = FS::cust_pkg->search({});
119   $count_query = delete($query->{count_query});
120
121   my $where = "cust_pkg.pkgnum IN (".join(',', @pkgnums).")";
122   if ( $count_query =~ /WHERE/i ) {
123     $where = " AND ($where) ";
124   } else {
125     $where = " WHERE ($where) ";
126   }
127   $query->{extra_sql} .= $where;
128   $count_query .= $where;
129 } else {
130   # build and run the query right now, and then cache the pkgnums it returned
131   my %search_hash = ();
132     
133   #scalars
134   for (qw( agentnum 477part 477rownum date )) {
135     $search_hash{$_} = $cgi->param($_) if length($cgi->param($_));
136   }
137
138   $query = FS::cust_pkg->search(\%search_hash);
139   $count_query = delete($query->{'count_query'});
140
141   my @cust_pkg = qsearch($query);
142
143   my $pkgnums = join(',', map { $_->pkgnum } @cust_pkg);
144   $session = int(rand(4294967296)); #XXX
145   my $pref = new FS::access_user_pref({
146     'usernum'    => $FS::CurrentUser::CurrentUser->usernum,
147     'prefname'   => "redirect$session",
148     'prefvalue'  => $pkgnums,
149     'expiration' => time + 3600, #1h?  1m?
150   });
151   my $pref_error = $pref->insert;
152   if ($pref_error) {
153     die "couldn't even set redirect cookie: $pref_error\n";
154   }
155
156   # and then bail out and reload using the redirect cookie
157   $cgi->delete_all();
158   $cgi->param("redirect", $session);
159   $m->clear_buffer;
160   $m->print( $cgi->redirect($cgi->self_url) );
161   $m->abort;
162 }
163
164 my $show = $curuser->default_customer_view =~ /^(jumbo|packages)$/
165              ? ''
166              : ';show=packages';
167
168 my $link = sub {
169   my $self = shift;
170   my $frag = 'cust_pkg'. $self->pkgnum; #hack for IE ignoring real #fragment
171   [ "${p}view/cust_main.cgi?custnum=".$self->custnum.
172                            "$show;fragment=$frag#cust_pkg",
173     'pkgnum'
174   ];
175 };
176
177 my $html_init =
178   include('/elements/init_overlib.html') .
179   include('/elements/input-fcc_options.html', js_only => 1) .
180   include('.style') .
181   include('.script');
182
183 my $clink = sub {
184   my $cust_pkg = shift;
185   $cust_pkg->cust_main_custnum
186     ? [ "${p}view/cust_main.cgi?", 'custnum' ] 
187     : '';
188 };
189
190 my $html_form = qq!
191   <FORM ACTION="${p}edit/process/bulk-477_cust_pkg.html" METHOD="POST" NAME="477_cust_pkg">
192   <INPUT NAME="redirect" TYPE="hidden" VALUE="$session">
193 !;
194
195 my $pkg_edit_location_link = sub {
196   my $cust_pkg = shift;
197   my $locationnum = $cust_pkg->locationnum;
198   include('/elements/popup_link_onclick.html',
199     'action'      => $p. "edit/cust_location-censustract.html?locationnum=$locationnum",
200     'actionlabel' => emt('Edit census tract'),
201     'width'       => 700,
202     'height'      => 355,
203   );
204 };
205
206 sub time_or_blank {
207    my $column = shift;
208    return sub {
209      my $record = shift;
210      my $value = $record->get($column); #mmm closures
211      $value ? time2str('%b %d %Y', $value ) : '';
212    };
213 }
214
215 </%init>
216 <%def .style>
217 <style>
218   button.edit_fcc_button { float: right; }
219 </style>
220 </%def>
221 <%def .script>
222 <script type="text/javascript">
223   function finish_edit_fcc(id) {
224     cClick();
225     document.forms['477_cust_pkg'].submit(); //immediately save/refresh
226   }
227 </script>
228 </%def>