projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
only show coordinate fields where necessary, #940
[freeside.git]
/
httemplate
/
misc
/
payment.cgi
diff --git
a/httemplate/misc/payment.cgi
b/httemplate/misc/payment.cgi
index
2d73072
..
b4e3a6f
100644
(file)
--- a/
httemplate/misc/payment.cgi
+++ b/
httemplate/misc/payment.cgi
@@
-78,7
+78,7
@@
</TR>
<& /elements/location.html,
</TR>
<& /elements/location.html,
- 'object' => $cust_main
, #XXX errors???
+ 'object' => $cust_main
->bill_location,
'no_asterisks' => 1,
'address1_label' => emt('Card billing address'),
&>
'no_asterisks' => 1,
'address1_label' => emt('Card billing address'),
&>
@@
-251,6
+251,10
@@
my $custnum = $1;
my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
die "unknown custnum $custnum" unless $cust_main;
my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
die "unknown custnum $custnum" unless $cust_main;
+my $location = $cust_main->bill_location;
+# no proper error handling on this anyway, but when we have it,
+# remember to repopulate fields in $location
+
my $balance = $cust_main->balance;
my $payinfo = '';
my $balance = $cust_main->balance;
my $payinfo = '';