diff options
Diffstat (limited to 'httemplate/elements/tr-select-did.html')
-rw-r--r-- | httemplate/elements/tr-select-did.html | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/httemplate/elements/tr-select-did.html b/httemplate/elements/tr-select-did.html new file mode 100644 index 000000000..987ade689 --- /dev/null +++ b/httemplate/elements/tr-select-did.html @@ -0,0 +1,41 @@ +<% include('tr-td-label.html', @_ ) %> + +% if ( $opt{'curr_value'} ne '' && $use_selector ) { + + <TD BGCOLOR="#dddddd" <% $cell_style %>><% $opt{'formatted_value'} || $opt{'curr_value'} || $opt{'value'} |h %></TD> + + <% include('hidden.html', %opt ) %> + +% } else { + + <TD <% $cell_style %>> + <% include('/elements/select-did.html', %opt ) %> + </TD> + +% } + +</TR> + +<%init> + +my %opt = @_; +#warn Dumper(\%opt); if $DEBUG; +my $cell_style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : ''; + +#false laziness w/select-did.html +#XXX make sure this comes through on errors too +my $svcpart = $opt{'svcpart'} + || $opt{'object'}->svcpart + || $opt{'object'}->cust_svc->svcpart; + +my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } ); +die "unknown svcpart $svcpart" unless $part_svc; + +my @exports = $part_svc->part_export_did; +if ( scalar(@exports) > 1 ) { + die "more than one DID-providing export attached to svcpart $svcpart"; +} + +my $use_selector = scalar(@exports) ? 1 : 0; + +</%init> |