<% include('/elements/header-popup.html', "Change Package") %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

<% ntable('#cccccc') %> Current package:  <% $part_pkg->pkgpart %>: <% $part_pkg->pkg %> - <% $part_pkg->comment %> New package: <% include('/elements/select-cust-part_pkg.html', 'cust_main' => $cust_main, 'element_name' => 'new_pkgpart', 'extra_sql' => ' AND pkgpart != '. $cust_pkg->pkgpart, 'curr_value' => ( $cgi->param('error') ? scalar($cgi->param('new_pkgpart')) : '' ), ) %>

<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Change customer package'); my $pkgnum; if ( $cgi->param('error') ) { $pkgnum = ($cgi->param('remove_pkg'))[0]; } else { $pkgnum = $cgi->param('pkgnum'); } $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum"; $pkgnum = $1; my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ) or die "unknown pkgnum $pkgnum"; my $custnum = $cust_pkg->custnum; my $conf = new FS::Conf; my $cust_main = $cust_pkg->cust_main or die "can't get cust_main record for custnum ". $cust_pkg->custnum. " ( pkgnum ". cust_pkg->pkgnum. ")"; my $agent = $cust_main->agent; my $part_pkg = $cust_pkg->part_pkg;