httemplate/edit/cust_pkg_salesnum.html

   1 <& /elements/header-popup.html, "Change Sales Person" &>
   2 <& /elements/error.html &>
   3
   4 <FORM ACTION="<% $p %>edit/process/cust_pkg_salesnum.html" METHOD=POST>
   5 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
   6 <& /elements/table-grid.html, 'bgcolor' => '#cccccc', 'cellpadding' => 2 &>
   7
   8   <TR>
   9     <TH ALIGN="right">Current package&nbsp;</TH>
  10     <TD CLASS="grid">
  11       <% $curuser->option('show_pkgnum') ? $cust_pkg->pkgnum.': ' : '' %><B><% $part_pkg->pkg |h %></B> - <% $part_pkg->comment |h %>
  12     </TD>
  13   </TR>
  14
  15 <& /elements/tr-select-sales.html,
  16     #'field'       => 'salesnum',
  17     'curr_value'  => $cust_pkg->salesnum,
  18     'th'          => 1,
  19 &>
  20
  21 </TABLE>
  22
  23 <BR>
  24 <INPUT NAME="submit" TYPE="submit" VALUE="Change">
  25
  26 </FORM>
  27 </BODY>
  28 </HTML>
  29
  30 <%init>
  31
  32 #some false laziness w/misc/change_pkg.cgi
  33
  34 my $conf = new FS::Conf;
  35
  36 my $curuser = $FS::CurrentUser::CurrentUser;
  37
  38 die "access denied"
  39   unless $curuser->access_right('Change customer package');
  40
  41 my $pkgnum = scalar($cgi->param('pkgnum'));
  42 $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum";
  43 $pkgnum = $1;
  44
  45 my $cust_pkg = FS::cust_pkg->by_key($pkgnum) or die "unknown pkgnum $pkgnum";
  46
  47 my $part_pkg = $cust_pkg->part_pkg;
  48
  49 </%init>