annotate paypal/make.pl @ 42:ef8615de8a9c laserkard

[svn r43] implemented form memory
author rlm
date Wed, 27 Jan 2010 22:04:43 -0500
parents 1ac1409ea68c
children 1045db9799e3
rev   line source
rlm@4 1 use generate_paylists;
rlm@4 2
rlm@22 3
rlm@22 4 {#big_acrylic_clear
rlm@22 5 &paylist
rlm@22 6 (
rlm@25 7 TITLE => 'Clarity Series:<br> The Bold Kard.',
rlm@25 8 PRODUCT_NAME => 'Clarity Series: The Bold Kard',
rlm@40 9 SHORT_FORM => 'bold',
rlm@40 10
rlm@32 11 DESC => 'Laser-Etched Clear Acrylic',
rlm@24 12
rlm@22 13 NAME => 'big_acrylic_clear',
rlm@22 14
rlm@40 15 FIELDS => ["Name", "Email"],
rlm@42 16 DEFAULTS => ['PERL::NAME','PERL::EMAIL'],
rlm@22 17
rlm@22 18 COSTS_NAMES => ['40 cards &mdash; $125', '4 cards &mdash; $30'],
rlm@22 19 COSTS_CODE => ['40 cards @125.00', '4 cards @30.00'],
rlm@22 20 INITIAL_PRICE => '$125.00',
rlm@22 21
rlm@22 22 ADD_PENNY => 0,
rlm@22 23 );
rlm@22 24 }
rlm@22 25
rlm@22 26
rlm@22 27 {#basic_acrylic_clear
rlm@22 28 &paylist
rlm@22 29 (
rlm@25 30 TITLE => 'Clarity Series:<br> The Arrow Kard.',
rlm@25 31 PRODUCT_NAME => 'Clarity Series: The Arrow Kard',
rlm@40 32 SHORT_FORM => 'arrow',
rlm@24 33
rlm@22 34 NAME => 'basic_acrylic_clear',
rlm@22 35
rlm@40 36 FIELDS => ["Name", "Company","Occupation","Email"],
rlm@42 37 DEFAULTS => ['PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::EMAIL'],
rlm@22 38
rlm@22 39 COSTS_NAMES => ['40 cards &mdash; $125', '4 cards &mdash; $30'],
rlm@22 40 COSTS_CODE => ['40 cards @125.00', '4 cards @30.00'],
rlm@22 41 INITIAL_PRICE => '$125.00',
rlm@22 42
rlm@35 43 ADD_PENNY => 0,
rlm@22 44 );
rlm@22 45 }
rlm@22 46
rlm@22 47
rlm@22 48
rlm@4 49 {#classic_acrylic_clear
rlm@4 50 &paylist
rlm@4 51 (
rlm@25 52 TITLE => 'Clarity Series:<br> The Classic Kard.',
rlm@25 53 PRODUCT_NAME => 'Clarity Series: The Classic Kard',
rlm@40 54 SHORT_FORM => 'classic',
rlm@24 55
rlm@4 56 NAME => 'classic_acrylic_clear',
rlm@4 57
rlm@40 58 FIELDS => ["Email", "Phone","Name","Company","Occupation","Website"],
rlm@42 59 DEFAULTS => ['PERL::EMAIL','PERL::PHONE','PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::WEBSITE'],
rlm@4 60
rlm@22 61 COSTS_NAMES => ['40 cards &mdash; $125', '4 cards &mdash; $30'],
rlm@22 62 COSTS_CODE => ['40 cards @125.00', '4 cards @30.00'],
rlm@4 63 INITIAL_PRICE => '$125.00',
rlm@4 64
rlm@40 65 ADD_PENNY => 1,
rlm@4 66 );
rlm@4 67 }
rlm@4 68
rlm@4 69
rlm@4 70
rlm@4 71
rlm@4 72 {#lines_acrylic_clear
rlm@4 73 &paylist
rlm@4 74 (
rlm@25 75 TITLE => 'Clarity Series:<br> The Direct Kard.',
rlm@25 76 PRODUCT_NAME => 'Clarity Series: The Direct Kard',
rlm@40 77 SHORT_FORM => 'direct',
rlm@24 78
rlm@4 79 NAME => 'lines_acrylic_clear',
rlm@4 80
rlm@40 81 FIELDS => ["Name", "Occupation","Company","Phone","Email","Website"],
rlm@42 82 DEFAULTS => ['PERL::NAME','PERL::OCCUPATION','PERL::COMPANY','PERL::PHONE','PERL::EMAIL','PERL::WEBSITE'],
rlm@4 83
rlm@22 84 COSTS_NAMES => ['40 cards &mdash; $125', '4 cards &mdash; $30'],
rlm@22 85 COSTS_CODE => ['40 cards @125.00', '4 cards @30.00'],
rlm@4 86 INITIAL_PRICE => '$125.00',
rlm@4 87
rlm@4 88 ADD_PENNY => 0,
rlm@4 89 );
rlm@4 90 }
rlm@5 91
rlm@5 92
rlm@5 93
rlm@5 94
rlm@42 95
rlm@42 96
rlm@42 97
rlm@42 98
rlm@42 99
rlm@42 100
rlm@42 101
rlm@42 102 ##################################################################################################################################
rlm@42 103
rlm@42 104
rlm@42 105
rlm@42 106
rlm@42 107
rlm@42 108
rlm@42 109
rlm@42 110
rlm@42 111
rlm@42 112
rlm@42 113
rlm@42 114
rlm@5 115 {#classic_acrylic_green
rlm@5 116 &paylist
rlm@5 117 (
rlm@16 118 TITLE => "Vitality LaserKard Classic Style",
rlm@5 119 NAME => 'classic_acrylic_green',
rlm@5 120
rlm@5 121 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Side"],
rlm@42 122 DEFAULTS => ['PERL::EMAIL','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
rlm@5 123
rlm@22 124 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 125 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 126 INITIAL_PRICE => '$135.00',
rlm@5 127
rlm@5 128 ADD_PENNY => 0,
rlm@5 129 );
rlm@5 130 }
rlm@5 131
rlm@5 132
rlm@5 133 {#big_acrylic_green
rlm@5 134 &paylist
rlm@5 135 (
rlm@16 136 TITLE => "Vitality LaserKard BIG Style",
rlm@5 137 NAME => 'big_acrylic_green',
rlm@5 138
rlm@5 139 FIELDS => ["Line 1", "Line 2"],
rlm@42 140 DEFAULTS => ['James Bond','PERL::EMAIL'],
rlm@5 141
rlm@22 142 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 143 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 144 INITIAL_PRICE => '$135.00',
rlm@5 145
rlm@5 146 ADD_PENNY => 1,
rlm@5 147 );
rlm@5 148 }
rlm@5 149
rlm@5 150 {#basic_acrylic_green
rlm@5 151 &paylist
rlm@5 152 (
rlm@16 153 TITLE => "Vitality LaserKard Basic Style",
rlm@5 154 NAME => 'basic_acrylic_green',
rlm@5 155
rlm@5 156 FIELDS => ["Line 1", "Line 2","Line 3","Line 4"],
rlm@5 157 DEFAULTS => ['James Bond','MI6','Secret Agent','jbond@mi6.co.uk'],
rlm@5 158
rlm@22 159 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 160 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 161 INITIAL_PRICE => '$135.00',
rlm@5 162
rlm@5 163 ADD_PENNY => 0,
rlm@5 164 );
rlm@5 165 }
rlm@5 166
rlm@5 167 {#lines_acrylic_green
rlm@5 168 &paylist
rlm@5 169 (
rlm@16 170 TITLE => "Vitality LaserKard Lines Style",
rlm@5 171 NAME => 'lines_acrylic_green',
rlm@5 172
rlm@5 173 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Line 6"],
rlm@5 174 DEFAULTS => ['James Bond','Secret Agent','MI6','123.456.7890','jbond@domain.com','http://www.domain.com'],
rlm@5 175
rlm@22 176 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 177 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 178 INITIAL_PRICE => '$135.00',
rlm@5 179
rlm@5 180 ADD_PENNY => 0,
rlm@5 181 );
rlm@5 182 }
rlm@5 183