X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fbulk_change_pkg.cgi;h=2c8c179149da564e77cb94a61f1794d14220def2;hp=ebf20ebc2a4b90537ea48db9525be8b681d43959;hb=79c8be3bd0c5db42794b36bf5b5dd25addba67cb;hpb=d0aca10ecd6edb171555eb87b1570daa3d2820b1 diff --git a/httemplate/misc/bulk_change_pkg.cgi b/httemplate/misc/bulk_change_pkg.cgi index ebf20ebc2..2c8c17914 100755 --- a/httemplate/misc/bulk_change_pkg.cgi +++ b/httemplate/misc/bulk_change_pkg.cgi @@ -7,18 +7,7 @@
- -% for my $param (qw(agentnum magic status classnum pkgpart)) { - -% } -% -% foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) { -% - "> - "> - "> - "> -% } +<& /elements/cust_pkg-search-form_input.html, $cgi &> <% ntable('#cccccc') %> @@ -28,10 +17,7 @@ 'table' => 'part_pkg', 'name_col' => 'pkg', 'empty_label' => 'Select package', - 'label_callback' => sub { $_[0]->pkgpart. ': '. - $_[0]->pkg. ' - '. - $_[0]->comment; - }, + 'label_callback' => sub { $_[0]->pkg_comment }, 'element_name' => 'new_pkgpart', 'curr_value' => ( $cgi->param('error') ? scalar($cgi->param('new_pkgpart')) @@ -56,14 +42,4 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages'); -#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' => {}, - '' => {}, -); -