#!/usr/bin/perl
require "sm.pl";
require "sm_html.pl";
require "sm-lib.pl";

require "cookie-lib.pl";
require "Date.pl";


&formdata;
$uid=$FORM{'uid'};
$mbr_id=$FORM{'i'};


&chkuid;
if ($cookieset eq "N"){
 &sh_header;
}
&sh_title ("$title");
&sh_body ($bg);
&tabs();
&menubar;
&leftbar;
&companyinfo;
&rightbar;
&sh_mainpg4;
&sh_footer;

#************************************************************************
sub companyinfo{
print <<HTML;
<font face="$font2" size="$fsize">
HTML


$q = "Select f_comp_id, f_comp_heading, f_comp_text from t_comp ORDER BY f_comp_seq";
&dbmain ($d1, $d2, $q);
&dbmain ($d1, $d2, $q);
$numrows=$data->numrows;
$j=0;
while ($j<$numrows){
 @record=$data->fetchrow;
 $comp_id=@record[0];
 $comp_heading=@record[1];
 $comp_text=@record[2];
 $comp_text=~ s/\n/<br>/g;
 &showcomp;
 $j++;
} 
print <<HTML;
</font>
HTML
}


sub showcomp{
$picimage="$imgdir$comp_id.jpg";
if (-e "$ENV{DOCUMENT_ROOT}$picimage"){
print<<HTML;
<p>
<img src="$picimage">
<br>
HTML
}


print <<HTML;
<strong>$comp_heading</strong><br>
$comp_text
<p>&nbsp;</p>
HTML
}