From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Sun, 16 Mar 2008 19:58:34 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'. --- httemplate/misc/bulk_change_pkg.cgi | 59 ------------------------------------- 1 file changed, 59 deletions(-) delete mode 100755 httemplate/misc/bulk_change_pkg.cgi (limited to 'httemplate/misc/bulk_change_pkg.cgi') diff --git a/httemplate/misc/bulk_change_pkg.cgi b/httemplate/misc/bulk_change_pkg.cgi deleted file mode 100755 index 93349859d..000000000 --- a/httemplate/misc/bulk_change_pkg.cgi +++ /dev/null @@ -1,59 +0,0 @@ -<% include('/elements/header-popup.html', "Change Packages") %> - -% if ( $cgi->param('error') ) { - Error: <% $cgi->param('error') %> -

-% } - -
- - -% for my $param (qw(agentnum magic status classnum pkgpart)) { - -% } -% -% foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) { -% - "> - "> - "> - "> -% } - -<% ntable('#cccccc') %> - - - New package: - <% include('/elements/select-table.html', - 'table' => 'part_pkg', - 'name_col' => 'pkg', - 'empty_label' => 'Select package', - 'label_callback' => sub { $_[0]->pkgpart. ': '. - $_[0]->pkg. ' - '. - $_[0]->comment; - }, - 'element_name' => 'new_pkgpart', - 'curr_value' => ( $cgi->param('error') - ? scalar($cgi->param('new_pkgpart')) - : '' - ), - ) - %> - - - - - -
- - -
- - - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages'); - - -- cgit v1.2.1