httemplate/misc/change_pkg.cgi

   1 <% include('/elements/header-popup.html', "Change Package") %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <FORM ACTION="<% $p %>edit/process/change-cust_pkg.html" METHOD=POST>
   6 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
   7
   8 <% ntable('#cccccc') %>
   9
  10   <TR>
  11     <TH ALIGN="right">Current package</TH>
  12     <TD COLSPAN=7>
  13       <% $curuser->option('show_pkgnum') ? $cust_pkg->pkgnum.': ' : '' %><B><% $part_pkg->pkg |h %></B> - <% $part_pkg->comment |h %>
  14     </TD>
  15   </TR>
  16
  17   <TR>
  18     <TH ALIGN="right">New package</TH>
  19     <TD COLSPAN=7>
  20       <% include('/elements/select-cust-part_pkg.html',
  21                    'cust_main'    => $cust_main,
  22                    'element_name' => 'pkgpart',
  23                    #'extra_sql'    => ' AND pkgpart != '. $cust_pkg->pkgpart,
  24                    'curr_value'   => scalar($cgi->param('pkgpart')),
  25                 )
  26       %>
  27     </TD>
  28   </TR>
  29
  30   <% include('/elements/tr-select-cust_location.html',
  31                'cgi'       => $cgi,
  32                'cust_main' => $cust_main,
  33             )
  34   %>
  35
  36 </TABLE>
  37
  38 <BR>
  39 <INPUT TYPE="submit" VALUE="Change package">
  40
  41 </FORM>
  42 </BODY>
  43 </HTML>
  44
  45 <%init>
  46
  47 my $conf = new FS::Conf;
  48
  49 my $curuser = $FS::CurrentUser::CurrentUser;
  50
  51 die "access denied"
  52   unless $curuser->access_right('Change customer package');
  53
  54 my $pkgnum = scalar($cgi->param('pkgnum'));
  55 $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum";
  56 $pkgnum = $1;
  57
  58 my $cust_pkg =
  59   qsearchs({
  60     'table'     => 'cust_pkg',
  61     'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
  62     'hashref'   => { 'pkgnum' => $pkgnum },
  63     'extra_sql' => ' AND '. $curuser->agentnums_sql,
  64   }) or die "unknown pkgnum $pkgnum";
  65
  66 my $cust_main = $cust_pkg->cust_main
  67   or die "can't get cust_main record for custnum ". $cust_pkg->custnum.
  68          " ( pkgnum ". cust_pkg->pkgnum. ")";
  69
  70 my $part_pkg = $cust_pkg->part_pkg;
  71
  72 </%init>