1 <% include('/elements/header-popup.html', "Change Package") %>
3 % if ( $cgi->param('error') ) {
4 <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
8 <FORM ACTION="<% $p %>edit/process/cust_pkg.cgi" METHOD=POST>
9 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
10 <INPUT TYPE="hidden" NAME="remove_pkg" VALUE="<% $pkgnum %>">
12 <% ntable('#cccccc') %>
15 <TD>Current package: </TD>
17 <B><% $part_pkg->pkgpart %>: <% $part_pkg->pkg %> - <% $part_pkg->comment %></B>
22 <TD>New package: </TD>
23 <TD><% include('/elements/select-cust-part_pkg.html',
24 'cust_main' => $cust_main,
25 'element_name' => 'new_pkgpart',
26 'extra_sql' => ' AND pkgpart != '. $cust_pkg->pkgpart,
27 'curr_value' => ( $cgi->param('error')
28 ? scalar($cgi->param('new_pkgpart'))
39 <INPUT TYPE="submit" VALUE="Change package">
48 unless $FS::CurrentUser::CurrentUser->access_right('Change customer package');
51 if ( $cgi->param('error') ) {
52 $pkgnum = ($cgi->param('remove_pkg'))[0];
54 $pkgnum = $cgi->param('pkgnum');
56 $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum";
59 my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } )
60 or die "unknown pkgnum $pkgnum";
61 my $custnum = $cust_pkg->custnum;
63 my $conf = new FS::Conf;
65 my $cust_main = $cust_pkg->cust_main
66 or die "can't get cust_main record for custnum ". $cust_pkg->custnum.
67 " ( pkgnum ". cust_pkg->pkgnum. ")";
68 my $agent = $cust_main->agent;
70 my $part_pkg = $cust_pkg->part_pkg;