Mercurial > judyates
view perl/pricing.pl @ 3:3f6b44aa6b35 judyates
[svn r4] added ability to buy stuff, from a Prints page, but it doesn't work well with the css, and it also has not been fitted into the perl make system.
author | rlm |
---|---|
date | Mon, 22 Feb 2010 08:02:39 -0500 |
parents | 60668cf4f443 |
children | 903b91a97990 |
line wrap: on
line source
1 open FILE, ">../pricing.html";2 select FILE;3 print <<HERE;6 <html>7 <title>Pricing Information for Judy Yates</title>8 <head>9 <link rel="stylesheet" type="text/css"10 href="firetest.css"> </link>11 </head>12 <body>13 <span>14 <img src = "./album_pics/3_logo.jpg"></img>15 </span>16 HERE17 open MENU, "<../menu.html";18 while (<MENU>){print;}19 close MENU;20 print <<HERE;23 <div class = "orangebox">25 <p class = "orangebox">27 Large Paintings are 6 x 8 inches to 8 x 10 inches. Small Paintings are 3 x 4 inches to 5 x 7 inches. These sizes are for the stone used; the animal will be slightly smaller. All prices include shipping and handling for all locations within the continental United States. For International Orders, appropriate shipping costs will be accessed. The artist reserves the right to final decision on background color. Broken pieces are used, so sizes are approximate.<br><br>29 <i>Small Painting .................... <span class = "money"> \$360</span></i><br>30 <i>Large Painting .................... <span class = "money"> \$600</span></i><br>31 <i>Special Requests ............... <span class = "money">Contact the Artist to Discuss Pricing</span>32 </p>34 </div>36 HERE37 open MENU, "<../menu.html";38 while (<MENU>){print;}39 close MENU;40 print <<HERE;42 </body>43 </html>45 HERE