X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-did.html;h=987ade6897eeba6aecef4b9714b319eb497a099b;hb=b431ece7b4a71aa5771f44393da582692f668817;hp=c8a653e5736890549a91a9c3780973e9f1474b66;hpb=b153693eaaf58e5af5f454e40f9ec169128f6d92;p=freeside.git

diff --git a/httemplate/elements/tr-select-did.html b/httemplate/elements/tr-select-did.html
index c8a653e57..987ade689 100644
--- a/httemplate/elements/tr-select-did.html
+++ b/httemplate/elements/tr-select-did.html
@@ -19,12 +19,14 @@
 <%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;
+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;