diff options
author | ivan <ivan> | 2009-07-06 00:10:49 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-07-06 00:10:49 +0000 |
commit | ff023eb486cc3000d1ee4a2186b8748e1fcbdbb6 (patch) | |
tree | db33935fbb29c47874037bc7defc4414e43f26a0 /httemplate/elements/tr-select-did.html | |
parent | b153693eaaf58e5af5f454e40f9ec169128f6d92 (diff) |
doh
Diffstat (limited to 'httemplate/elements/tr-select-did.html')
-rw-r--r-- | httemplate/elements/tr-select-did.html | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/httemplate/elements/tr-select-did.html b/httemplate/elements/tr-select-did.html index c8a653e57..6dd057600 100644 --- a/httemplate/elements/tr-select-did.html +++ b/httemplate/elements/tr-select-did.html @@ -19,12 +19,12 @@ <%init> my %opt = @_; - +warn Dumper(\%opt); 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'}->cust_svc->svcpart; my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } ); die "unknown svcpart $svcpart" unless $part_svc; |