Mercurial > laserkard

comparison paypal/make.pl @ 57:8324f195ef36 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r58] implemented various changes
author rlm
date Sun, 14 Mar 2010 00:32:38 -0500
parents 95fa4bcc5d67
children 9d156039944e
comparison
equal deleted inserted replaced
56:2ca94aa58033 57:8324f195ef36
1 use generate_paylists; 1 use generate_paylists;
2 2
3 3
4 {#big_acrylic_clear 4 @standard_prices = ['50 cards — $149','30 cards — $99 (Intro Offer)', '4 cards — $29'] ; #'50 cards — $149',
5 &paylist
6 (
7 TITLE => 'Clarity Series:<br> The Bold Kard.',
8 PRODUCT_NAME => 'Clarity Series: The Bold Kard',
9 SHORT_FORM => 'bold',
10 5
11 DESC => 'Laser-Etched Clear Acrylic', 6 @standard_codes = [ '50 cards @149.00','30 cards @99.00', '4 cards @29.00']; #['50 cards @149.00',
7 $init_price = '$29.00';
12 8
13 NAME => 'big_acrylic_clear', 9 $descrip = 'Laser-Etched Clear Scratch Resistant';
14 10
15 FIELDS => ["Name", "Email"],
16 DEFAULTS => ['PERL::NAME','PERL::EMAIL'],
17 11
18 COSTS_NAMES => ['30 cards &mdash; $99', '4 cards &mdash; $29'],
19 COSTS_CODE => ['30 cards @99.00', '4 cards @29.00'],
20 INITIAL_PRICE => '$99.00',
21
22 ADD_PENNY => 0,
23 );
24 }
25 12
26 13
27 {#basic_acrylic_clear 14 {#basic_acrylic_clear
28 &paylist 15 &paylist
29 ( 16 (
34 NAME => 'basic_acrylic_clear', 21 NAME => 'basic_acrylic_clear',
35 22
36 FIELDS => ["Name", "Company","Occupation","Email"], 23 FIELDS => ["Name", "Company","Occupation","Email"],
37 DEFAULTS => ['PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::EMAIL'], 24 DEFAULTS => ['PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::EMAIL'],
38 25
39 COSTS_NAMES => ['30 cards &mdash; $99', '4 cards &mdash; $29'], 26 COSTS_NAMES => @standard_prices,
40 COSTS_CODE => ['30 cards @99.00', '4 cards @29.00'], 27 COSTS_CODE => @standard_codes,
41 INITIAL_PRICE => '$99.00', 28 INITIAL_PRICE => $init_price,
42 29
43 30
44 ADD_PENNY => 1, 31 ADD_PENNY => 1,
45 ); 32 );
46 } 33 }
47 34
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',
48 41
42
43
44 NAME => 'big_acrylic_clear',
45
46 FIELDS => ["Name", "Email"],
47 DEFAULTS => ['PERL::NAME','PERL::EMAIL'],
48
49 COSTS_NAMES => @standard_prices,
50 COSTS_CODE => @standard_codes,
51 INITIAL_PRICE => $init_price,
52
53 ADD_PENNY => 0,
54 );
55 }
49 56
50 {#classic_acrylic_clear 57 {#classic_acrylic_clear
51 &paylist 58 &paylist
52 ( 59 (
53 TITLE => 'Clarity Series:<br> The Classic Kard.', 60 TITLE => 'Clarity Series:<br> The Classic Kard.',
57 NAME => 'classic_acrylic_clear', 64 NAME => 'classic_acrylic_clear',
58 65
59 FIELDS => ["Email", "Phone","Name","Company","Occupation","Website"], 66 FIELDS => ["Email", "Phone","Name","Company","Occupation","Website"],
60 DEFAULTS => ['PERL::EMAIL','PERL::PHONE','PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::WEBSITE'], 67 DEFAULTS => ['PERL::EMAIL','PERL::PHONE','PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::WEBSITE'],
61 68
62 COSTS_NAMES => ['30 cards &mdash; $99', '4 cards &mdash; $29'], 69 COSTS_NAMES => @standard_prices,
63 COSTS_CODE => ['30 cards @99.00', '4 cards @29.00'], 70 COSTS_CODE => @standard_codes,
64 INITIAL_PRICE => '$99.00', 71 INITIAL_PRICE => $init_price,
65 72
66 73
67 ADD_PENNY => 0, 74 ADD_PENNY => 0,
68 ); 75 );
69 } 76 }
81 NAME => 'lines_acrylic_clear', 88 NAME => 'lines_acrylic_clear',
82 89
83 FIELDS => ["Name", "Occupation","Company","Phone","Email","Website"], 90 FIELDS => ["Name", "Occupation","Company","Phone","Email","Website"],
84 DEFAULTS => ['PERL::NAME','PERL::OCCUPATION','PERL::COMPANY','PERL::PHONE','PERL::EMAIL','PERL::WEBSITE'], 91 DEFAULTS => ['PERL::NAME','PERL::OCCUPATION','PERL::COMPANY','PERL::PHONE','PERL::EMAIL','PERL::WEBSITE'],
85 92
86 COSTS_NAMES => ['30 cards &mdash; $99', '4 cards &mdash; $29'], 93 COSTS_NAMES => @standard_prices,
87 COSTS_CODE => ['30 cards @99.00', '4 cards @29.00'], 94 COSTS_CODE => @standard_codes,
88 INITIAL_PRICE => '$99.00', 95 INITIAL_PRICE => $init_price,
89 96
90 97
91 ADD_PENNY => 0, 98 ADD_PENNY => 0,
92 ); 99 );
93 } 100 }