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 HERE
17 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 HERE
37 open MENU, "<../menu.html";
38 while (<MENU>){print;}
39 close MENU;
40 print <<HERE;
42 </body>
43 </html>
45 HERE