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="action" VALUE="change">
7 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
8 <INPUT TYPE="hidden" NAME="remove_pkg" VALUE="<% $pkgnum %>">
10 <% ntable('#cccccc') %>
13 <TD>Current package: </TD>
15 <B><% $part_pkg->pkgpart %>: <% $part_pkg->pkg %> - <% $part_pkg->comment %></B>
20 <TD>New package: </TD>
21 <TD><% include('/elements/select-cust-part_pkg.html',
22 'cust_main' => $cust_main,
23 'element_name' => 'new_pkgpart',
24 'extra_sql' => ' AND pkgpart != '. $cust_pkg->pkgpart,
25 'curr_value' => ( $cgi->param('error')
26 ? scalar($cgi->param('new_pkgpart'))
37 <INPUT TYPE="submit" VALUE="Change package">
46 unless $FS::CurrentUser::CurrentUser->access_right('Change customer package');
49 if ( $cgi->param('error') ) {
50 $pkgnum = ($cgi->param('remove_pkg'))[0];
52 $pkgnum = $cgi->param('pkgnum');
54 $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum";
57 my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } )
58 or die "unknown pkgnum $pkgnum";
59 my $custnum = $cust_pkg->custnum;
61 my $conf = new FS::Conf;
63 my $cust_main = $cust_pkg->cust_main
64 or die "can't get cust_main record for custnum ". $cust_pkg->custnum.
65 " ( pkgnum ". cust_pkg->pkgnum. ")";
66 my $agent = $cust_main->agent;
68 my $part_pkg = $cust_pkg->part_pkg;