X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-did.html;h=2aa712f794e3c121d9188774c1e239f89bdc6be3;hb=a8d62307b05d924d3304fd7cf18177e2fc1c91f7;hp=c784033453766e4d648ff28a499d98ab190f8007;hpb=8a7aeda3fe2c178b0c492401adc6bf6afe47ec67;p=freeside.git

diff --git a/httemplate/elements/tr-select-did.html b/httemplate/elements/tr-select-did.html
index c78403345..2aa712f79 100644
--- a/httemplate/elements/tr-select-did.html
+++ b/httemplate/elements/tr-select-did.html
@@ -1,6 +1,6 @@
 <% include('tr-td-label.html', @_ ) %>
 
-% if ( $opt{'curr_value'} ne '' ) {
+% if ( $use_selector && $opt{'curr_value'} ne '' && ! $can_edit ) {
 
     <TD BGCOLOR="#dddddd" <% $cell_style %>><% $opt{'formatted_value'} || $opt{'curr_value'} || $opt{'value'} |h %></TD>
     
@@ -19,7 +19,25 @@
 <%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;
+
+my $can_edit = scalar(@exports) && $exports[0]->get_dids_can_edit;
+
 </%init>