[flag type=write table=variable]
[set page_title]Payment Options[/set]
[set ui_class]Admin[/set]
[set help_name]payment.main[/set]
[set icon_name]icon_config.gif[/set]
@_UI_STD_HEAD_@
[perl tables=variable]
delete $Scratch->{change_payment};
return unless $CGI->{change_payment} eq 'do';
$Scratch->{change_payment} = 1;
for (my $i = 1; $i < 1000; $i++) {
last unless defined $CGI->{"cc_accepted$i"};
push @cc, $CGI->{"cc_accepted$i"};
}
$Scratch->{CREDIT_CARDS_ACCEPTED} = join " ", @cc;
$Scratch->{PO_ACCEPTED} = $CGI->{po};
$Scratch->{COD_ACCEPTED} = $CGI->{cod};
$Scratch->{POSTAL_ACCEPTED} = $CGI->{postal};
$Scratch->{CHECK_ACCEPTED} = $CGI->{check};
return;
[/perl]
[if scratch change_payment]
[loop list="CREDIT_CARDS_ACCEPTED PO_ACCEPTED COD_ACCEPTED CHECK_ACCEPTED POSTAL_ACCEPTED"]
[/loop]
[/if]
[if type=explicit
compare=|
[newer
source=__UI_PRODUCT_DIR__/variable.txt
target=`"$Config->{ConfDir}/status.$Config->{CatalogName}"`
]
|]
[value name=ui_changes_made set=1 hide=1]
You need to [page __UI_BASE__/reconfig @@MV_PAGE@@]apply changes[/page] for changes to take effect.
[/if]
[calc]
@cc = grep /\S/, split /\s+/,
tag_data(qw/variable Variable CREDIT_CARDS_ACCEPTED/);
for (qw/PO_ACCEPTED COD_ACCEPTED CHECK_ACCEPTED POSTAL_ACCEPTED/) {
$Scratch->{$_} = tag_data(qw/variable Variable/, $_);
}
for (@cc) {
$cc{$_} = 1;
}
$Scratch->{its} = <
 |
Name |
Accepted |
[loop list="[scratch its]" lr=1]
[loop-pos 1]
|
|
[/loop]
Online Check
|
|
COD
|
|
Postal billing
|
|
Purchase Order
|
|
 |
[loop list="CREDIT_CARDS_ACCEPTED PO_ACCEPTED COD_ACCEPTED CHECK_ACCEPTED POSTAL_ACCEPTED"]
[set [loop-code]][/set]
[/loop]
@_UI_STD_FOOTER_@