httemplate/elements/tr-select-cust-part_pkg.html

   1 %if ( scalar(@pkg_class) > 1 && ! $conf->exists('disable-cust-pkg_class') ) {
   2
   3   <& /elements/xmlhttp.html,
   4                 'url'  => $p.'misc/cust-part_pkg.cgi',
   5                 'subs' => [ 'get_part_pkg' ],
   6   &>
   7
   8   <SCRIPT TYPE="text/javascript">
   9
  10     function part_pkg_opt(what, value, text, can_discount, can_start_date) {
  11       var optionName = new Option(text, value, false, false);
  12       optionName.setAttribute('data-can_discount',   can_discount);
  13       optionName.setAttribute('data-can_start_date', can_start_date);
  14       var length = what.length;
  15       what.options[length] = optionName;
  16     }
  17
  18     function classnum_changed(what) {
  19
  20       what.form.pkgpart.disabled = 'disabled'; //disable part_pkg dropdown
  21       var submitButton = what.form.submitButton; // || what.form.submit;
  22       if ( submitButton ) {
  23         submitButton.disabled = true; //disable the submit button
  24       }
  25       var discountnum = what.form.discountnum;
  26       if ( discountnum ) {
  27         discountnum.disabled = true; //disable discount dropdown
  28       }
  29
  30       classnum = what.options[what.selectedIndex].value;
  31
  32       function update_part_pkg(part_pkg) {
  33
  34         // blank the current packages
  35         for ( var i = what.form.pkgpart.length; i>= 0; i-- )
  36           what.form.pkgpart.options[i] = null;
  37
  38         // add the new packages
  39         opt(what.form.pkgpart, '', 'Select package');
  40         var packagesArray = eval('(' + part_pkg + ')' );
  41         for ( var s = 0; s < packagesArray.length; s=s+4 ) {
  42           var packagesLabel  = packagesArray[s+1];
  43           var can_discount   = packagesArray[s+2];
  44           var can_start_date = packagesArray[s+3];
  45           part_pkg_opt(
  46             what.form.pkgpart, packagesArray[s], packagesLabel, can_discount, can_start_date
  47           );
  48         }
  49
  50         what.form.pkgpart.disabled = ''; //re-enable part_pkg dropdown
  51
  52       }
  53
  54       get_part_pkg( <% $cust_main     ? $cust_main->custnum         : '0' %>,
  55                     <% $prospect_main ? $prospect_main->prospectnum : '0' %>,
  56                     classnum,
  57                     update_part_pkg
  58                   );
  59     }
  60
  61   </SCRIPT>
  62
  63   <TR>
  64     <TH ALIGN="right"><% mt('Package Class') |h %></TH>
  65     <TD COLSPAN=7>
  66       <& /elements/select-cust-pkg_class.html,
  67                    'curr_value' => $opt{'classnum'},
  68                    'pkg_class'  => \@pkg_class,
  69                    'onchange'   => 'classnum_changed',
  70       &>
  71     </TD>
  72   </TR>
  73
  74 %}
  75
  76 <TR>
  77   <TH ALIGN="right"><% mt('Package') |h %></TH>
  78   <TD COLSPAN=7>
  79     <& /elements/select-cust-part_pkg.html,
  80                  'curr_value'    => $opt{'curr_value'}, #$pkgpart
  81                  'classnum'      => $opt{'classnum'},
  82                  'cust_main'     => $opt{'cust_main'},  #$cust_main
  83                  'prospect_main' => $opt{'prospect_main'},  #$prospect_main
  84                  'onchange'      => 'pkg_changed',
  85     &>
  86   </TD>
  87 </TR>
  88
  89 <%init>
  90
  91 my $conf = new FS::Conf;
  92
  93 my %opt = @_;
  94
  95 my $pre_label = $opt{'pre_label'} || '';
  96 $pre_label .= ' ' if length($pre_label) && $pre_label =~ /\S$/;
  97
  98 my $cust_main = $opt{'cust_main'};
  99 my $prospect_main = $opt{'prospect_main'};
 100
 101 die "neither cust_main nor prospect_main specified"
 102   unless $cust_main || $prospect_main;
 103
 104 my $agent = $cust_main ? $cust_main->agent : $prospect_main->agent;
 105
 106 #"normal" part_pkg agent virtualization (agentnum or type)
 107 my @part_pkg = qsearch({
 108   'select'    => 'DISTINCT classnum',
 109   'table'     => 'part_pkg',
 110   'hashref'   => { 'disabled' => '' },
 111   'extra_sql' =>
 112     ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql( 'null'=>1 ).
 113     ' AND '. FS::part_pkg->agent_pkgs_sql( $agent ),
 114 });
 115
 116 my @pkg_class =
 117   sort { $a->classname cmp $b->classname } #should get a sort order in config
 118   map  { $_->pkg_class || new FS::pkg_class { 'classnum'  => '',
 119                                               'classname' => '(none)' }
 120        }
 121   @part_pkg;
 122
 123 </%init>