view paypal/make.pl @ 102:8ed3394e6b73 laserkard

wrote comment-killer
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Jul 2010 22:23:13 -0400
parents 9d156039944e
children
line wrap: on
line source
1 use generate_paylists;
4 @standard_prices = ['4 cards &mdash; $29','30 cards &mdash; $99 (Intro Offer)', '50 cards &mdash; $149'] ; #'50 cards &mdash; $149',
6 @standard_codes = ['4 cards @29.00' ,'30 cards @99.00', '50 cards @149.00']; #['50 cards @149.00',
7 $init_price = '$149.00';
9 $descrip = 'Laser-Etched Clear Scratch Resistant';
14 {#basic_acrylic_clear
15 &paylist
16 (
17 TITLE => 'Clarity Series:<br> The Arrow Kard.',
18 PRODUCT_NAME => 'Clarity Series: The Arrow Kard',
19 SHORT_FORM => 'arrow',
21 NAME => 'basic_acrylic_clear',
23 FIELDS => ["Name", "Company","Occupation","Email"],
24 DEFAULTS => ['PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::EMAIL'],
26 COSTS_NAMES => @standard_prices,
27 COSTS_CODE => @standard_codes,
28 INITIAL_PRICE => $init_price,
31 ADD_PENNY => 1,
32 );
33 }
35 {#big_acrylic_clear
36 &paylist
37 (
38 TITLE => 'Clarity Series:<br> The Bold Kard.',
39 PRODUCT_NAME => 'Clarity Series: The Bold Kard',
40 SHORT_FORM => 'bold',
44 NAME => 'big_acrylic_clear',
46 FIELDS => ["Name", "Email"],
47 DEFAULTS => ['PERL::NAME','PERL::EMAIL'],
49 COSTS_NAMES => @standard_prices,
50 COSTS_CODE => @standard_codes,
51 INITIAL_PRICE => $init_price,
53 ADD_PENNY => 0,
54 );
55 }
57 {#classic_acrylic_clear
58 &paylist
59 (
60 TITLE => 'Clarity Series:<br> The Classic Kard.',
61 PRODUCT_NAME => 'Clarity Series: The Classic Kard',
62 SHORT_FORM => 'classic',
64 NAME => 'classic_acrylic_clear',
66 FIELDS => ["Email", "Phone","Name","Company","Occupation","Website"],
67 DEFAULTS => ['PERL::EMAIL','PERL::PHONE','PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::WEBSITE'],
69 COSTS_NAMES => @standard_prices,
70 COSTS_CODE => @standard_codes,
71 INITIAL_PRICE => $init_price,
74 ADD_PENNY => 0,
75 );
76 }
81 {#lines_acrylic_clear
82 &paylist
83 (
84 TITLE => 'Clarity Series:<br> The Direct Kard.',
85 PRODUCT_NAME => 'Clarity Series: The Direct Kard',
86 SHORT_FORM => 'direct',
88 NAME => 'lines_acrylic_clear',
90 FIELDS => ["Name", "Occupation","Company","Phone","Email","Website"],
91 DEFAULTS => ['PERL::NAME','PERL::OCCUPATION','PERL::COMPANY','PERL::PHONE','PERL::EMAIL','PERL::WEBSITE'],
93 COSTS_NAMES => @standard_prices,
94 COSTS_CODE => @standard_codes,
95 INITIAL_PRICE => $init_price,
98 ADD_PENNY => 0,
99 );
100 }
112 ##################################################################################################################################
125 {#classic_acrylic_green
126 &paylist
127 (
128 TITLE => "Vitality LaserKard Classic Style",
129 NAME => 'classic_acrylic_green',
131 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Side"],
132 DEFAULTS => ['PERL::EMAIL','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
134 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
135 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
136 INITIAL_PRICE => '$135.00',
138 ADD_PENNY => 0,
139 );
140 }
143 {#big_acrylic_green
144 &paylist
145 (
146 TITLE => "Vitality LaserKard BIG Style",
147 NAME => 'big_acrylic_green',
149 FIELDS => ["Line 1", "Line 2"],
150 DEFAULTS => ['James Bond','PERL::EMAIL'],
152 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
153 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
154 INITIAL_PRICE => '$135.00',
156 ADD_PENNY => 1,
157 );
158 }
160 {#basic_acrylic_green
161 &paylist
162 (
163 TITLE => "Vitality LaserKard Basic Style",
164 NAME => 'basic_acrylic_green',
166 FIELDS => ["Line 1", "Line 2","Line 3","Line 4"],
167 DEFAULTS => ['James Bond','MI6','Secret Agent','jbond@mi6.co.uk'],
169 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
170 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
171 INITIAL_PRICE => '$135.00',
173 ADD_PENNY => 0,
174 );
175 }
177 {#lines_acrylic_green
178 &paylist
179 (
180 TITLE => "Vitality LaserKard Lines Style",
181 NAME => 'lines_acrylic_green',
183 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Line 6"],
184 DEFAULTS => ['James Bond','Secret Agent','MI6','123.456.7890','jbond@domain.com','http://www.domain.com'],
186 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
187 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
188 INITIAL_PRICE => '$135.00',
190 ADD_PENNY => 0,
191 );
192 }