[flag type=write table=variable] [set page_title][L]Payment Options[/L][/set] [set ui_class]Admin[/set] [set help_name]payment.main[/set] [set icon_name]icon_config.gif[/set] [set page_perm]payment[/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] [msg arg.0="[page __UI_BASE__/reconfig @@MV_PAGE@@]" arg.1=""]You need to %sapply changes%s for changes to take effect.[/msg] [/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} = <<EOF; visa VISA $cc{visa} mc Mastercard $cc{mc} discover Discover $cc{discover} amex American Express $cc{amex} other Diners Club/Other $cc{other} EOF return; [/calc] [form-session-id]

[L]Name[/L] | [L]Accepted[/L]
[loop list="[scratch its]" lr=1]
[loop-pos 1] |
[/loop]
[L]Online Check[/L] |
[L]COD[/L] |
[L]Postal billing[/L] |
[L]Purchase Order[/L] |

[loop list="CREDIT_CARDS_ACCEPTED PO_ACCEPTED COD_ACCEPTED CHECK_ACCEPTED POSTAL_ACCEPTED"] [set [loop-code]][/set] [/loop]

@_UI_STD_FOOTER_@