diff options
| author | mark <mark> | 2010-11-13 23:23:48 +0000 |
|---|---|---|
| committer | mark <mark> | 2010-11-13 23:23:48 +0000 |
| commit | ff92fba056c2b61753d464c84ecede6ec2f57258 (patch) | |
| tree | d31db23bf83cb021ebd8932fcda5118a80f3ff8b /httemplate | |
| parent | 5188e8406a1fa2bee63ea81090ffefe3d4bf1b89 (diff) | |
hidden pkg_svc flag, RT#9871
Diffstat (limited to 'httemplate')
| -rwxr-xr-x | httemplate/edit/process/part_pkg.cgi | 8 | ||||
| -rw-r--r-- | httemplate/elements/tr-pkg_svc.html | 9 |
2 files changed, 12 insertions, 5 deletions
diff --git a/httemplate/edit/process/part_pkg.cgi b/httemplate/edit/process/part_pkg.cgi index 97ae4e7ee..724880190 100755 --- a/httemplate/edit/process/part_pkg.cgi +++ b/httemplate/edit/process/part_pkg.cgi @@ -117,11 +117,11 @@ my $args_callback = sub { #pkg_svc ### - my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) } - map { $_->svcpart } - qsearch('part_svc', {} ); + my @svcparts = map { $_->svcpart } qsearch('part_svc', {}); + my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) } @svcparts; + my %hidden_svc = map { $_ => scalar($cgi->param("hidden$_")) } @svcparts; - push @args, 'pkg_svc' => \%pkg_svc; + push @args, 'pkg_svc' => \%pkg_svc, 'hidden_svc' => \%hidden_svc; ### # cust_pkg and custnum_ref (inserts only) diff --git a/httemplate/elements/tr-pkg_svc.html b/httemplate/elements/tr-pkg_svc.html index e68ed4add..66bbddfda 100644 --- a/httemplate/elements/tr-pkg_svc.html +++ b/httemplate/elements/tr-pkg_svc.html @@ -12,6 +12,7 @@ % 'svcpart' => $svcpart, % 'quantity' => 0, % 'primary_svc' => '', +% 'hidden' => '', % } ); % if ( $cgi->param('error') ) { % my $primary_svc = ( $pkg_svc->primary_svc =~ /^Y/i ); @@ -43,6 +44,10 @@ <TD> <A HREF="part_svc.cgi?<% $part_svc->svcpart %>"><% $part_svc->svc %></A> <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %> </TD> + + <TD> + <INPUT TYPE="checkbox" NAME="hidden<% $svcpart %>" VALUE="Y"<% $pkg_svc->hidden =~ /^Y/i ? ' CHECKED' : ''%>> + </TD> </TR> % foreach ( 1 .. $columns-1 ) { % if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) { @@ -68,7 +73,9 @@ my $cgi = $opt{'cgi'}; my $thead = "\n\n". ntable('#cccccc', 2). '<TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH>'. '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-2>Primary</FONT></TH>'. - '<TH BGCOLOR="#dcdcdc">Service</TH></TR>'; + '<TH BGCOLOR="#dcdcdc">Service</TH>'. + '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Hide</FONT></TH>'. + '</TR>'; my $part_pkg = $opt{'object'}; my $pkgpart = $part_pkg->pkgpart; |