# Gallery Index

package gallery_index;
require Exporter;

our @ISA = qw( Exporter );
our @EXPORT = qw( get_index );

# PRINTS THE INDEX PAGE
sub get_index{

    my $self = shift;

    my $title = "Index ";
    my $body =<<EOFBODY;

<tr>

<!-- MAIN WINDOW -->      
  <td colspan="2" align="center" valign="top" class="bottomLeft">

    <table width="700" border="0">
          <tr>
            <td><hr /></td>
          </tr>
        </table>

    <table width="700" border="0">
          <tr>
            <td>
        <table width="700" border="0">

           <tr align="center"> 
                 <td> <h1>ShowCase<br>
                    </h1></td>
                  <td> <h1>Custom Islands<br>
                    </h1></td>
                  <td> <h1>Island Pakages</h1></td>
           </tr>
           <tr align="center" valign="middle"> 
                  <td><img src="raised216X1621001.jpg" width="216" height="162"></td>
                  <td><a href="custom/gallery01.pl">
		  <img src="raised216X1621051.jpg" width="216" height="162" border="0"></a></td>
                  <td><a href="/products/islandPaks/index.htm">
		  <img src="/gallery/raised216x162entrance.jpg" width="216" height="162" border="0"></a></td>
          </tr>

          <tr align="left" valign="top"> 
                  <td align="center"> 
                    <p><font size="5">Take a tour of our favorite jobs</font></td>
                  <td align="center">
	    <p><font size="5">South-Eastern U.S. Residents Only</font> 
                  </td>
                  <td align="center"> 
                    <p><font size="5">Available anywhere in the U.S.</font></td>
          </tr>

          <tr align="left" valign="top"> 
                  <td> <hr/>

                    <table width="200" border="0" align="center">
                      <tr>
                        <td align="center"> <p><font size="4">Get ideas..<br>
                            </font><font size="4">Learn the lingo'...</font><font size="4"><br>
                            </font><font size="4">See what we're all about <br>
                            :-)</font></p>
                          </td>
                      </tr>
                   </table>

                  </td>
                  <td> <hr/>

                    <table width="200" border="0" align="center">
                      <tr> 
                        <td align="center" valign="middle"><font size="4">See 
                          why so many have come to Grills By Design for their 
                          custom outdoor cooking needs.</font> </td>
                      </tr>
                    </table></td>

                  <td> <hr/>

                    <table width="200" border="0" align="center">
                      <tr> 
                        <td align="center" valign="middle"><font size="4">Same 
                          quality craftmanship<br>
                          found in our <br>
                          Custom Islands <br>
                          The <em>convenience</em> of a portable unit</font> </td>
                      </tr>
                    </table></td>

                </tr>
              </table>
              <br>
            </td>
          </tr>
        </table>
        <p>&nbsp;</p>
        </td>
    </tr>

EOFBODY
 
    $self->setTitle( $title );
    $self->setHead( $head );
    $self->setScript( $script );
    $self->setBody( $body );
}
