#!/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'};
$subject_id=$FORM{'si'};
$type_id=$FORM{'ti'};
$website_id=$FORM{'wi'};
$mode=$FORM{'m'};


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

# &currencytemp;

 $q = "Select f_item_id from t_cartitems where f_uniqueid='$uid'";
 &dbmain ($m1, $m2, $q);
 $itemsincart=$data->numrows;
 if ($itemsincart==0){
  if ($aff_id eq ""){
   &currencylist;
   &para(6);
  }
  else{
   &para(1);
   &sh_fmttext ($font2, $fsize, "<strong>Feature not available</strong>");
   &para(6);
  }
 }
 else{
  &para(1);
  &sh_fmttext ($font2, $fsize, "<strong>Whoops!</strong><br>It is <strong>NOT</strong> possible to change currency once you have goods in your Shopping Cart. If you still wish to change currency you must first empty your Shopping Cart.<p> To empty your Shopping Cart first click on the Shopping Cart logo at the top of the page then select the Empty Shopping Cart option.");
  &para(6);
 }
}
elsif ($mode eq "1"){
 $new_currency=$FORM{'new_currency'};
 $sm_currency=$FORM{'sm_currency'};
 if (($new_currency ne "")&&($new_currency ne $sm_currency)){
  $sm_currency=$new_currency;
  if ($mbr_id ne ""){
   $q="Update t_mbr set f_mbr_currency='$sm_currency' WHERE f_mbr_id='$mbr_id'";
   &dbmain ($m1, $m2, $q);
  }
  if (&GetCookies($uidcookie)){
   &delete_cookie($uidcookie);  
  }
  $cookieset="Y";
  print "Content-type: text/html\n";
  &SetCookieExpDate($cookieexpiry);
  &SetCompressedCookies($uidcookie, 'a',$uid, 'b', $sm_currency);
  print "\n";
  &sh_title ("$title");
  &sh_body ($bg);
  &tabs();
  &menubar;
  &leftbar;
  &para(1);
  &sh_fmttext ($font2, $fsize, "<strong>Currency Changed!</strong>");
  &para(6);
 }
 else{
  &sh_header;
  &sh_title ("$title");
  &sh_body ($bg);
  &tabs();
  &menubar;
  &leftbar;
  if ($new_currency eq ""){
   &para(1);
   &sh_fmttext ($font2, $fsize, "<strong>Whoops!</strong><br>You have not selected a Currency. Please press the Back Button.");
   &para(6);
  }
  elsif ($new_currency eq $sm_currency){
   &para(1);
   &sh_fmttext ($font2, $fsize, "<strong>Currency NOT Changed!</strong><br>You have NOT selected a different Currency.");
   &para(6);
  }
 }
}
&rightbar;
&sh_mainpg4;
&sh_footer;

#************************************************************************
#sub currencytemp{
#print <<HTML;
#<font face="$font2" size="$fsize">
#<strong>Currency</strong><br>
#This feature will be available shortly. 
#HTML
#}

sub currencylist{
print <<HTML;
<font face="$font2" size="$fsize">
<strong>Currency</strong><br>
From the list below please select the Currency you prefer to see prices displayed in (and, if applicable, make a 
payment in):
<p>
<form action="/cgi-bin/sm-curr.cgi" method="POST">
<select name="new_currency">
HTML


$j=1;
while ($j<$currency_live+1){
 $currency_show=@currency_symbol[$j]." - ".@currency_name[$j];
 if ($j==$sm_currency){ 
  print "<option SELECTED value=\"$j\">$currency_show</option>";
 }
 else{
  print "<option value=\"$j\">$currency_show</option>"; 
 }
 $j++;
}

print <<HTML;
</select>
<p>
<input type="submit" name="a" value="Select Currency">
<input type="hidden" name="sm_currency" value="$sm_currency">
<input type="hidden" name="i" value="$mbr_id">
<input type="hidden" name="m" value="1">
<input type="hidden" name="si" value="$subject_id">
<input type="hidden" name="ti" value="$type_id">
<input type="hidden" name="uid" value="$uid">
<input type="hidden" name="wi" value="$website_id">
</form>
<p>
HTML
}