view perl/pricing.pl @ 0:60668cf4f443 judyates

[svn r1] initial import
author rlm
date Sun, 03 Jan 2010 04:38:50 -0500
parents
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