X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fpart_pkg.cgi;h=fd2aa2bfcf07e090dba21d7ee3a7b0b47e6747a6;hb=ae7a7aedd844e581638d435e432e08a76f8097d1;hp=6a06c35255ba71e928c40737bb98dd9cf0040d66;hpb=59c328d950e0d5275a1b5cf3357729212dd0e26a;p=freeside.git
diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi
index 6a06c3525..fd2aa2bfc 100755
--- a/httemplate/edit/part_pkg.cgi
+++ b/httemplate/edit/part_pkg.cgi
@@ -93,7 +93,12 @@ Package information
-
+
+ Promotional code |
+
+
+ |
+
Disable new orders |
@@ -171,7 +176,16 @@ END
my @fixups = ();
my $count = 0;
my $columns = 3;
-my @part_svc = qsearch( 'part_svc', { 'disabled' => '' } );
+my @part_svc = qsearch(
+ 'part_svc',
+ {},
+ '',
+ "WHERE disabled IS NULL OR disabled = ''
+ OR 0 < ( SELECT quantity FROM pkg_svc
+ WHERE pkg_svc.svcpart = part_svc.svcpart
+ AND pkgpart = 72
+ )"
+);
foreach my $part_svc ( @part_svc ) {
my $svcpart = $part_svc->svcpart;
my $pkgpart = $cgi->param('clone') || $part_pkg->pkgpart;
@@ -201,7 +215,9 @@ foreach my $part_svc ( @part_svc ) {
print '> | ';
}
print qq!!, $part_svc->getfield('svc'), " |
";
+ qq!">!, $part_svc->getfield('svc'), '';
+ print ' (DISABLED)' if $part_svc->disabled =~ /^Y/i;
+ print '';
# print "$thead" if ++$count == int(scalar(@part_svc) / 2);
$count+=1;
foreach ( 1 .. $columns-1 ) {
@@ -257,7 +273,9 @@ my $widget = new HTML::Widgets::SelectLayers(
'options' => \%options,
'form_name' => 'dummy',
'form_action' => 'process/part_pkg.cgi',
- 'form_text' => [ qw(pkg comment clone pkgnum pkgpart), @fixups ],
+ 'form_text' => [ qw(pkg comment promo_code clone pkgnum pkgpart),
+ @fixups
+ ],
'form_checkbox' => [ qw(setuptax recurtax disabled) ],
'form_radio' => \@form_radio,
'form_select' => \@form_select,
@@ -295,8 +313,17 @@ my $widget = new HTML::Widgets::SelectLayers(
? $plandata{$field}
: $href->{$field}{'default'} ).
qq!" onChange="fchanged(this)">!;
- } elsif ( $href->{$field}{'type'} eq 'select_multiple' ) {
- $html .= qq! |