Mercurial > laserkard

annotate paypal/make.pl @ 86:e48424b01e5f laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more functional goodness
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Jul 2010 01:24:29 -0400
parents 9d156039944e
children
rev   line source
rlm@4 1 use generate_paylists;
rlm@4 2
rlm@22 3
rlm@58 4 @standard_prices = ['4 cards &mdash; $29','30 cards &mdash; $99 (Intro Offer)', '50 cards &mdash; $149'] ; #'50 cards &mdash; $149',
rlm@40 5
rlm@58 6 @standard_codes = ['4 cards @29.00' ,'30 cards @99.00', '50 cards @149.00']; #['50 cards @149.00',
rlm@58 7 $init_price = '$149.00';
rlm@24 8
rlm@57 9 $descrip = 'Laser-Etched Clear Scratch Resistant';
rlm@22 10
rlm@22 11
rlm@22 12
rlm@22 13
rlm@22 14 {#basic_acrylic_clear
rlm@22 15 &paylist
rlm@22 16 (
rlm@25 17 TITLE => 'Clarity Series:<br> The Arrow Kard.',
rlm@25 18 PRODUCT_NAME => 'Clarity Series: The Arrow Kard',
rlm@40 19 SHORT_FORM => 'arrow',
rlm@24 20
rlm@22 21 NAME => 'basic_acrylic_clear',
rlm@22 22
rlm@40 23 FIELDS => ["Name", "Company","Occupation","Email"],
rlm@42 24 DEFAULTS => ['PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::EMAIL'],
rlm@22 25
rlm@57 26 COSTS_NAMES => @standard_prices,
rlm@57 27 COSTS_CODE => @standard_codes,
rlm@57 28 INITIAL_PRICE => $init_price,
rlm@51 29
rlm@22 30
rlm@44 31 ADD_PENNY => 1,
rlm@22 32 );
rlm@22 33 }
rlm@22 34
rlm@57 35 {#big_acrylic_clear
rlm@57 36 &paylist
rlm@57 37 (
rlm@57 38 TITLE => 'Clarity Series:<br> The Bold Kard.',
rlm@57 39 PRODUCT_NAME => 'Clarity Series: The Bold Kard',
rlm@57 40 SHORT_FORM => 'bold',
rlm@22 41
rlm@22 42
rlm@57 43
rlm@57 44 NAME => 'big_acrylic_clear',
rlm@57 45
rlm@57 46 FIELDS => ["Name", "Email"],
rlm@57 47 DEFAULTS => ['PERL::NAME','PERL::EMAIL'],
rlm@57 48
rlm@57 49 COSTS_NAMES => @standard_prices,
rlm@57 50 COSTS_CODE => @standard_codes,
rlm@57 51 INITIAL_PRICE => $init_price,
rlm@57 52
rlm@57 53 ADD_PENNY => 0,
rlm@57 54 );
rlm@57 55 }
rlm@57 56
rlm@4 57 {#classic_acrylic_clear
rlm@4 58 &paylist
rlm@4 59 (
rlm@25 60 TITLE => 'Clarity Series:<br> The Classic Kard.',
rlm@25 61 PRODUCT_NAME => 'Clarity Series: The Classic Kard',
rlm@40 62 SHORT_FORM => 'classic',
rlm@24 63
rlm@4 64 NAME => 'classic_acrylic_clear',
rlm@4 65
rlm@40 66 FIELDS => ["Email", "Phone","Name","Company","Occupation","Website"],
rlm@42 67 DEFAULTS => ['PERL::EMAIL','PERL::PHONE','PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::WEBSITE'],
rlm@4 68
rlm@57 69 COSTS_NAMES => @standard_prices,
rlm@57 70 COSTS_CODE => @standard_codes,
rlm@57 71 INITIAL_PRICE => $init_price,
rlm@51 72
rlm@4 73
rlm@44 74 ADD_PENNY => 0,
rlm@4 75 );
rlm@4 76 }
rlm@4 77
rlm@4 78
rlm@4 79
rlm@4 80
rlm@4 81 {#lines_acrylic_clear
rlm@4 82 &paylist
rlm@4 83 (
rlm@25 84 TITLE => 'Clarity Series:<br> The Direct Kard.',
rlm@25 85 PRODUCT_NAME => 'Clarity Series: The Direct Kard',
rlm@40 86 SHORT_FORM => 'direct',
rlm@24 87
rlm@4 88 NAME => 'lines_acrylic_clear',
rlm@4 89
rlm@40 90 FIELDS => ["Name", "Occupation","Company","Phone","Email","Website"],
rlm@42 91 DEFAULTS => ['PERL::NAME','PERL::OCCUPATION','PERL::COMPANY','PERL::PHONE','PERL::EMAIL','PERL::WEBSITE'],
rlm@4 92
rlm@57 93 COSTS_NAMES => @standard_prices,
rlm@57 94 COSTS_CODE => @standard_codes,
rlm@57 95 INITIAL_PRICE => $init_price,
rlm@51 96
rlm@4 97
rlm@4 98 ADD_PENNY => 0,
rlm@4 99 );
rlm@4 100 }
rlm@5 101
rlm@5 102
rlm@5 103
rlm@5 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@42 115
rlm@42 116
rlm@42 117
rlm@42 118
rlm@42 119
rlm@42 120
rlm@42 121
rlm@42 122
rlm@42 123
rlm@42 124
rlm@5 125 {#classic_acrylic_green
rlm@5 126 &paylist
rlm@5 127 (
rlm@16 128 TITLE => "Vitality LaserKard Classic Style",
rlm@5 129 NAME => 'classic_acrylic_green',
rlm@5 130
rlm@5 131 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Side"],
rlm@42 132 DEFAULTS => ['PERL::EMAIL','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
rlm@5 133
rlm@22 134 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 135 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 136 INITIAL_PRICE => '$135.00',
rlm@5 137
rlm@5 138 ADD_PENNY => 0,
rlm@5 139 );
rlm@5 140 }
rlm@5 141
rlm@5 142
rlm@5 143 {#big_acrylic_green
rlm@5 144 &paylist
rlm@5 145 (
rlm@16 146 TITLE => "Vitality LaserKard BIG Style",
rlm@5 147 NAME => 'big_acrylic_green',
rlm@5 148
rlm@5 149 FIELDS => ["Line 1", "Line 2"],
rlm@42 150 DEFAULTS => ['James Bond','PERL::EMAIL'],
rlm@5 151
rlm@22 152 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 153 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 154 INITIAL_PRICE => '$135.00',
rlm@5 155
rlm@5 156 ADD_PENNY => 1,
rlm@5 157 );
rlm@5 158 }
rlm@5 159
rlm@5 160 {#basic_acrylic_green
rlm@5 161 &paylist
rlm@5 162 (
rlm@16 163 TITLE => "Vitality LaserKard Basic Style",
rlm@5 164 NAME => 'basic_acrylic_green',
rlm@5 165
rlm@5 166 FIELDS => ["Line 1", "Line 2","Line 3","Line 4"],
rlm@5 167 DEFAULTS => ['James Bond','MI6','Secret Agent','jbond@mi6.co.uk'],
rlm@5 168
rlm@22 169 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 170 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 171 INITIAL_PRICE => '$135.00',
rlm@5 172
rlm@5 173 ADD_PENNY => 0,
rlm@5 174 );
rlm@5 175 }
rlm@5 176
rlm@5 177 {#lines_acrylic_green
rlm@5 178 &paylist
rlm@5 179 (
rlm@16 180 TITLE => "Vitality LaserKard Lines Style",
rlm@5 181 NAME => 'lines_acrylic_green',
rlm@5 182
rlm@5 183 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Line 6"],
rlm@5 184 DEFAULTS => ['James Bond','Secret Agent','MI6','123.456.7890','jbond@domain.com','http://www.domain.com'],
rlm@5 185
rlm@22 186 COSTS_NAMES => ['40 cards &mdash; $135', '4 cards &mdash; $30'],
rlm@22 187 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],
rlm@5 188 INITIAL_PRICE => '$135.00',
rlm@5 189
rlm@5 190 ADD_PENNY => 0,
rlm@5 191 );
rlm@5 192 }
rlm@5 193