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
|
% if ($error) {
<% $cgi->redirect(popurl(2)."/bulk_change_pkg.cgi?".$cgi->query_string ) %>
% }
<% include('/elements/header-popup.html', "Packages Changed") %>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
my %search_hash = ();
$search_hash{'query'} = $cgi->param('query');
for my $param (qw(agentnum magic status classnum pkgpart)) {
$search_hash{$param} = $cgi->param($param)
if $cgi->param($param);
}
###
# parse dates
###
#false laziness w/report_cust_pkg.html
my %disable = (
'all' => {},
'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, },
'active' => { 'susp'=>1, 'cancel'=>1 },
'suspended' => { 'cancel' => 1 },
'cancelled' => {},
'' => {},
);
foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) {
my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field);
next if $beginning == 0 && $ending == 4294967295
or $disable{$cgi->param('status')}->{$field};
$search_hash{$field} = [ $beginning, $ending ];
}
my $sql_query = FS::cust_pkg->search_sql(\%search_hash);
$sql_query->{'select'} = 'cust_pkg.pkgnum';
my $error = FS::cust_pkg::bulk_change( [ $cgi->param('new_pkgpart') ],
[ map { $_->pkgnum } qsearch($sql_query) ],
);
$cgi->param("error", substr($error, 0, 512)); # arbitrary length believed
# suited for all supported
# browsers
</%init>
|
