package GKTOOLS::Webstore;

use Exporter;
@ISA = "Exporter";

@EXPORT = qw(loadCompanyInfo $COMPANY_NAME $OWNER $EMAIL1 $EMAIL2 $ADDRESS $CITY $STATE $ZIP $COUNTRY $PHONE1 $PHONE2 $FAX $SITE_URL $IPN_URL $RETURN_URL $CANCEL_URL $PRODUCTS_LOCATION $DOWNLOADABLES_LOCATION $OTHER_LOCATION $LOGO_IMAGE $BUY_IMAGE $ADD_CART_IMAGE $VIEW_CART_IMAGE $REVIEW_IMAGE1 $REVIEW_IMAGE2 $CUSTOMER_NOTE $OTHER_NOTE $EXTRA $PRODUCTS_URL $DOWNLOADABLES_URL $OTHER_URL $HBAR_COLOR $VBAR_COLOR $MAIN_NAV_COLOR $DEPARTMENT__COLOR $CATEGORIES_COLOR $CATEGORIES_OVER_COLOR $REGULAR_TEXT_COLOR $REGULAR_LINK_COLOR $REGULAR_LINK_OVER_COLOR $MOST_POPULAR_BOX_COLOR $TOP_SELLER_BOX_COLOR $RECOMMENDED_BOX_COLOR $TESTIMONIAL_BOX_COLOR $WHATS_NEW_BOX_COLOR $EXTRA_COLOR $SLOGAN_IMAGE $EXTRA_IMAGE);
use vars qw($COMPANY_NAME  $OWNER $EMAIL1 $EMAIL2 $ADDRESS $CITY $STATE $ZIP $COUNTRY $PHONE1 $PHONE2 $FAX $SITE_URL $IPN_URL $RETURN_URL $CANCEL_URL $PRODUCTS_LOCATION $DOWNLOADABLES_LOCATION $OTHER_LOCATION $LOGO_IMAGE $BUY_IMAGE $ADD_CART_IMAGE $VIEW_CART_IMAGE $REVIEW_IMAGE1 $REVIEW_IMAGE2 $CUSTOMER_NOTE $OTHER_NOTE $EXTRA $PRODUCTS_URL $DOWNLOADABLES_URL $OTHER_URL $HBAR_COLOR $VBAR_COLOR $MAIN_NAV_COLOR $DEPARTMENT__COLOR $CATEGORIES_COLOR $CATEGORIES_OVER_COLOR $REGULAR_TEXT_COLOR $REGULAR_LINK_COLOR $REGULAR_LINK_OVER_COLOR $MOST_POPULAR_BOX_COLOR $TOP_SELLER_BOX_COLOR $RECOMMENDED_BOX_COLOR $TESTIMONIAL_BOX_COLOR $WHATS_NEW_BOX_COLOR $EXTRA_COLOR $SLOGAN_IMAGE $EXTRA_IMAGE);
$VERSION = "1.0";
use strict;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);

local $COMPANY_NAME = ""; # name
local $OWNER = ""; # owner
local $EMAIL1 = ""; # email1
local $EMAIL2 = ""; # email2
local $ADDRESS = ""; # address
local $CITY = ""; # city
local $STATE = ""; # state
local $ZIP = ""; # zip
local $COUNTRY = ""; # country
local $PHONE1 = ""; # phone1
local $PHONE2 = ""; # phone2
local $FAX = ""; # fax
local $SITE_URL = ""; # site_url
local $IPN_URL = ""; # ipn_url
local $RETURN_URL = ""; # return_url
local $CANCEL_URL = ""; # cancel_url
local $PRODUCTS_LOCATION = ""; # products_location
local $DOWNLOADABLES_LOCATION = ""; # downloadables_location
local $OTHER_LOCATION = ""; # other_location
local $LOGO_IMAGE = ""; # logo_image
local $BUY_IMAGE = ""; # buy_image
local $ADD_CART_IMAGE = ""; # add_cart_image
local $VIEW_CART_IMAGE = ""; # view_cart_image
local $REVIEW_IMAGE1 = ""; # review_image1
local $REVIEW_IMAGE2 = ""; # review_image2
local $CUSTOMER_NOTE = ""; # customer_note
local $OTHER_NOTE = ""; # other_note
local $EXTRA = ""; # extra
local $PRODUCTS_URL = ""; # extra1
local $DOWNLOADABLES_URL = ""; # extra2
local $OTHER_URL = ""; # extra3
local $HBAR_COLOR = ""; # extra4
local $VBAR_COLOR = ""; # extra5
local $MAIN_NAV_COLOR = ""; # extra6
local $DEPARTMENT__COLOR = ""; # extra7
local $CATEGORIES_COLOR = ""; # extra8
local $CATEGORIES_OVER_COLOR = ""; # extra9
local $REGULAR_TEXT_COLOR = ""; # extra10
local $REGULAR_LINK_COLOR = ""; # extra11
local $REGULAR_LINK_OVER_COLOR = ""; # extra12
local $MOST_POPULAR_BOX_COLOR = ""; # extra13
local $TOP_SELLER_BOX_COLOR = ""; # extra14
local $RECOMMENDED_BOX_COLOR = ""; # extra15
local $TESTIMONIAL_BOX_COLOR = ""; # extra16
local $WHATS_NEW_BOX_COLOR = ""; # extra17
local $EXTRA_COLOR = ""; # extra18
local $SLOGAN_IMAGE = ""; # slogan_image
local $EXTRA_IMAGE = ""; # extra_image


BEGIN{
	sub carp_error{
		my $msg=shift;
		my $q = new CGI;
		my $discard_this = $q->header("text/html");
		print "Error:<br> $msg";
		# &error($q, $msg);
	}
	CGI::Carp::set_message(\&carp_error);
}
sub error{
	my ($q, $msg)=@_;
	print $q->header("text/html"),
		$q->start_html("Error"),
		$q->h1("Error"),
		$q->p("Sorry, the following error has ocurred: "),
		$q->p($q->i($msg)),
		$q->end_html;
	exit;

}

1;

####################################### START:COMPANY INFO MODULE HERE ##############################################################################################################

sub loadCompanyInfo{

	#my($item) = $_[0];
	my($dbh) = $_[0];

	my $sql_statement = "SELECT name,owner,email1,email2,address,city,state,zip,country,phone1,phone2,fax,site_url,ipn_url,return_url,cancel_url,products_location,downloadables_location,other_location,logo_image,buy_image,add_cart_image,view_cart_image,review_image1,review_image2,customer_note,other_note,extra,extra1,extra2,extra3,extra4,extra5,extra6,extra7,extra8,extra9,extra10,extra11,extra12,extra13,extra14,extra15,extra16,extra17,extra18,slogan_image,extra_image FROM webstore_company LIMIT 1"; # get media file name
	my $out = $dbh->prepare($sql_statement);
	$out->execute;
	my $error = $out->errstr;
	if ($error){ return "ERROR: selecting records from db to delete files{$error}";	} # error
	my $totalRows = $out->rows;	# get the number of rows found

	# nothing found
	if($totalRows<1){return "WARNING: No records found";	} # blank

	my @row = $out->fetchrow_array;

	$COMPANY_NAME = $row[0]; # name
	$OWNER = $row[1]; # owner
	$EMAIL1 = $row[2]; # email1
	$EMAIL2 = $row[3]; # email2
	$ADDRESS = $row[4]; # address
	$CITY = $row[5]; # city
	$STATE = $row[6]; # state
	$ZIP = $row[7]; # zip
	$COUNTRY = $row[8]; # country
	$PHONE1 = $row[9]; # phone1
	$PHONE2 = $row[10]; # phone2
	$FAX = $row[11]; # fax
	$SITE_URL = $row[12]; # site_url
	$IPN_URL = $row[13]; # ipn_url
	$RETURN_URL = $row[14]; # return_url
	$CANCEL_URL = $row[15]; # cancel_url
	$PRODUCTS_LOCATION = $row[16]; # products_location
	$DOWNLOADABLES_LOCATION = $row[17]; # downloadables_location
	$OTHER_LOCATION = $row[18]; # other_location
	$LOGO_IMAGE = $row[19]; # logo_image
	$BUY_IMAGE = $row[20]; # buy_image
	$ADD_CART_IMAGE = $row[21]; # add_cart_image
	$VIEW_CART_IMAGE = $row[22]; # view_cart_image
	$REVIEW_IMAGE1 = $row[23]; # review_image1
	$REVIEW_IMAGE2 = $row[24]; # review_image2
	$CUSTOMER_NOTE = $row[25]; # customer_note
	$OTHER_NOTE = $row[26]; # other_note
	$EXTRA = $row[27]; # extra
	$PRODUCTS_URL = $row[28]; # extra1
	$DOWNLOADABLES_URL = $row[29]; # extra2
	$OTHER_URL = $row[30]; # extra3
	$HBAR_COLOR = $row[31]; # extra4
	$VBAR_COLOR = $row[32]; # extra5
	$MAIN_NAV_COLOR = $row[33]; # extra6
	$DEPARTMENT__COLOR = $row[34]; # extra7
	$CATEGORIES_COLOR = $row[35]; # extra8
	$CATEGORIES_OVER_COLOR = $row[36]; # extra9
	$REGULAR_TEXT_COLOR = $row[37]; # extra10
	$REGULAR_LINK_COLOR = $row[38]; # extra11
	$REGULAR_LINK_OVER_COLOR = $row[39]; # extra12
	$MOST_POPULAR_BOX_COLOR = $row[40]; # extra13
	$TOP_SELLER_BOX_COLOR = $row[41]; # extra14
	$RECOMMENDED_BOX_COLOR = $row[42]; # extra15
	$TESTIMONIAL_BOX_COLOR = $row[43]; # extra16
	$WHATS_NEW_BOX_COLOR = $row[44]; # extra17
	$EXTRA_COLOR = $row[45]; # extra18
	$SLOGAN_IMAGE = $row[46]; # slogan_image
	$EXTRA_IMAGE = $row[47]; # extra_image

}

####################################### END:COMPANY INFO MODULE HERE ##############################################################################################################