<% include('/elements/header-popup.html', "Change Package") %> <% include('/elements/error.html') %>

<% ntable('#cccccc') %> Current package <% $curuser->option('show_pkgnum') ? $cust_pkg->pkgnum.': ' : '' %><% $part_pkg->pkg |h %> - <% $part_pkg->comment |h %> <% include('/elements/tr-select-cust-part_pkg.html', 'pre_label' => 'New', 'curr_value' => scalar($cgi->param('pkgpart')), 'classnum' => $part_pkg->classnum, 'cust_main' => $cust_main, #'extra_sql' => ' AND pkgpart != '. $cust_pkg->pkgpart, ) %> <% include('/elements/tr-select-cust_location.html', 'cgi' => $cgi, 'cust_main' => $cust_main, ) %>

<%init> my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Change customer package'); my $pkgnum = scalar($cgi->param('pkgnum')); $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum"; $pkgnum = $1; my $cust_pkg = qsearchs({ 'table' => 'cust_pkg', 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', 'hashref' => { 'pkgnum' => $pkgnum }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }) or die "unknown pkgnum $pkgnum"; 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 $part_pkg = $cust_pkg->part_pkg;