1 <% include('/elements/header-popup.html', "Change Package") %>
3 <% include('/elements/error.html') %>
5 <FORM ACTION="<% $p %>edit/process/cust_pkg.cgi" METHOD=POST>
6 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
7 <INPUT TYPE="hidden" NAME="remove_pkg" VALUE="<% $pkgnum %>">
9 <% ntable('#cccccc') %>
12 <TD>Current package: </TD>
14 <B><% $part_pkg->pkgpart %>: <% $part_pkg->pkg %> - <% $part_pkg->comment %></B>
19 <TD>New package: </TD>
20 <TD><% include('/elements/select-cust-part_pkg.html',
21 'cust_main' => $cust_main,
22 'element_name' => 'new_pkgpart',
23 'extra_sql' => ' AND pkgpart != '. $cust_pkg->pkgpart,
24 'curr_value' => ( $cgi->param('error')
25 ? scalar($cgi->param('new_pkgpart'))
36 <INPUT TYPE="submit" VALUE="Change package">
45 unless $FS::CurrentUser::CurrentUser->access_right('Change customer package');
48 if ( $cgi->param('error') ) {
49 $pkgnum = ($cgi->param('remove_pkg'))[0];
51 $pkgnum = $cgi->param('pkgnum');
53 $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum";
56 my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } )
57 or die "unknown pkgnum $pkgnum";
58 my $custnum = $cust_pkg->custnum;
60 my $conf = new FS::Conf;
62 my $cust_main = $cust_pkg->cust_main
63 or die "can't get cust_main record for custnum ". $cust_pkg->custnum.
64 " ( pkgnum ". cust_pkg->pkgnum. ")";
65 my $agent = $cust_main->agent;
67 my $part_pkg = $cust_pkg->part_pkg;