#Member.pm
# (c) 2006 SapphireGroup
# All rights reserved
######################################################################
#                        =====================                       #
#                           Member Functions                         #
#                        =====================                       #
######################################################################

package modules::Member;

use CGI qw(:standard);
my $mycgi=new CGI;

use lib "..";
#use libs::Config;
use libs::DBFunctions;
use libs::Core;
$libs::DBfunctions::db = libs::DBfunctions::connectDB(); my $db = $libs::DBfunctions::db;
my $l=$mycgi->param("l"); if ($l eq ""){$l = "eng";}
my $page=$mycgi->param("page"); $page = 1 unless $page;

use Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(&member_Details);
$VERSION=1.01;

###############################################################################
sub member_Details
{
	unless ($mid){
    		return;
	}
	my ($query,$table,$rows);
    my ($mName,$mCompanyName,$mAddressLine1,$mAddressLine2,$mAddressLine3,$mAddressLine4,$tName,$mPostCode,$mPhone,$mMobile,$mFax,$mEmail,$mURL,$mFacebookURL,$mTwitterURL,$mLinkedinURL,$mPhoto,$mLogo,$mDescription);

    $query="SELECT mName,mCompanyName,mAddressLine1,mAddressLine2,mAddressLine3,mAddressLine4,tName,mPostCode,mPhone,mMobile,mFax,mEmail,mURL,mFacebookURL,mTwitterURL,mLinkedinURL,mPhoto,mLogo,mDescription,mStatus FROM ${Settings::table_prefix}member INNER JOIN ${Settings::table_prefix}dict_town on (${Settings::table_prefix}member.tid=${Settings::table_prefix}dict_town.tid) WHERE mid=$mid AND mStatus != 'UnApproved'";
    #print "$query<br>";
	$table=$db->prepare($query);
	$table->execute;
	$table->bind_columns(undef,\($mName,$mCompanyName,$mAddressLine1,$mAddressLine2,$mAddressLine3,$mAddressLine4,$tName,$mPostCode,$mPhone,$mMobile,$mFax,$mEmail,$mURL,$mFacebookURL,$mTwitterURL,$mLinkedinURL,$mPhoto,$mLogo,$mDescription));
	$rows = $table->rows;
    unless ($table->fetch){
        print qq|
        	<table style="background:#FFFFFF;height:425px;">
            	<tr>
                	<td valign="top">
        |;


    	libs::Template::ShowMessage("Sorry, profile not found");


        print qq|
        			</td>
                </tr>
            	<tr>
                	<td><a href="JavaScript:history.back();"><< Back</a></td>
                </tr>
            </table>

        |;
        return;
    }

	$mDescription =~ s/\n/<br>/g;
    $mEmail=libs::Core::email_transform($mEmail); #qq|<a href="mailto:$mEmail"></a>| if $mEmail ne "";
    $mURL=libs::Core::url_transform($mURL);
    #$mFacebookURL=libs::Core::url_transform($mFacebookURL); # might be https..
	 #$mTwitterURL=libs::Core::url_transform($mTwitterURL);
	 #$mLinkedinURL=libs::Core::url_transform($mLinkedinURL);


# Amended by SK 28/09/2010
# This is a right mess - updated the table layout

    print qq|
<script type="text/javascript" src="http://ondemand.isharemaps.com/v2_1/js/geocoder.js"></script>
<script type="text/javascript" src="/js/isharemaps.js"></script>

<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=$Settings::GMapsKey"
        type="text/javascript"></script>

	<h1 class="headerBlue">$mCompanyName</h1>
	<table class="row">
          <tr><td><br>
               <table id="details">
               <tr><td width="250">
        |;
        ($mPhoto ne "")?
        		print qq|<img src="/photo/$mPhoto" alt="" border="0">|:
        		print qq|<img src="/images/PIK_Image_Watermark.gif" alt="" width="170" height="170" border="0">|;
        $mAddressLine1 = ($mAddressLine1 ne "") ? "$mAddressLine1<br>": "";
        $mAddressLine2 = ($mAddressLine2 ne "") ? "$mAddressLine2<br>": "";
        $mAddressLine3 = ($mAddressLine3 ne "") ? "$mAddressLine3<br>": "";
        $mAddressLine4 = ($mAddressLine4 ne "") ? "$mAddressLine4<br>": "";

        $tName = ($tName ne "") ? "$tName<br>": "";
        #$mPostCode = ($mPostCode ne "") ? qq|<a href="http://www.multimap.com/map/browse.cgi?client=public&db=pc&pc=$mPostCode&&scale=25000" target="_blank">$mPostCode<br></a>|: "";
        $mPostCode = ($mPostCode ne "") ?  qq{<a href="javascript:test_searchFormattedAddresses('$mPostCode')">$mPostCode</a>} : "";

        $mEmail = ($mEmail ne "") ? "<b>E-mail:</b> $mEmail<br>": "";
        $mURL = ($mURL ne "") ? "<b>Web:</b> $mURL<br>": "";
        $mPhone = ($mPhone ne "") ? "<b>Tel:</b> $mPhone<br>": "";
        $mMobile = ($mMobile ne "") ? "<b>Mobile:</b> $mMobile<br>": "";
        $mFax = ($mFax ne "") ? "<b>Fax:</b> $mFax<br>": "";
		  $mFacebookURL = ($mFacebookURL ne "")? qq[<a href="$mFacebookURL" target="_blank"><img src="/images/facebook_32.png" alt="Facebook icon" title="Go to the $mCompanyName Facebook page" width="32" height="32" /></a>] : "";
		  $mTwitterURL = ($mTwitterURL ne "")? qq[<a href="$mTwitterURL" target="_blank"><img src="/images/twitter_32.png" alt="Twitter icon" title="Go to the $mCompanyName Twitter page" width="32" height="32" /></a>] : "";
		  $mLinkedinURL = ($mLinkedinURL ne "")? qq[<a href="$mLinkedinURL" target="_blank"><img src="/images/linkedin_32.png" alt="LinkedIn icon" title="Go to the $mCompanyName LinkedIn page" width="32" height="32" /></a>] : "";
		  $social_gap = ($mFacebookURL ne "" || $mTwitterURL ne "" || $mLinkedinURL ne "")? "<br />\n" : "";
        print qq|
               </td>
               <td>|;
			print qq|<img src="/photo/thumbnails/$mLogo" alt="" border="0" class="right">|
				if ($mLogo ne "");
			print qq|
               <h1>$mCompanyName</h1>
                  $mAddressLine1
                  $mAddressLine2
                  $mAddressLine3
                  $mAddressLine4
                  $tName
                  $mPostCode
                  <br>
                  <b>Contact:</b> $mName<br>
                  $mEmail
                  $mURL
                  $mPhone
                  $mMobile
                  $mFax
                  $social_gap
                  $mFacebookURL
		  				$mTwitterURL
		  				$mLinkedinURL
                </td>
            </tr>
			</table>

          </td></tr>
	    <tr><td>
		<a name="map"></a>
		<div id="searchResultArea" style="visibility:hidden">google map</div>
	    	$mDescription
	    </td><tr>
		<tr><td>
			<a href="JavaScript:history.back();"><< Back</a>
		</td></tr>
	</table>
    |;
}
###############################################################################


return 1;