Mercurial > laserkard
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 — $29','30 cards — $99 (Intro Offer)', '50 cards — $149'] ; #'50 cards — $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_clear15 &paylist16 (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_clear36 &paylist37 (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_clear58 &paylist59 (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_clear82 &paylist83 (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_green126 &paylist127 (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 — $135', '4 cards — $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_green144 &paylist145 (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 — $135', '4 cards — $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_green161 &paylist162 (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 — $135', '4 cards — $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_green178 &paylist179 (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 — $135', '4 cards — $30'],187 COSTS_CODE => ['40 cards @135.00', '4 cards @30.00'],188 INITIAL_PRICE => '$135.00',190 ADD_PENNY => 0,191 );192 }