Default svcpart support for part_pkg. Fixes 'bug' with new customer and online signup.

1 files changed, 15 insertions, 2 deletions

diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi
index e03017db4..770facb7e 100755
--- a/httemplate/edit/part_pkg.cgi
+++ b/httemplate/edit/part_pkg.cgi
@@ -112,7 +112,10 @@ print '>';
 print '</TD></TR></TABLE>';
 
 my $thead =  "\n\n". ntable('#cccccc', 2). <<END;
-<TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH><TH BGCOLOR="#dcdcdc">Service</TH></TR>
+<TR>
+<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH>
+<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Service</FONT></TH>
+</TR>
 END
 
 #unless ( $cgi->param('clone') ) {
@@ -169,6 +172,16 @@ unless ( 0 ) {
   #print "</TR></TABLE>";
 }
 
+print qq!Default service <SELECT NAME="def_svcpart" onChange="fchanged(this)">!,
+      qq!<OPTION VALUE="0">None!;
+foreach my $part_svc ( @part_svc ) {
+  print qq!<OPTION VALUE="!, $part_svc->svcpart, '"',
+        (($hashref->{def_svcpart} == $part_svc->svcpart) ? " SELECTED>" : ">"),
+        $part_svc->svc, qq!</OPTION>!;
+}
+print qq!</SELECT><BR>\n!;
+
+
 foreach my $f ( qw( clone pkgnum ) ) {
   print qq!<INPUT TYPE="hidden" NAME="$f" VALUE="!. $cgi->param($f). '">';
 }
@@ -376,7 +389,7 @@ my $widget = new HTML::Widgets::SelectLayers(
   'form_action'    => 'process/part_pkg.cgi',
   'form_text'      => [ qw(pkg comment freq clone pkgnum pkgpart), @fixups ],
   'form_checkbox'  => [ qw(setuptax recurtax disabled) ],
-  'form_select'    => [ @form_select ],
+  'form_select'    => [ qw(def_svcpart), @form_select ],
   'fixup_callback' => sub {
                         #my $ = @_;
                         my $html = '';