<& /elements/header-popup.html, "Change Sales Person" &> <& /elements/error.html &>
<& /elements/table-grid.html, 'bgcolor' => '#cccccc', 'cellpadding' => 2 &> Current package  <% $curuser->option('show_pkgnum') ? $cust_pkg->pkgnum.': ' : '' %><% $part_pkg->pkg |h %> - <% $part_pkg->comment |h %> <& /elements/tr-select-sales.html, #'field' => 'salesnum', 'curr_value' => $cust_pkg->salesnum, 'th' => 1, &>
<%init> #some false laziness w/misc/change_pkg.cgi my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Change customer package'); my $pkgnum = scalar($cgi->param('pkgnum')); $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum"; $pkgnum = $1; my $cust_pkg = FS::cust_pkg->by_key($pkgnum) or die "unknown pkgnum $pkgnum"; my $part_pkg = $cust_pkg->part_pkg;