[set page_title]Button builder[/set] [set ui_class]Design[/set] [set help_name]button.builder[/set] [set icon_name]icon_pages.gif[/set] [set mv_no_session_id][/set] [set empty_basket] [calc] @{$Carts->{main}} = (); return; [/calc] [/set] @_UI_STD_HEAD_@ [if scratch ui_failure]

> Failed: [scratchd ui_failure]

[/if]

Empty basket

[scratch test_button] [form-session-id] [comment]Below profile found in MV_ROOT/profiles[/comment]

Build an order button or link
[scratch item_result]
Type |
Item code | [perl] my $table = $Config->{ProductFiles}[0]; $Scratch->{keypos} = $Config->{Database}{$table}{KEYINDEX} || '0'; $Scratch->{flex_description} = $Config->{DescriptionField}; return; [/perl] [loop more=1 search=" st=db ra=yes md=1 tf=[scratch flex_description] rf=[scratch keypos],[scratch flex_description] " ] [more-list] Too big for one page: [more][/more-list] [/loop] Or enter SKU:
Specific Quantity | (Separate multiple quantities by commas)
[calc] my $ary = $Config->{ProductFiles}; return unless scalar @$ary > 1; my $out = <<'EOF';
A specific database |
EOF [/calc]
Separate line? |
Group items? | (all items removed when first one is)
[loop prefix=macro list=`join "\n", @{$Config->{UseModifier}};`]
[macro-code] (if any) | [/loop]
Affiliate code |
[if config OnFly]
Description (on-the-fly only) |
Price (on-the-fly only) |
[/if] [comment] [calc] my $out = ''; for(@{$Config->{UseModifier}}) { $out .= <<EOF;
$_ (if any) | (Separate multiple values by commas)
EOF } return $out; [/calc] [/comment]
Action |

@_UI_STD_FOOTER_@