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

diff --git a/httemplate/elements/tr-select-did.html b/httemplate/elements/tr-select-did.html
index 6dd057600..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);
+#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'}->cust_svc->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;