Mercurial > laserkard

     1 use generate_paylists;

     2 

     3 

     4 @standard_prices =    ['4 cards &mdash; $29','30 cards &mdash; $99 (Intro Offer)', '50 cards &mdash; $149'] ;  #'50 cards &mdash; $149',

     5 

     6 @standard_codes = 		['4 cards @29.00' ,'30 cards @99.00', '50 cards @149.00'];  #['50 cards @149.00',

     7 $init_price = '$149.00';

     8 

     9 $descrip	= 'Laser-Etched Clear Scratch Resistant';

    10 

    11 

    12 

    13 

    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',

    20 

    21 NAME   => 'basic_acrylic_clear', 

    22 

    23 FIELDS      => ["Name", "Company","Occupation","Email"],

    24 DEFAULTS      => ['PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::EMAIL'],

    25 

    26 COSTS_NAMES   => @standard_prices,

    27 COSTS_CODE    => @standard_codes,

    28 INITIAL_PRICE => $init_price,

    29 

    30 

    31 ADD_PENNY       => 1,

    32 );

    33 }

    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',

    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 }

    56 

    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',

    63 

    64 NAME   => 'classic_acrylic_clear', 

    65 

    66 FIELDS      => ["Email", "Phone","Name","Company","Occupation","Website"],

    67 DEFAULTS      => ['PERL::EMAIL','PERL::PHONE','PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::WEBSITE'],

    68 

    69 COSTS_NAMES   => @standard_prices,

    70 COSTS_CODE    => @standard_codes,

    71 INITIAL_PRICE => $init_price,

    72 

    73 

    74 ADD_PENNY       => 0,

    75 );

    76 }

    77 

    78 

    79 

    80 

    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',

    87 

    88 NAME   => 'lines_acrylic_clear', 

    89 

    90 FIELDS      => ["Name", "Occupation","Company","Phone","Email","Website"],

    91 DEFAULTS      => ['PERL::NAME','PERL::OCCUPATION','PERL::COMPANY','PERL::PHONE','PERL::EMAIL','PERL::WEBSITE'],

    92 

    93 COSTS_NAMES   => @standard_prices,

    94 COSTS_CODE    => @standard_codes,

    95 INITIAL_PRICE => $init_price,

    96 

    97 

    98 ADD_PENNY       => 0,

    99 );

   100 }

   101 

   102 

   103 

   104 

   105 

   106 

   107 

   108 

   109 

   110 

   111 

   112 ##################################################################################################################################

   113 

   114 

   115 

   116 

   117 

   118 

   119 

   120 

   121 

   122 

   123 

   124 

   125 {#classic_acrylic_green

   126 &paylist

   127 (

   128 TITLE  => "Vitality LaserKard  Classic Style",

   129 NAME   => 'classic_acrylic_green', 

   130 

   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'],

   133 

   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',

   137 

   138 ADD_PENNY       => 0,

   139 );

   140 }

   141 

   142 

   143 {#big_acrylic_green

   144 &paylist

   145 (

   146 TITLE  => "Vitality LaserKard BIG Style",

   147 NAME   => 'big_acrylic_green', 

   148 

   149 FIELDS      => ["Line 1", "Line 2"],

   150 DEFAULTS      => ['James Bond','PERL::EMAIL'],

   151 

   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',

   155 

   156 ADD_PENNY       => 1,

   157 );

   158 }

   159 

   160 {#basic_acrylic_green

   161 &paylist

   162 (

   163 TITLE  => "Vitality LaserKard Basic Style",

   164 NAME   => 'basic_acrylic_green', 

   165 

   166 FIELDS      => ["Line 1", "Line 2","Line 3","Line 4"],

   167 DEFAULTS      => ['James Bond','MI6','Secret Agent','jbond@mi6.co.uk'],

   168 

   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',

   172 

   173 ADD_PENNY       => 0,

   174 );

   175 }

   176 

   177 {#lines_acrylic_green

   178 &paylist

   179 (

   180 TITLE  => "Vitality LaserKard  Lines Style",

   181 NAME   => 'lines_acrylic_green', 

   182 

   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'],

   185 

   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',

   189 

   190 ADD_PENNY       => 0,

   191 );

   192 }

   193
author	Robert McIntyre <rlm@mit.edu>
date	Thu, 22 Jul 2010 09:56:12 -0400
parents	9d156039944e
children