X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main%2Fbilling.html;h=618e1913a95bfc7dbfc4fabaa799a9b29f2adcb6;hb=20f03d52cc6c930f610c0b4466eeeeda54fdbb40;hp=77db7b6c690894ece0dca474c1c2c26b4bdd3651;hpb=6837ca2c7a45033a566238bb3e5f3f262d85fc0e;p=freeside.git
diff --git a/httemplate/edit/cust_main/billing.html b/httemplate/edit/cust_main/billing.html
index 77db7b6c6..618e1913a 100644
--- a/httemplate/edit/cust_main/billing.html
+++ b/httemplate/edit/cust_main/billing.html
@@ -1,456 +1,369 @@
-%
-%
-%my( $cust_main, %options ) = @_;
-%my @invoicing_list = @{ $options{'invoicing_list'} };
-%my $conf = new FS::Conf;
-%my $payby_default = $conf->config('payby-default');
-%
-%my @payby = grep /\w/, $conf->config('payby');
-%#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP ))
-%@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP ))
-% unless @payby;
-%
-%if ( $payby_default eq 'HIDE' ) {
-%
-% $cust_main->payby('BILL') unless $cust_main->payby;
-%
-%
-
-
-
-
-
-
-
-
-
-% } else {
-%
% my $r = qq!* !;
-%
-%
-
-
-
Billing information
- <% &ntable("#cccccc") %>
-
-
- <%$r%>Billing type |
-
-
-
-
-%
-%
-% my($payby, $paymask, $payname)=(
-% $cust_main->payby,
-% $cust_main->paymask,
-% $cust_main->payname,
-% );
-% my( $account, $aba ) = split('@', $paymask);
-%
-% my $disabled = 'DISABLED style="background-color: #dddddd"';
-% my $text_disabled = 'style="color: #999999"';
-%
-% # this is not going to work unless the mask-generation recognizes
-% # Switch/Solo cards
-% if ( $payby =~ /^(CARD|DCRD)$/ && cardtype($paymask) =~ /^(Switch|Solo)$/ ) {
-% $disabled = 'style="background-color: #ffffff"';
-% $text_disabled = 'style="color: #000000";'
-% }
-%
-% my %payby = (
-%
-% 'CARD' =>
-%
-% '',
-%
-% 'CHEK' =>
-%
-% '',
-%
-% 'LECB' =>
-%
-% '',
-%
-% 'BILL' =>
-%
-% '',
-%
-% 'COMP' =>
-%
-% '',
-%
-% 'CASH' =>
-%
-% '',
-%
-% 'WEST' =>
-%
-% '',
-%
-% 'MCRD' =>
-%
-% '',
-%
-% );
-%
-% #this should use FS::payby
-% my %allopt = (
-% 'CARD' => 'Credit card',
-% 'CHEK' => 'Electronic check',
-% 'LECB' => 'Phone bill billing',
-% 'BILL' => 'Billing',
-% 'CASH' => 'Cash', # initial payment, then billing',
-% 'WEST' => 'Western Union', # initial payment, then billing',
-% 'MCRD' => 'Manual credit card', # initial payment, then billing',
-% 'COMP' => 'Complimentary',
-% );
-% if ( $cust_main->custnum ) { #don't offer CASH/WEST/MCRD initial payment types
-% # when editing customer
-% delete $allopt{$_} for qw(CASH WEST MCRD);
-% }
-%
-% tie my %options, 'Tie::IxHash',
-% map { $_ => $allopt{$_} }
-% grep { exists $allopt{$_} }
-% @payby;
-%
-% my %payby2option = (
-% ( map { $_ => $_ } keys %options ),
-% 'DCRD' => 'CARD',
-% 'DCHK' => 'CHEK',
-% );
-%
-% my $widget = new HTML::Widgets::SelectLayers(
-% 'options' => \%options,
-% #'form_name' => 'dummy',
-% #'form_action' => 'nothingyet',
-% #chops bottom of page in IE# 'under_position' => 'absolute',
-% 'html_between' => '
',
-% 'selected_layer' => $payby2option{$payby || $payby_default || $payby[0] },
-% 'layer_callback' => sub { my $layer = shift; $payby{$layer}; },
-% );
-%
-%
-
-
- <% $widget->html %>
-
-
+my $money_char = $conf->config('money_char') || '$';
- <% $r %> required fields
-% }
+my $show_term = '';
+if ( $cust_main->custnum ) {
+ #false laziness w/view/cust_main/billing.html
+ my $term_sql = "SELECT COUNT(*) FROM cust_pkg LEFT JOIN part_pkg USING ( pkgpart ) WHERE custnum = ? AND plan = 'cdr_termination' LIMIT 1";
+ my $term_sth = dbh->prepare($term_sql) or die dbh->errstr;
+ $term_sth->execute($cust_main->custnum) or die $term_sth->errstr;
+ $show_term = $term_sth->fetchrow_arrayref->[0];
+}
+my $agentnum = $cust_main->agentnum if $cust_main->custnum;
+%init>
|