X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-pkg_svc.html;h=b3bf802125f5b53fe26fdd8ad83af740161e866f;hb=b03bd63dcee4fce35d86e906b0379acdb6c76c27;hp=e66bdf7d7e6c8d5e5faa561dc17713b880bc26e4;hpb=f22b714f2b7a38c8a930d8248ccb32751db82b5e;p=freeside.git

diff --git a/httemplate/elements/tr-pkg_svc.html b/httemplate/elements/tr-pkg_svc.html
index e66bdf7d7..b3bf80212 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 );
@@ -29,6 +30,18 @@
 %    $quan = $1;
 %  } elsif ( $pkg_svc->quantity ) {
 %    $quan = $pkg_svc->quantity;
+%  }
+%
+%  my $provision_hold = '';
+%  if ( grep { $_ eq "provision_hold$svcpart" } $cgi->param ) {
+%    $provision_hold = $cgi->param("hidden_svc$svcpart");
+%  } else {
+%    $provision_hold = $pkg_svc->provision_hold;
+%  }
+%
+%  my @exports = $pkg_svc->part_svc->part_export;
+%  foreach my $export ( @exports ) {
+%  	push @possible_exports, $export if $export->can('external_pkg_map');
 %  }
 
   <TR>
@@ -41,8 +54,17 @@
     </TD>
 
     <TD>
-      <A HREF="part_svc.cgi?<% $part_svc->svcpart %>"><% $part_svc->svc %></A>      <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %>
+      <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>
+
+    <TD ALIGN="center">
+      <INPUT TYPE="checkbox" NAME="provision_hold<% $svcpart %>" VALUE="Y"<% $provision_hold =~ /^Y/i ? ' CHECKED' : ''%>>
+    </TD>
+
   </TR>
 % foreach ( 1 .. $columns-1 ) {
 %       if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) { 
@@ -57,6 +79,32 @@
 
 </TR></TABLE></TD></TR></TABLE>
 
+% if ( scalar(@possible_exports) > 0 || scalar(@mapped_exports) > 0 ) {
+   <TABLE><TR>
+	<TH BGCOLOR="#dcdcdc">Export</TH>
+	<TH BGCOLOR="#dcdcdc">Vendor Package Id <FONT SIZE="-2">(blank to delete)</FONT></TH>
+	</TR>
+%   foreach my $export ( @mapped_exports ) {
+	<TR>
+	    <TD><% $export->exportname %></TD>
+	    <TD><INPUT TYPE="text" NAME="export<% $export->exportnum %>"
+		    SIZE="30" VALUE="<% $vendor_pkg_ids{$export->exportnum} %>">
+	    </TD>
+	</TR>
+%   } 
+%   foreach my $export ( @possible_exports ) {
+%	unless ( defined $vendor_pkg_ids{$export->exportnum} ) {
+	    <TR>
+		<TD><% $export->exportname %></TD>
+		<TD>
+		    <INPUT TYPE="text" NAME="export<% $export->exportnum %>" SIZE="30">
+		</TD>
+	    </TR>
+% 	}
+%   }
+  </TABLE>
+% }
+
   </TD>
 </TR>
 
@@ -68,7 +116,10 @@ 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>'.
+             '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Hold<BR>Until<BR>Provision</FONT></TH>'.
+             '</TR>';
 
 my $part_pkg = $opt{'object'};
 my $pkgpart = $part_pkg->pkgpart;
@@ -84,10 +135,18 @@ my @part_svc = qsearch('part_svc', {}, '', $where);
 
 #my $q_part_pkg = $clone_part_pkg || $part_pkg;
 #my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
-my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc;
+my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc('disable_linked'=>1);
 
 my @fixups = ();
 my $count = 0;
 my $columns = 3;
 
+my @possible_exports = ();
+my @mapped_exports = ();
+my @part_pkg_vendor = $part_pkg->part_pkg_vendor;
+foreach my $part_pkg_vendor ( @part_pkg_vendor ) {
+    push @mapped_exports, $part_pkg_vendor->part_export;
+}
+my %vendor_pkg_ids = $part_pkg->vendor_pkg_ids;
+
 </%init>