projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d03c5b
)
fix postal mail checkbox misbehaving (isn't sticky on errors - reverts back to on)
author
ivan
<ivan>
Fri, 9 Dec 2005 16:56:53 +0000
(16:56 +0000)
committer
ivan
<ivan>
Fri, 9 Dec 2005 16:56:53 +0000
(16:56 +0000)
httemplate/edit/cust_main.cgi
patch
|
blob
|
history
httemplate/edit/cust_main/billing.html
patch
|
blob
|
history
diff --git
a/httemplate/edit/cust_main.cgi
b/httemplate/edit/cust_main.cgi
index
e10c85f
..
144d540
100755
(executable)
--- a/
httemplate/edit/cust_main.cgi
+++ b/
httemplate/edit/cust_main.cgi
@@
-234,7
+234,10
@@
Service address
<!-- billing info -->
<!-- billing info -->
-<%= include('cust_main/billing.html', $cust_main ) %>
+<%= include( 'cust_main/billing.html', $cust_main,
+ 'invoicing_list' => \@invoicing_list,
+ )
+%>
<SCRIPT>
function bottomfixup(what) {
<SCRIPT>
function bottomfixup(what) {
diff --git
a/httemplate/edit/cust_main/billing.html
b/httemplate/edit/cust_main/billing.html
index
1f557c8
..
a9b3c1f
100644
(file)
--- a/
httemplate/edit/cust_main/billing.html
+++ b/
httemplate/edit/cust_main/billing.html
@@
-1,6
+1,7
@@
<%
<%
-my( $cust_main ) = @_;
+my( $cust_main, %options ) = @_;
+my @invoicing_list = @{ $options{'invoicing_list'} };
my $conf = new FS::Conf;
my $payby_default = $conf->config('payby-default');
my $conf = new FS::Conf;
my $payby_default = $conf->config('payby-default');
@@
-49,14
+50,12
@@
if ( $payby_default eq 'HIDE' ) {
<INPUT TYPE="hidden" NAME="tax" VALUE="<%= $cust_main->tax %>">
<INPUT TYPE="hidden" NAME="tax" VALUE="<%= $cust_main->tax %>">
- <INPUT TYPE="hidden" NAME="invoicing_list" VALUE="<%= join(', ',
$cust_main->
invoicing_list) %>">
+ <INPUT TYPE="hidden" NAME="invoicing_list" VALUE="<%= join(', ',
@
invoicing_list) %>">
</FORM>
<% } else {
</FORM>
<% } else {
- my @invoicing_list = $cust_main->invoicing_list;
-
my $r = qq!<font color="#ff0000">*</font> !;
%>
my $r = qq!<font color="#ff0000">*</font> !;
%>