[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} = < [loop list="[scratch its]" lr=1] [/loop]
Name Accepted
[loop-pos 1]
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_@