diff options
Diffstat (limited to 'httemplate')
| -rwxr-xr-x | httemplate/edit/process/part_pkg.cgi | 10 | ||||
| -rw-r--r-- | httemplate/elements/tr-pkg_svc.html | 39 | ||||
| -rwxr-xr-x | httemplate/search/qual.cgi | 2 | ||||
| -rw-r--r-- | httemplate/view/qual.cgi | 2 |
4 files changed, 51 insertions, 2 deletions
diff --git a/httemplate/edit/process/part_pkg.cgi b/httemplate/edit/process/part_pkg.cgi index 724880190..27f07e617 100755 --- a/httemplate/edit/process/part_pkg.cgi +++ b/httemplate/edit/process/part_pkg.cgi @@ -131,6 +131,16 @@ my $args_callback = sub { 'custnum_ref' => \$custnum; } + my %part_pkg_vendor; + foreach my $param ( $cgi->param ) { + if ( $param =~ /^export(\d+)$/ && length($cgi->param($param)) > 0 ) { + $part_pkg_vendor{$1} = $cgi->param($param); + } + } + if ( keys %part_pkg_vendor > 0 ) { + push @args, 'part_pkg_vendor' => \%part_pkg_vendor; + } + #warn "args: ".join('/', @args). "\n"; @args; diff --git a/httemplate/elements/tr-pkg_svc.html b/httemplate/elements/tr-pkg_svc.html index 66bbddfda..6d17a376d 100644 --- a/httemplate/elements/tr-pkg_svc.html +++ b/httemplate/elements/tr-pkg_svc.html @@ -31,6 +31,11 @@ % } elsif ( $pkg_svc->quantity ) { % $quan = $pkg_svc->quantity; % } +% +% my @exports = $pkg_svc->part_svc->part_export; +% foreach my $export ( @exports ) { +% push @possible_exports, $export if $export->can('external_pkg_map'); +% } <TR> <TD> @@ -62,6 +67,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> @@ -97,4 +128,12 @@ 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> diff --git a/httemplate/search/qual.cgi b/httemplate/search/qual.cgi index 0bb455b3c..cf4f3d111 100755 --- a/httemplate/search/qual.cgi +++ b/httemplate/search/qual.cgi @@ -43,7 +43,7 @@ }, sub { my $self = shift; - my $export = $self->export; + my $export = $self->part_export; my $result = '(manual)'; $result = $export->exportname if $export; $result; diff --git a/httemplate/view/qual.cgi b/httemplate/view/qual.cgi index c440baeaf..8ab0032ad 100644 --- a/httemplate/view/qual.cgi +++ b/httemplate/view/qual.cgi @@ -60,6 +60,6 @@ $location_kind = "Residential" if $cust_location->get('location_kind') eq 'R'; $location_kind = "Business" if $cust_location->get('location_kind') eq 'B'; my $cust_or_prospect = $qual->cust_or_prospect; -my $export = $qual->export; +my $export = $qual->part_export; </%init> |