%if ( scalar(@pkg_class) > 1 && ! $conf->exists('disable-cust-pkg_class') ) {

  <& /elements/xmlhttp.html,
                'url'  => $p.'misc/cust-part_pkg.cgi',
                'subs' => [ 'get_part_pkg' ],
  &>

  <SCRIPT TYPE="text/javascript">

    function part_pkg_opt(what, value, text, can_discount, can_start_date, start_date) {
      var optionName = new Option(text, value, false, false);
      optionName.setAttribute('data-can_discount',   can_discount);
      optionName.setAttribute('data-can_start_date', can_start_date);
      optionName.setAttribute('data-start_date',     start_date || '');
      var length = what.length;
      what.options[length] = optionName;
    }

    function classnum_changed(what) {

      what.form.pkgpart.disabled = 'disabled'; //disable part_pkg dropdown
      var submitButton = what.form.submitButton; // || what.form.submit;
      if ( submitButton && <% $opt{'curr_value'} ? 0 : 1 %> ) {
        submitButton.disabled = true; //disable the submit button
      }
      var discountnum = what.form.discountnum;
      if ( discountnum ) {
        discountnum.disabled = true; //disable discount dropdown
      }

      classnum = what.options[what.selectedIndex].value;

      function update_part_pkg(part_pkg) {

        // blank the current packages
        for ( var i = what.form.pkgpart.length; i>= 0; i-- )
          what.form.pkgpart.options[i] = null;

        // add the new packages
        opt(what.form.pkgpart, '', 'Select package');
        var packagesArray = eval('(' + part_pkg + ')' );
        for ( var s = 0; s < packagesArray.length; s=s+5 ) {
          //surely this should be some kind of JSON structure
          var packagesLabel  = packagesArray[s+1];
          var can_discount   = packagesArray[s+2];
          var can_start_date = packagesArray[s+3];
          var start_date     = packagesArray[s+4];
          part_pkg_opt(
            what.form.pkgpart, packagesArray[s], packagesLabel, can_discount, can_start_date, start_date
          );
        }

        what.form.pkgpart.disabled = ''; //re-enable part_pkg dropdown
%       if ( $opt{'curr_value'} ) {
        what.form.pkgpart.value = <% $opt{'curr_value'} %>;
%       }

      }

      get_part_pkg( <% $cust_main     ? $cust_main->custnum         : '0' %>,
                    <% $prospect_main ? $prospect_main->prospectnum : '0' %>,
                    classnum,
                    update_part_pkg
                  );
    }

    <&| /elements/onload.js &>
      classnum_changed(document.getElementById('classnum'));
    </&>

  </SCRIPT>

  <TR>
    <TH ALIGN="right"><% mt('Package Class') |h %></TH>
    <TD COLSPAN=7>
      <& /elements/select-cust-pkg_class.html,
                   'curr_value' => $opt{'classnum'},
                   'pkg_class'  => \@pkg_class,
                   'onchange'   => 'classnum_changed',
      &>
    </TD>
  </TR>

%}

<TR>
  <TH ALIGN="right"><% mt('Package') |h %></TH>
  <TD COLSPAN=7>
    <& /elements/select-cust-part_pkg.html,
                 'curr_value'    => $opt{'curr_value'}, #$pkgpart
                 'classnum'      => $opt{'classnum'},
                 'cust_main'     => $opt{'cust_main'},  #$cust_main
                 'prospect_main' => $opt{'prospect_main'},  #$prospect_main
                 'onchange'      => 'pkg_changed',
    &>
  </TD>
</TR>

<%init>

my $conf = new FS::Conf;

my %opt = @_;

my $pre_label = $opt{'pre_label'} || '';
$pre_label .= ' ' if length($pre_label) && $pre_label =~ /\S$/;

my $cust_main = $opt{'cust_main'};
my $prospect_main = $opt{'prospect_main'};

die "neither cust_main nor prospect_main specified"
  unless $cust_main || $prospect_main;

my $agent = $cust_main ? $cust_main->agent : $prospect_main->agent;

#"normal" part_pkg agent virtualization (agentnum or type)
my @part_pkg = qsearch({
  'select'    => 'DISTINCT classnum',
  'table'     => 'part_pkg',
  'hashref'   => { 'disabled' => '' },
  'extra_sql' =>
    ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql( 'null'=>1 ).
    ' AND '. FS::part_pkg->agent_pkgs_sql( $agent ),
});

my @pkg_class =
  sort { $a->classname cmp $b->classname } #should get a sort order in config
  map  { $_->pkg_class || new FS::pkg_class { 'classnum'  => '',
                                              'classname' => '(none)' }
       }
  @part_pkg;

</%init>