#!/usr/bin/perl

require 'session.cgi';

my %form = map { $_ => join "\0",$cgi->param($_) } $cgi->param();

$form{'start'} = $form{'start'} || 0;

  if($form{'books'}){
     $sth = &GetBooks;
     &ShowShort($sth);
  }
  elsif($form{'promo'}){
     ($sth,$rows) = &GetPromos;
     &ShowShort2($sth,$rows);
  }
  else{
  }


$dbh->disconnect;


## ---------- sub routines --------------

sub GetPromos{

my($id) = shift;

my($statement, $sth, $rv,$total_rows);
my $site = "can";

$statement = "SELECT product_piece.id,product_piece.name,product_piece.thumb,our_$site AS our,retail_$site AS retail,sale_$site AS sale,available.name AS available FROM product_piece,product_set,man_link,piece_link,available,piece_prices WHERE product_piece.available='4' AND product_piece.available=available.id AND product_piece.id=piece_prices.pieceid AND product_piece.id=piece_link.pieceid AND piece_link.siteid='1' AND product_piece.setid=product_set.id AND product_set.manid=man_link.manid AND man_link.siteid='2' ORDER BY name";
$sth = $dbh->prepare($statement) || die "Can't prepare $statement: $dbh->errstr\n";
$rv = $sth->execute || die "Can't execute the query: $sth->errstr\n";

$total_rows = $sth->rows;

$statement = "SELECT product_piece.id,product_piece.name,product_piece.thumb,our_$site AS our,retail_$site AS retail,sale_$site AS sale,available.name AS available FROM product_piece,product_set,man_link,piece_link,available,piece_prices WHERE product_piece.available='4' AND product_piece.available=available.id AND product_piece.id=piece_prices.pieceid AND product_piece.id=piece_link.pieceid AND piece_link.siteid='1' AND product_piece.setid=product_set.id AND product_set.manid=man_link.manid AND man_link.siteid='2' ORDER BY name LIMIT $form{'start'},10";

$sth = $dbh->prepare($statement) || die "Can't prepare $statement: $dbh->errstr\n";
$rv = $sth->execute || die "Can't execute the query: $sth->errstr\n";

return ($sth,$total_rows); 

}

# -----------------------------

sub GetBooks{

my($statement,$sth,$rv);

$statement = "SELECT * FROM books ORDER BY title";
$sth = $dbh->prepare($statement) || die "Can't prepare $statement: $dbh->errstr\n";
$rv = $sth->execute || die "Can't execute the query: $sth->errstr\n";

return $sth; 

}

# -----------------------------

sub GetBrandSetNames{

my $id = shift;

my($statement, $sth, $rv);

$statement = "SELECT top_manufacture.name,product_set.setname FROM top_manufacture,product_set,dept_relations,dept_link,product_piece WHERE product_piece.id='$id' AND product_piece.setID=product_set.id AND product_set.id=dept_relations.setid AND dept_relations.deptid=dept_link.deptid AND dept_link.top_manid=top_manufacture.id";
$sth = $dbh->prepare($statement) || die "Can't prepare statement: $!\n";
$rv = $sth->execute || die "Can't execute statement: $!\n"; 

@names = $sth->fetchrow_array;

return @names;

}

# -----------------------------

sub ShowShort2{

my($sth,$rows) = @_;
my($manufacture, $man_name);
my($header) = "header_can.inc";
my($footer) = "footer_new.inc";
my($count) = 0;
my $form_string = "action.cgi?SID=$SID\&promo=1";
$form{'start'} = 0 if($form{'start'}==1);
my $next_start = $form{'start'} + 10;
my $prev_start = $form{'start'} - 10 || 1;
my $start = $form{'start'}+1;
$next_start = $rows if($next_start>$rows);

&IncludeFile($header,\%form);

print "<table align=\"center\" border=\"0\" width=\"600\" cellpadding=\"0\" cellspacing=\"0\">\n"; 

 while($info = $sth->fetchrow_hashref){
  ($manname,$setname) = &GetBrandSetNames($info->{'id'});
  if(!$count){
     print "<tr><td colspan=\"3\"><center><font face=\"arial, helvetica, sans-serif\" size=\"+1\"><b>Luggageworld Promotions<br>$rows Items</b></font></center></td></tr>\n";
     print "<tr><td colspan=\"3\" align=\"center\"><font face=\"arial, helvetica, sans-serif\" size=\"1\">Displayed items $start - $next_start</font></td></tr>\n";
     print "<tr><td colspan=\"3\" height=\"2\">\&nbsp\;</td></tr>\n";
  }

  if($count%2==0){
     print "<tr><td valign=\"top\" width=\"272\">\n";
     print "\t<table border=\"0\" width=\"272\" cellpadding=\"0\" cellspacing=\"0\">\n"; 
  }


  if($count%2>0){
     print "</table>\n";
     print "</td><td width=\"10\">\&nbsp\;</td><td valign=\"top\" width=\"272\">\n";
     print "\t<table border=\"0\" width=\"272\" cellpadding=\"0\" cellspacing=\"0\">\n"; 
  }

  if($info->{'thumb'}){
     print "\t<tr><td rowspan=\"3\" width=\"75\" height=\"55\" align=\"center\"><a href=\"new_detail.cgi?SID=$SID\&pieceID=$info->{'id'}\"><img src=\"images/$info->{'thumb'}\" alt=\"$info->{'name'}\" border=\"0\"></a>";
  }
  else{
     print "\t<tr><td rowspan=\"3\" width=\"75\" height=\"55\" align=\"center\"><a href=\"new_detail.cgi?SID=$SID\&pieceID=$info->{'id'}\"><img src=\"images/no_image.gif\" width=\"75\" height=\"55\" alt=\"$info->{'name'}\" border=\"0\"></a>";
  }
  print "<br><center><font face=\"arial, helvetica, sans-serif\" size=\"1\">Click for Details</font></center></td>\n";

   $info->{'name'} =~ s/(\n+)//g;

   print "\t<td align=\"center\" height=\"1\" bgcolor=\"\#660000\"><img src=\"images/pixel_clear.gif\" height=\"1\"></td></tr>\n";
  print "\t<tr><td width=\"200\" bgcolor=\"\#cccc99\" valign=\"top\"><font face=\"arial, helvetica, sans-serif\" size=\"2\"><b>$manname<br>$info->{'name'}</b></td></tr>\n";
  print "\t<tr><td valign=\"top\"><font face=\"arial, helvetica, sans-serif\" size=\"2\">\n";
  print "\tRegular Price\: \$$info->{'retail'}<br>\n" if($info->{'retail'} > 0);
   if(($info->{'retail'} > $info->{'sale'})&&($info->{'sale'} > 0)){
       $display_price = $info->{'sale'};
       print "\t<font color=\"red\"><b>Sale\: \$$display_price</b></font><br>\n";
      }
      else{
       print "\t<font color=\"red\"><b>Our Price\: \$$info->{'our'}</b></font>\n";
      }
  print "\t</td></tr>\n";
  if($count%2){
     print "</td></tr>\n";
     print "</table>\n";
     print "<tr><td align=\"center\" colspan=\"3\" height=\"15\"><img src=\"images/pixel_clear.gif\" height=\"15\"></td></tr>\n";
  }
     $count++;
}
  if($count%2){
     print "</td></tr>\n";
     print "</table>\n";
     print "<tr><td align=\"center\" colspan=\"3\" height=\"15\"><img src=\"images/pixel_clear.gif\" height=\"15\"></td></tr>\n";
  }
print "<tr><td colspan=\"3\" height=\"2\">\&nbsp\;</td></tr>\n";
print "<tr><td colspan=\"3\"><center><font face=\"arial, helvetica, sans-serif\" size=\"2\">";
print "<a href=\"$form_string\&start=$prev_start\">Previous Page</b>\&nbsp\;\&nbsp\;\&nbsp\;" if($prev_start>0);
print "<a href=\"$form_string\&start=$next_start\">Next Page</b>" if($next_start<$rows);

print "</font></center></td></tr>\n";
print "<tr><td colspan=\"3\" height=\"20\">\&nbsp\;</td></tr>\n";
print "</table>\n";

&IncludeFile($footer);

}

# -----------------------------

sub ShowShort{

my($sth) = shift;
my($header) = "header_can.inc";
my($footer) = "footer_new.inc";
my($count) = 0;

&IncludeFile($header);

print "<table border=\"0\" width=\"90\%\" cellpadding=\"0\" cellspacing=\"0\" align=\"center\">\n"; 
print "<tr><td colspan=\"6\"><center><font face=\"arial, helvetica, sans-serif\"><h3>Luggageworld Affiliate Shopping</h3></font></center></td></tr>\n";

print "<tr>\n";

while($info = $sth->fetchrow_hashref){
     if($count == 2){
       print "</tr><tr><td height=\"2\" colspan=\"6\">\&nbsp\;</td></tr><tr>\n";
       $count = 0;
     }
   $alt = $info->{'title'};
   $alt =~ s/\"//g;
   print "<td width=\"75\" align=\"center\"><a href=\"$info->{'url'}\"><img src=\"images/$info->{'image'}\" alt=\"$alt\" border=\"0\"></a></td>\n";
   print "<td width=\"1\"><img src=\"images/pixel_clear.gif\" width=\"1\" alt=\"\"></td>\n";
       print "<td align=\"left\" valign=\"top\"><font face=\"arial, helvetica, sans-serif\" size=\"2\">\&nbsp\;<br><b>$info->{'title'}</b></font></td>\n";
       $count++;
}
print "</td></tr>\n" if($count < 2);

print "</table>\n";

&IncludeFile($footer);

}