# Company Index

package company_index;
require Exporter;

our @ISA = qw( Exporter );
our @EXPORT = qw( get_index );

# PRINTS THE INDEX PAGE
sub get_index{

    print "i am here";

    my $self = shift;

    my $title = "Index ";
    my $body =<<EOFBODY;

<tr>

<!-- MAIN WINDOW -->      
    <td class="bottomRight" valign="top"> 
      	<p align="center">&nbsp;</p>
        		
        <h1 align="center"><font size="+4">Grills By Design</font></h1>
        <h1 align="center"><font size="+3">Company Info Sheet</font></h1>
    
	<table width="500" border="0">
          <tr>
            <td><p align="center"><font size="+3"></font></p>
              <p align="center"><font size="+2"> At Grills By Design, we specialize 
                in building Custom Outdoor Kitchens to meet your family's needs. 
                Our creative, one of a kind designs along with our custom tumble 
                stone trim on each of our island packages sets us apart from ordinary 
                outdoor kitchen builders. </font></p>
              <p align="center"><font size="+2">Our goal at GBD is to create a 
                unique outdoor kitchen designed with the features and options 
                <em>you</em> want and to express the style and taste of <em>your</em> 
                life. </font></p>
              <p align="center"><font size="+2">Call Grills By Design today to 
                schedule an appointment to meet with our designer for a free in-home 
                estimate!</font></p>
              <p align="center">-----------------------------------------------------------------------------</p>
              <p align="center">&nbsp;</p>
              <p align="center"><font size="+2">Franchising info available upon 
                request</font></p>
        </td>
       </tr>
      </table>
     <p align="center">&nbsp; </p>
   </td>
</tr>

EOFBODY
print "----everywhere------";
 
    $self->setTitle( $title );
    $self->setHead( $head );
    $self->setScript( $script );
    $self->setBody( $body );
}
