X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fchange_pay.html;h=6898dc7f86d37293f8be5d4bcd84204b0d0343f9;hb=f822e27a1e00594332ffa487a1c284234c5580a6;hp=e7a9969316318217a1e4a20b61e9ce0e799b683e;hpb=7f43bf155bc79e3c9bd5d88e53117595963c301e;p=freeside.git diff --git a/fs_selfservice/FS-SelfService/cgi/change_pay.html b/fs_selfservice/FS-SelfService/cgi/change_pay.html index e7a996931..6898dc7f8 100644 --- a/fs_selfservice/FS-SelfService/cgi/change_pay.html +++ b/fs_selfservice/FS-SelfService/cgi/change_pay.html @@ -1,7 +1,5 @@ -<%= $url = "$selfurl?session=$session_id;action="; ''; %> -<%= include('header') %> +<%= include('header', 'Change payment information') %> -Change payment information

<%= if ( $error ) { $OUT .= qq!Error: $error

!; } ''; %> @@ -14,7 +12,7 @@ my $preauto = '). + my $tail = qq(). qq(). qq(
). qq( 'DCRD', + 'DCRD' => 'CARD', + 'CHEK' => 'DCHK', + 'DCHK' => 'CHEK', + ); + delete( $options{ $paybyremove{$payby} } ); + delete $options{'DCRD'} unless $payby eq 'DCRD' || ! exists $options{'CARD'}; + delete $options{'DCHK'} unless $payby eq 'DCHK' || ! exists $options{'CHEK'}; + HTML::Widgets::SelectLayers->new( options => \%options, selected_layer => $payby,