Programming for commerce.cgi shopping cart-Shipping by category

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

Hope this is what you wanted. There to files, both in the library folder.

############################################################################
# Main Shipping Routine
############################################################################

sub calculate_shipping
{
local ($subtotal, $total_weight) = @_;
local ($total_shipping);
local ($shipKey, $shipMethod) = split(/\|/, $form_data{'upgradeShipping'});

open(SHIPPINGFILE, "$sc_log_file_directory_path/shipping.txt") || &errorcode(__FILE__, __LINE__, "$sc_log_file_directory_path/shipping.txt", "$!", "print", "FILE OPEN ERROR", "1");
while (<SHIPPINGFILE>)
{
@ship_options = split(/\|/, $_);
if ($ship_options[0] eq $shipKey)
{
$shipping_price = $ship_options[2];
$shipping_percent = $ship_options[3];
$shipping_weight = $ship_options[4];
$shipping_sub = $ship_options[5];
chomp $shipping_sub;
}
}
close (SHIPPINGFILE);

if ($shipping_price)
{
$total_shipping += $shipping_price;
}

if ($shipping_percent)
{
$total_shipping += $subtotal*($shipping_percent/100);
}

if ($shipping_weight eq "yes")
{
$total_shipping += $total_weight;
}

if ($shipping_sub)
{
$shipping_sub =~ /([\w]+)/;
$total_shipping += &{$shipping_sub}($shipKey, $subtotal, $total_weight, $total_shipping);
}

return ($total_shipping);
}

1;

---------------------------------------------

This the store varibles

#######################################################################

# Misc. HTML Store Variables #

#######################################################################

$sc_shall_i_let_client_know_item_added = "yes";

$sc_item_ordered_message = qq~



<div class="item_added_message">Thank you, your selection has been added to your order.</div>



~;

#######################################################################

# create_html_page_from_db

#######################################################################

sub create_html_page_from_db

{

local ($fromshown, $toshown, $pages, $keywords);

local ($lowrange, $highrange);

local (@database_rows, @database_fields, @item_ids, @display_fields);

local ($total_row_count, $id_index, $display_index, $header_title);

local ($row, $field, $empty, $option_tag, $option_location, $output);

if (!($sc_db_lib_was_loaded =~ /yes/i))

{

require "$sc_library_directory_path/commerce_db_lib.pl" ||

&errorcode(__FILE__, __LINE__, "$sc_library_directory_path/commerce_db_lib.pl", "$!", "die", "FILE REQUIRE ERROR", "8");

}

($status,$total_row_count) = &submit_query(*database_rows);

$nextCount = $form_data{'next'}+$items_per_page;

$prevCount = $form_data{'next'}-$items_per_page;

$minCount = $form_data{'next'};

$maxCount = $form_data{'next'}+$items_per_page;

$item_counter = "1";

$items_per_row = "3";

if ($form_data{'row'})

{

$items_per_row = $form_data{'row'};

}

if ($form_data{'pid'} eq "" && $form_data{'ppage'} eq "")

{

$sc_product_display_row .= qq~

<div align="center">

<center>

<table border="0" width="90%"><tr><td width="33%" valign="top">

~;

}

my $percent = int(100/$items_per_row);

foreach $row (@database_rows)

{

if ($form_data{'pid'} eq "" && $form_data{'ppage'} eq "")

{

if ($rowCount > $minCount && $rowCount <= $maxCount)

{

if ($item_counter == $items_per_row)

{

$sc_product_display_row .= qq~

</td></tr><tr><td width="$percent\%" valign="top">

~;

$item_counter = "1";

} else {

$sc_product_display_row .= qq~

</td><td width="$percent\%" valign="top">

~;

$item_counter++;

}

}

}

$rowCount++;

$prevHits = $items_per_page;

$nextHits = $items_per_page;

if ($rowCount > $minCount && $rowCount <= $maxCount)

{

@database_fields = split (/\|/, $row);

if ($database_fields[$db{"options"}] =~ /^%%OPTION%%/)

{

($empty, $option_tag, $option_location) = split (/%%/, $database_fields[$db{"options"}]);

$database_fields[$db{"options"}] = "";

open (OPTION_FILE, "<$sc_options_directory_path/$option_location") ||

&errorcode(__FILE__, __LINE__, "$sc_options_directory_path/$option_location", "$!", "print", "FILE OPEN ERROR", "0");

while (<OPTION_FILE>)

{

s/\{PRODUCT_ID\}/$database_fields[$db{"product_id"}]/g;

$database_fields[$db{"options"}] .= $_;

}

close (OPTION_FILE);

}

$sc_product_display_row .= &displayProductPage;

}

}

if ($form_data{'pid'} eq "" && $form_data{'ppage'} eq "")

{

$sc_product_display_row .= qq~

</td></tr></table></center></div>

~;

}

local ($hidden_string) = &make_hidden_string("no_next");

$product = $form_data{'product'};

if ($status ne "")

{

if ($status =~ /max.*row.*exceed.*/i)

{

$product = $form_data{'product'};

if($form_data{'next'} > "0")

{

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$link = "$sc_store_url?next=$prevCount$hidden_string";

} else {

$link = "$html_folder\/$prevCount\/$form_data{'product'}\.htm";

}

$back = qq~

<a href="$link">

<span class="back_link"><<< Back</span>

</a>

~;

}

if ($maxCount == $rowCount-1)

{

$nextHits = (@database_rows-$maxCount);

if ($nextHits == 1)

{

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$link = "$sc_store_url?next=$maxCount$hidden_string";

} else {

$link = "$html_folder\/$maxCount\/$form_data{'product'}\.htm";

}

$front = qq~

<a href="$link">

<span class="next_link">Next >>></span>

</a>

~;

}

}

if ($maxCount < $rowCount && $maxCount != $rowCount-1)

{

if ($maxCount >= $rowCount-$nextHits )

{

$lastCount = $rowCount-$maxCount;

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$link = "$sc_store_url?next=$maxCount$hidden_string";

} else {

$link = "$html_folder\/$maxCount\/$form_data{'product'}\.htm";

}

$front = qq~

<a href="$link">

<span class="next_link">Next >>></span>

</a>

~;

} else {

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$link = "$sc_store_url?next=$maxCount$hidden_string";

} else {

$link = "$html_folder\/$maxCount\/$form_data{'product'}\.htm";

}

$front = qq~

<a href="$link">

<span class="next_link">Next >>></span>

</a>

~;

}

}

if ($status =~ /max.*row.*exceed.*/i)

{

$next = $form_data{'next'};

$product = $form_data{'product'};

if ($maxCount > $total_row_count)

{

$toshown = $total_row_count;

} else {

$toshown = $maxCount;

}

if ($next < 1)

{

$fromshown = 1;

} else {

$fromshown = $next;

}

$page = $toshown/$items_per_page;

$pages = $total_row_count/$items_per_page;

if ($page =~ /\./g)

{

$page = int($page)+1;

}

if ($pages =~ /\./g)

{

$pages = int($pages)+1;

}

$cc=1;

$page_message .= qq~<span class="default_text">Page:&nbsp&nbsp</span>~;

while ($cc<=$pages)

{

$ccnext = ($cc-1)*$items_per_page;

if ($cc == $page)

{

$page_message .= qq~

<span class="default_text">$cc&nbsp</span>

~;

} else {

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$link = "$sc_store_url?next=$ccnext$hidden_string";

} else {

$link = "$html_folder\/$ccnext\/$form_data{'product'}\.htm";

}

$page_message .= qq~

<a href="$link"><span class="default_text">$cc</span></a>&nbsp

~;

}

$cc++;

}

}

}

}

if ($form_data{'pid'})

{

$header_title = "Product Listing - $database_fields[$db{'name'}]";

} elsif ($form_data{'keywords'}) {

$header_title = "Search Listing - $form_data{'keywords'}";

} else {

$header_title = "Category Listing - $product";

}

&StoreHeader($header_title,"regular");

# Added for expandability

print "$sub_product_header_message";

if ($form_data{'add_to_cart_button.x'} ne "" && $sc_shall_i_let_client_know_item_added eq "yes")

{

print "$sc_item_ordered_message";

}

print $sc_product_display_row;

# Added for expandability

print "$sub_product_footer_message";

&StoreFooter("regular");

}

#######################################################################

# display_page Subroutine #

#######################################################################

sub display_page

{

local ($page, $routine, $file, $line) = @_;

if ($form_data{'secure'})

{

&StoreHeader("$site_name", "secure");

} else {

&StoreHeader("$site_name", "regular");

}

# Added for expandability

print "$sub_page_header_message";

open (PAGE, "<$page") || &errorcode(__FILE__, __LINE__, "$page", "$!", "print", "FILE OPEN ERROR", "0");

while (<PAGE>)

{

$page = $form_data{'page'};

s/\{mini_cart\}/$minicart/g;

s/\{scriptURL\}/$sc_store_url/g;

s/\{cart_id\}/$cart_id/g;

s/\{page\}/$page/g;

s/\{date\}/$date/g;

if ($form_data{'secure'})

{

s/\{URLofImages\}/$URL_of_secure_images_directory/g;

} else {

s/\{URLofImages\}/$URL_of_images_directory/g;

}

s/\{highlightcolor\}/$highlightcolor/g;

s/\{highlightfontcolor\}/$highlightfontcolor/g;

s/\{site_name\}/$site_name/g;

s/\{custom1\}/$custom1/g;

s/\{custom2\}/$custom2/g;

s/\{custom3\}/$custom3/g;

s/\{custom4\}/$custom4/g;

s/\{custom5\}/$custom5/g;

s/\{custom6\}/$custom6/g;

s/\{custom7\}/$custom7/g;

s/\{custom8\}/$custom8/g;

s/\{custom9\}/$custom9/g;

s/\{custom10\}/$custom10/g;

s/\{custom11\}/$custom11/g;

s/\{custom12\}/$custom12/g;

s/\{custom13\}/$custom13/g;

s/\{custom14\}/$custom14/g;

s/\{custom15\}/$custom15/g;

if ($form_data{'add_to_cart_button'} ne "" &&

$sc_shall_i_let_client_know_item_added eq "yes")

{

if ($_ =~ /<FORM/i)

{

print "$_";

print "$sc_item_ordered_message";

}

}

if ($_ =~ /<!--.*&/i)

{

my $cmd = (split(/--/, $_))[1];

$cmd =~ /([\w]+)/;

$cmd = "$1";

print eval($cmd);

} else {

print $_;

}

}

close (PAGE);

# Added for expandability

print "$sub_page_footer_message";

if ($form_data{'secure'})

{

&StoreFooter("secure");

} else {

&StoreFooter("regular");

}

}

###############################################################

# Display Product Page

###############################################################

sub displayProductPage

{

local($keywords, $imageURL, $product_page, $control, $description, $price);

$keywords = $form_data{'keywords'};

$keywords =~ s/ /+/g;

local ($hidden_fields) = &make_hidden_fields;

$encrypt_text = $database_fields[$db{"name"}] . " " . $database_fields[$db{"price"}] . " " . $database_fields[$db{"shipping"}];

$control = &hmac_hex($encrypt_text, $encrypt_key);

$hidden_fields .= qq~

<input type="hidden" name="control" value="$control">

~;

if ($form_data{'pid'} eq "")

{

$ppage = "Thumb";

}

if ($form_data{'pid'} eq "" && $ENV{'REQUEST_URI'} !~ /commerce.cgi/i && $use_html eq "yes")

{

$ppage = "HTML";

}

if ($form_data{'ppage'})

{

$ppage = $form_data{'ppage'};

}

open (PAGE, "$sc_template_directory_path/productPage$ppage.txt") ||

&errorcode(__FILE__, __LINE__, "$sc_template_directory_path/productPage$ppage.txt", "$!", "print", "FILE OPEN ERROR", "0");

while (<PAGE>)

{

$product_page .= $_;

}

close (PAGE);

$imageURL = $database_fields[$db{"image"}];

$small_image_test = "$images_path\/product\/$imageURL";

$large_image_test = "$images_path\/product\/$imageURL";

$na_image_if_not_found = "yes";

if ($na_image_if_not_found eq "yes")

{

if (-f $small_image_test)

{

$small_image = "$URL_of_images_directory\/product\/$imageURL";

} else {

$small_image = "$URL_of_images_directory\/product\/notavailable.gif";

}

if (-f $large_image_test)

{

$large_image = "$URL_of_images_directory\/product\/$imageURL";

} else {

$large_image = "$URL_of_images_directory\/product\/notavailable.gif";

}

} else {

$small_image = "$URL_of_images_directory\/product\/$imageURL";

$large_image = "$URL_of_images_directory\/product\/$imageURL";

}

$product_page =~ s/\{URLofImages\}/$URL_of_images_directory/g;

$product_page =~ s/\{image\}/$imageURL/g;

$product_page =~ s/\{small_image\}/$small_image/g;

$product_page =~ s/\{large_image\}/$large_image/g;

$product_page =~ s/\{product_id\}/$database_fields[$db{"product_id"}]/g;

$product_page =~ s/\{scriptURL\}/$sc_store_url/g;

$product_page =~ s/\{cart_id\}/$cart_id/g;

$product_page =~ s/\{product\}/$database_fields[$db{"product"}]/g;

$product_page =~ s/\{keywords\}/$keywords/g;

$product_page =~ s/\{hidden_fields\}/$hidden_fields/g;

$product_page =~ s/\{name\}/$database_fields[$db{"name"}]/g;

$description = $database_fields[$db{"description"}];

$description =~ s/\{cart_id\}/$cart_id/g;

$description =~ s/\{URLofImages\}/$URL_of_images_directory/g;

$description =~ s/\{scriptURL\}/$sc_store_url/g;

$product_page =~ s/\{description\}/$description/g;

$product_page =~ s/\{optionFile\}/$database_fields[$db{"options"}]/g;

if ($database_fields[$db{"price"}])

{

$price = &display_price(&format_price($database_fields[$db{"price"}]));

}

$product_page =~ s/\{price\}/$price/g;

$product_page =~ s/\{hidden_price\}/$database_fields[$db{"price"}]/g;

$product_page =~ s/\{shipping\}/$database_fields[$db{"shipping"}]/g;

$product_page =~ s/\{user1\}/$database_fields[$db{"user1"}]/g;

$product_page =~ s/\{user2\}/$database_fields[$db{"user2"}]/g;

$product_page =~ s/\{user3\}/$database_fields[$db{"user3"}]/g;

$product_page =~ s/\{user4\}/$database_fields[$db{"user4"}]/g;

$product_page =~ s/\{user5\}/$database_fields[$db{"user5"}]/g;

$product_page =~ s/\{highlightcolor\}/$highlightcolor/g;

$product_page =~ s/\{highlightfontcolor\}/$highlightfontcolor/g;

$product_page =~ s/\{inventory\}/$inventory/g;

$product_page =~ s/\{similar\}/$similar/g;

$product_page =~ s/\{custom1\}/$custom1/g;

$product_page =~ s/\{custom2\}/$custom2/g;

$product_page =~ s/\{custom3\}/$custom3/g;

$product_page =~ s/\{custom4\}/$custom4/g;

$product_page =~ s/\{custom5\}/$custom5/g;

$product_page =~ s/\{custom6\}/$custom6/g;

$product_page =~ s/\{custom7\}/$custom7/g;

$product_page =~ s/\{custom8\}/$custom8/g;

$product_page =~ s/\{custom9\}/$custom9/g;

$product_page =~ s/\{custom10\}/$custom10/g;

$product_page =~ s/\{custom11\}/$custom11/g;

$product_page =~ s/\{custom12\}/$custom12/g;

$product_page =~ s/\{custom13\}/$custom13/g;

$product_page =~ s/\{custom14\}/$custom14/g;

$product_page =~ s/\{custom15\}/$custom15/g;

return ($product_page);

}

############################################################################################

sub StoreHeader

{

my ($title, $header) = @_;

my ($hidden_string) = &make_hidden_string;

my ($dcat, $v_category, $h_category, $d_category);

my ($pages, $h_pages);

$keywords = $form_data{'keywords'};

$keywords =~ s/ /+/g;

$cart_contents = &cart_content;

$mini_cart = &mini_cart;

($pages, $h_pages) = &pages;

if (-f "$sc_template_directory_path/store_template-$form_data{'template'}.htm")

{

if ($form_data{'template'}){ $template = $form_data{'template'}; }

}

($d_category, $v_category, $h_category) = &categories;

open (TEMPLATE, "$sc_template_directory_path/store_template-$template.htm") ||

&errorcode(__FILE__, __LINE__, "$sc_template_directory_path/store_template-$template.htm", "$!", "print", "FILE OPEN ERROR", "0");

while (<TEMPLATE>)

{

if ($_ =~ /\{DATA\}/i){ last; }

s/\{v_category\}/$v_category/g;

s/\{h_category\}/$h_category/g;

s/\{d_category\}/$d_category/g;

s/\{mini_cart\}/$minicart/g;

s/\{cart_id\}/$cart_id/g;

s/\{cart_contents\}/$cart_contents/g;

s/\{highlightcolor\}/$highlightcolor/g;

s/\{highlightfontcolor\}/$highlightfontcolor/g;

s/\{random_products\}/$random_products/g;

s/\{keywords\}/$keywords/g;

s/\{next\}/$form_data{'next'}/g;

s/\{page\}/$page_message/g;

s/\{product\}/$form_data{'product'}/g;

s/\{scriptURL\}/$sc_store_url/g;

s/\{site_name\}/$site_name/g;

s/\{title\}/$title/g;

s/\{pages\}/$pages/g;

s/\{h_pages\}/$h_pages/g;

s/\{custom1\}/$custom1/g;

s/\{custom2\}/$custom2/g;

s/\{custom3\}/$custom3/g;

s/\{custom4\}/$custom4/g;

s/\{custom5\}/$custom5/g;

s/\{custom6\}/$custom6/g;

s/\{custom7\}/$custom7/g;

s/\{custom8\}/$custom8/g;

s/\{custom9\}/$custom9/g;

s/\{custom10\}/$custom10/g;

s/\{custom11\}/$custom11/g;

s/\{custom12\}/$custom12/g;

s/\{custom13\}/$custom13/g;

s/\{custom14\}/$custom14/g;

s/\{custom15\}/$custom15/g;

if ($header eq "secure")

{

s/\{URLofImages\}/$URL_of_secure_images_directory/g;

} else {

s/\{URLofImages\}/$URL_of_images_directory/g;

}

s/\{hidden_string\}/$hidden_string/g;

if (!($_ =~ /\{DATA\}/i))

{

if ($_ =~ /<!--.*&/i)

{

my $cmd = (split(/--/, $_))[1];

$cmd =~ /([\w]+)/;

$cmd = "$1";

print eval($cmd);

} else {

print $_;

}

}

}

}

############################################################################################

sub StoreFooter

{

local ($footer) = @_;

local ($d_category, $v_category, $h_category, $pages, $h_pages);

local ($hidden_string) = &make_hidden_string;

($d_category, $v_category, $h_category) = &categories;

($pages, $h_pages) = &pages;

while (<TEMPLATE>)

{

s/\{v_category\}/$v_category/g;

s/\{h_category\}/$h_category/g;

s/\{d_category\}/$d_category/g;

s/\{mini_cart\}/$minicart/g;

s/\{front\}/$front/g;

s/\{back\}/$back/g;

s/\{scriptURL\}/$sc_store_url/g;

s/\{hidden_string\}/$hidden_string/g;

s/\{pages\}/$pages/g;

s/\{h_pages\}/$h_pages/g;

s/\{page\}/$page_message/g;

if ($footer eq "secure")

{

s/\{URLofImages\}/$URL_of_secure_images_directory/g;

} else {

s/\{URLofImages\}/$URL_of_images_directory/g;

}

s/\{cart_id\}/$cart_id/g;

s/\{highlightcolor\}/$highlightcolor/g;

s/\{highlightfontcolor\}/$highlightfontcolor/g;

s/\{random_products\}/$random_products/g;

s/\{site_name\}/$site_name/g;

s/\{custom1\}/$custom1/g;

s/\{custom2\}/$custom2/g;

s/\{custom3\}/$custom3/g;

s/\{custom4\}/$custom4/g;

s/\{custom5\}/$custom5/g;

s/\{custom6\}/$custom6/g;

s/\{custom7\}/$custom7/g;

s/\{custom8\}/$custom8/g;

s/\{custom9\}/$custom9/g;

s/\{custom10\}/$custom10/g;

s/\{custom11\}/$custom11/g;

s/\{custom12\}/$custom12/g;

s/\{custom13\}/$custom13/g;

s/\{custom14\}/$custom14/g;

s/\{custom15\}/$custom15/g;

if (!($_ =~ /\{DATA\}/i))

{

if ($_ =~ /<!--.*&/i)

{

my $cmd = (split(/--/, $_))[1];

$cmd =~ /([\w]+)/;

$cmd = "$1";

print eval($cmd);

} else {

print $_;

}

}

}

close (TEMPLATE);

}

#######################################################################

# cart_table_header

#######################################################################

sub cart_table_header

{

my ($modify_type) = @_;

my ($hidden_fields) = &make_hidden_fields;

$keywords = $form_data{'keywords'};

$keywords =~ s/ /+/g;

if (($modify_type ne "") && ($modify_type ne "orderform") && ($modify_type ne "verify"))

{

$modify_type = qq~<td class="colored_cell_header"> $modify_type </td>~;

}

if ($modify_type eq "")

{

$modify_type = qq~<td class="colored_cell_header"></td>~;

}

if ($modify_type eq "orderform")

{

$modify_type = "";

}

if ($modify_type eq "verify")

{

$modify_type = "";

}

# Added for expandability

print "$sub_cart_table_header_message";

print qq~

<FORM METHOD="post" ACTION="$sc_store_url">

$hidden_fields

<table border="0" cellpadding="5" cellspacing="0" WIDTH="90%" align="center">

<tr>

$modify_type

~;

$field_counter = 0;

foreach $field (@sc_cart_display_fields)

{

if ($sc_cart_index_for_display[$field_counter] == $cart{"price"} ||

$sc_cart_index_for_display[$field_counter] == $cart{"shipping"} ||

$sc_cart_index_for_display[$field_counter] == $cart{"price_after_options"})

{

print qq~<td class="colored_cell_header" align="right"> $field </td>~;

} else {

print qq~<td class="colored_cell_header" align="left"> $field </td>~;

}

$field_counter++;

}

print qq~</tr>~;

}

#######################################################################

# display_cart_table Subroutine #

#######################################################################

sub display_cart_table

{

local ($reason_to_display_cart, $required_fields_filled_in) = @_;

local (@cart_fields, $cart_id_number, $quantity, $unformatted_subtotal);

local ($subtotal, $unformatted_grand_total, $grand_total, $price);

local ($total_measured_quantity) = 0;

local ($display_index, $counter, $hidden_field_name);

local ($hidden_field_value, $display_counter, $product_id);

local ($ship_company, $upgradeShipPrice, $shipMethod);

local ($final_shipping, $final_discount, $final_sales_tax, $grand_total);

local ($hidden_string, $lineTotal, $cart_error, $product_name, $product_price );

$total_quantity = 0;

if (($reason_to_display_cart =~ /orderform/i) || ($reason_to_display_cart =~ /verify/i))

{

&StoreHeader("Cart Contents","secure");

} else {

&StoreHeader("Cart Contents","regular");

}

if (-s "$sc_cart_path")

{

if ($reason_to_display_cart =~ /orderform/i)

{

$reason_to_display_cart = "orderform";

&cart_table_header($reason_to_display_cart);

} elsif ($reason_to_display_cart =~ /verify/i) {

$reason_to_display_cart = "verify";

&cart_table_header($reason_to_display_cart);

} else {

&cart_table_header("Delete");

}

open (CART, "$sc_cart_path") || &errorcode(__FILE__, __LINE__, "$sc_cart_path", "$!", "print", "FILE OPEN ERROR", "0");

while (<CART>)

{

$row_count++;

$remain = $row_count % 2; # This gets the remainder after division.

if ($remain)

{

$bgcolor = "#FFFFFF";

} else {

$bgcolor = "#DDDDDD";

}

print "<TR>";

chomp;

@cart_fields = split (/\|/, $_);

$cart_row_number = pop(@cart_fields);

push (@cart_fields, $cart_row_number);

$quantity = $cart_fields[$cart{"quantity"}];

$product_id = $cart_fields[$cart{"product_id"}];

$product_name = $cart_fields[$cart{"name"}];

$product_price = $cart_fields[$cart{"price"}];

if (($reason_to_display_cart =~ /orderform/i) && ($sc_order_check_db =~ /yes/i))

{

if (!($sc_db_lib_was_loaded =~ /yes/i))

{

require "$sc_library_directory_path/commerce_db_lib.pl" ||

&errorcode(__FILE__, __LINE__, "$sc_library_directory_path/commerce_db_lib.pl", "$!", "die", "FILE REQUIRE ERROR", "8");

}

if ($product_id ne "00" && $product_id ne "0")

{

$cart_error = &check_db_with_product_id($product_id, $product_name, $product_price);

}

}

$total_quantity += $quantity;

$hidden_string = &make_hidden_string;

if ($reason_to_display_cart =~ /change*quantity/i)

{

print qq~

<TD ALIGN = "center">

<INPUT TYPE = "text" NAME = "$cart_row_number" SIZE ="3">

</TD>

~;

} elsif (($reason_to_display_cart =~ /orderform/i) || ($reason_to_display_cart =~ /process order/i) || ($reason_to_display_cart =~ /verify/i)) {

} else {

print qq~

<td class="cartcontents" bgcolor="$bgcolor">

<a href="$sc_store_url?submit_deletion_button.x=yes&$cart_row_number=checked$hidden_string">Delete</a>

</td>

~;

}

$display_counter = 0;

foreach $display_index (@sc_cart_index_for_display)

{

if ($cart_fields[$display_index] eq "")

{

$cart_fields[$display_index] = " ";

}

if ($display_index == $cart{"price"})

{

$price = &display_price($cart_fields[$display_index]);

print qq~

<td class="cartcontents" align="right" bgcolor="$bgcolor" nowrap>$price</td>

~;

} elsif ($display_index == $cart{"options"}) {

$cart_html = "";

if (($reason_to_display_cart =~ /orderform/i) || ($reason_to_display_cart =~ /process order/i) || ($reason_to_display_cart =~ /verify/i))

{

$cart_html .= qq~

</tr>

<tr>

<td class="cartcontents" bgcolor="$bgcolor"> </td>

<td class="cartcontents" bgcolor="$bgcolor">$cart_fields[$display_index] </td>

<td class="cartcontents" bgcolor="$bgcolor"> </td>

<td class="cartcontents" bgcolor="$bgcolor"> </td></tr>

~;

} else {

$cart_html .= qq~

</tr>

<tr>

<td class="cartcontents" bgcolor="$bgcolor"> </td>

<td class="cartcontents" bgcolor="$bgcolor"> </td>

<td class="cartcontents" bgcolor="$bgcolor">$cart_fields[$display_index] </td>

<td class="cartcontents" bgcolor="$bgcolor"> </td>

<td class="cartcontents" bgcolor="$bgcolor"> </td></tr>

~;

}

print $cart_html;

} elsif ($display_index == $cart{"name"}) {

print qq~

<td class="cartcontents" bgcolor="$bgcolor">$cart_fields[$display_index]</td>

~;

} elsif ($display_index == $cart{"price_after_options"}) {

$lineTotal = &format_price($cart_fields[$cart{"quantity"}]*$cart_fields[$display_index]);

$lineTotal = &display_price($lineTotal);

print qq~

<td class="cartcontents" align="right" bgcolor="$bgcolor" nowrap>$lineTotal</td>

~;

} elsif (($display_index == "0") && ($reason_to_display_cart eq /orderform/i)) {

print qq~

<td class="cartcontents" align="center" bgcolor="$bgcolor">

<input class="cart_edit_quantity" type="text" name="$cart_row_number" value="$quantity" size="3">

</td>

~;

} else {

print qq~

<td class="cartcontents" align="center" bgcolor="$bgcolor">$cart_fields[$display_index]</td>

~;

}

if ($display_index == $cart{"shipping"})

{

$total_measured_quantity += ($cart_fields[$cart{"quantity"}]*$cart_fields[$cart{"shipping"}]);

$shipping_total = $total_measured_quantity;

}

$display_counter++;

}

$total_measured_quantity += ($cart_fields[$cart{"quantity"}]*$cart_fields[$cart{"shipping"}]);

$shipping_total = $total_measured_quantity;

$unformatted_subtotal = ($cart_fields[$cart{"price_after_options"}]);

$subtotal = &format_price($cart_fields[$cart{"quantity"}]*$unformatted_subtotal);

$unformatted_grand_total = $grand_total + $subtotal;

$grand_total = &format_price($unformatted_grand_total);

$category_count{$cart_fields[$cart{"product"}]} += $cart_fields[$cart{"quantity"}];

$category_subtotal{$cart_fields[$cart{"product"}]} += $cart_fields[$cart{"price_after_options"}] * $cart_fields[$cart{"quantity"}];

$cart_pid{$cart_fields[$cart{"product_id"}]} += $cart_fields[$cart{"quantity"}];

}

close (CART);

$price = &display_price(&format_price($grand_total));

$shipping_total = &display_price($shipping_total);

print qq~

</table>

~;

if ($reason_to_display_cart =~ /verify/i)

{

print qq~

<input type="hidden" name="total" value="$grand_total">

~;

}

print qq~

<div align="center">

<center>

<table border="0" cellpadding="0" cellspacing="0" width="90%">

<tr>

<td width="100%">

<div align="right">

<table width="300">

<tr>

<td class="cart_totals_labels" width="60%" valign="top" align="right">Subtotal: </td>

<td class="cart_totals" width="40%" valign="top" align="right">$price</td>

</tr>

~;

($shipKey, $shipMethod) = split(/\|/, $form_data{'upgradeShipping'});

if (($form_data{'submit_order_form_button'} || $form_data{'submit_order_form_button.x'}) && $required_fields_filled_in eq "yes")

{

($final_shipping, $final_discount, $final_sales_tax, $grand_total) = &calculate_final_values($grand_total, $total_quantity, $total_measured_quantity);

if (-f "$sc_extra_directory_path/service_fee.pl")

{

$grand_total = &service_fee($grand_total);

}

$pass_final_shipping = &format_price($final_shipping);

if ($final_shipping > 0)

{

$final_shipping = &format_price($final_shipping);

$final_shipping = &display_price($final_shipping);

if($upgradeShipPrice && $shipMethod)

{

$shipText = $shipMethod;

} else {

$shipText = "Shipping";

}

print qq~

<tr>

<td class="cart_totals_labels" width="50%" valign="top" align="right">$shipText: </td>

<td class="cart_totals" width="50%" valign="top" align="right">$final_shipping</td>

</tr>

~;

}

$pass_final_discount = &format_price($final_discount);

if ($final_discount > 0)

{

$final_discount = &format_price($final_discount);

$final_discount = &display_price($final_discount);

print qq~

<tr>

<td class="cart_totals_labels" width="50%" valign="top" align="right">Discount: </td>

<td class="cart_totals" width="50%" valign="top" align="right">$final_discount</td>

</tr>

~;

}

$pass_final_sales_tax = &format_price($final_sales_tax);

if ($final_sales_tax > 0)

{

$final_sales_tax = &format_price($final_sales_tax);

$final_sales_tax = &display_price($final_sales_tax);

print qq~

<tr>

<td class="cart_totals_labels" width="50%" valign="top" align="right">Sales Tax: </td>

<td class="cart_totals" width="50%" valign="top" align="right">$final_sales_tax</td>

</tr>

~;

}

$pass_subtotal = &format_price($unformatted_grand_total);

$pass_grand_total = &format_price($grand_total);

$grand_total = &display_price(&format_price($grand_total));

if ($form_data{'submit_order_form_button'} || $form_data{'submit_order_form_button.x'})

{

print qq~

<tr>

<td class="cart_totals_labels" width="50%" valign="top" align="right">Grand Total: </td>

<td class="cart_totals" width="50%" valign="top" align="right">$grand_total</td>

</tr>

~;

}

}

print qq~

</table>

</div>

</table>

</center>

</div>

~;

}

if ($cart_error)

{

print qq~

<br><br>

<div align="center">

<center>

<table border="0" cellpadding="0" cellspacing="0" width="90%">

<tr>

<td class="cart_error" width="100%">

$cart_error

</td>

</tr>

</table>

</center>

</div>

~;

&StoreFooter("regular");

exit;

}

}

#######################################################################

# cart_footer

#######################################################################

sub cart_footer

{

my ($hidden_fields) = &make_hidden_fields;

# MEMBERS ONLY MINIMUM ORDER CODE

# Customized by LEW

$minimum_amount{'Western_Accessories'} = 150;

$minimum_order{'Western_Accessories'} = $category_subtotal{'Western_Accessories!Hats'} + $category_subtotal{'Western_Accessories!Belts_Buckles'} + $category_subtotal{'Western_Accessories!Collar_Tips'} + $category_subtotal{'Western_Accessories!Scarf_Slides'};

$minimum_amount{'Gifts_Novelty'} = 50;

$minimum_order{'Gifts_Novelty'} = $category_subtotal{'Gifts_Novelty!Dolls'} + $category_subtotal{'Gifts_Novelty!Clocks'} + $category_subtotal{'Gifts_Novelty!Candles'} + $category_subtotal{'Gifts_Novelty!Birdhouses'} + $category_subtotal{'Gifts_Novelty!Angels'};

while ( my ($pass_key, $pass_value) = each(%minimum_amount) )

{

if ($minimum_order{$pass_key} < $pass_value && $minimum_order{$pass_key} > 0)

{

$min_cat_error = $pass_key;

$min_cat_amount = &display_price(&format_price($pass_value));

}

}

if ($total_quantity eq "0")

{

$file_title = "$sc_template_directory_path/empty_cart_footer.txt";

} elsif ($min_cat_error) {

$minimum_order_amount = "$min_cat_amount $min_cat_error";

$file_title = "$sc_template_directory_path/min_cart_footer.txt";

} else {

$file_title = "$sc_template_directory_path/cart_footer.txt";

}

# END MINIMUM ORDER CODE

$gateway_links = qq~

</form>

<div align="center">

<center>

<table border="0" cellpadding="20" cellspacing="0">

<tr>

$gateway_checkout_buttons

</tr>

</table>

</center>

</div>

~;

open (CARTFOOTER, "$file_title") || &errorcode(__FILE__, __LINE__, "$sc_cart_path", "$!", "print", "FILE OPEN ERROR", "0");

while (<CARTFOOTER>)

{

s/\{scriptURL\}/$sc_store_url/g;

s/\{gateway_links\}/$gateway_links/g;

s/\{hidden_fields\}/$hidden_fields/g;

s/\{URLofImages\}/$URL_of_images_directory/g;

s/\{cart_id\}/$cart_id/g;

s/\{highlightcolor\}/$highlightcolor/g;

s/\{highlightfontcolor\}/$highlightfontcolor/g;

s/\{minimum_order_amount\}/$minimum_order_amount/g;

s/\{custom1\}/$custom1/g;

s/\{custom2\}/$custom2/g;

s/\{custom3\}/$custom3/g;

s/\{custom4\}/$custom4/g;

s/\{custom5\}/$custom5/g;

s/\{custom6\}/$custom6/g;

s/\{custom7\}/$custom7/g;

s/\{custom8\}/$custom8/g;

s/\{custom9\}/$custom9/g;

s/\{custom10\}/$custom10/g;

s/\{custom11\}/$custom11/g;

s/\{custom12\}/$custom12/g;

s/\{custom13\}/$custom13/g;

s/\{custom14\}/$custom14/g;

s/\{custom15\}/$custom15/g;

print $_;

}

close CARTFOOTER;

# Added for expandability

print "$sub_cart_footer_message";

&StoreFooter("regular");

}

#######################################################################

# make_hidden_fields Subroutine #

#######################################################################

sub make_hidden_fields

{

local($hidden, $field);

local($db_query_row);

local($db_form_field);

foreach $field (@sc_hidden_fields)

{

$field = (split(/\|/, $field))[0];

if ($form_data{$field} ne "")

{

$hidden .= qq~

<input type="hidden" name="$field" value="$form_data{$field}">

~;

}

}

foreach $db_query_row (@sc_db_query_criteria)

{

$db_form_field = (split(/\|/, $db_query_row))[0];

if ($form_data{$db_form_field} ne "" && $db_query_row ne "pid")

{

$hidden .= qq~

<input type="hidden" name="$db_form_field" value="$form_data{$db_form_field}">

~;

}

}

return ($hidden);

}

#######################################################################

# make_hidden_string Subroutine #

#######################################################################

sub make_hidden_string

{

local($no_next) = @_;

local($hidden, $field, $data);

local($db_query_row);

local($db_form_field);

foreach $field (@sc_hidden_fields)

{

# $field = (split(/\|/, $field))[0];

if ($form_data{$field} ne "")

{

unless (($no_next eq "no_next") && ($field eq "next"))

{

$hidden .= "\&$field=$form_data{$field}";

}

}

}

foreach $db_query_row (@sc_db_query_criteria)

{

$db_form_field = (split(/\|/, $db_query_row))[0];

if ($form_data{$db_form_field} ne "" && $db_query_row ne "pid")

{

$data = $form_data{$db_form_field};

$data =~ s/ /+/g;

$hidden .= "\&$db_form_field=$data";

}

}

return ($hidden);

}

#######################################################################

# PrintNoHitsBodyHTML

#######################################################################

sub PrintNoHitsBodyHTML

{

&StoreHeader("No Products Found","regular");

print qq~

<table border="0" cellpadding="0" cellspacing="0" width="100%">

<tr>

<td class="no_items_found" width="100%">

</td>

</tr>

</table>

~;

&StoreFooter("regular");

exit;

}

############################################################

# Cart Contents

############################################################

sub cart_content

{

local ($cart_contents);

my $count = "";

my $total_qty = "";

my $total_cost = "";

open (CARTFILE, "$sc_cart_path");

while (<CARTFILE>)

{

$count++;

@cart_fields = split (/\|/, $_);

$quantity = $cart_fields[$cart{"quantity"}];

$product_id = $cart_fields[$cart{"product_id"}];

$price = $cart_fields[$cart{"price_after_options"}];

$total_cost = $total_cost + $quantity * $price;

$total_qty = $total_qty + $quantity;

}

close (CARTFILE);

if ($count > 0)

{

$total_cost = &display_price(&format_price($total_cost));

} else {

$total_cost = &display_price(&format_price("0.00"));

$total_qty = "0";

}

$cart_contents = qq~

Total Quantity: $total_qty   Subtotal: $total_cost

~;

return ($cart_contents);

}

############################################################

# Categories

############################################################

sub categories

{

local ($d_category, $v_category, $h_category, $dcat);

$d_category = qq~

<select name="SeeAlsoSelect" class="d_category" onChange=ViewCrossReference(this);>

<option> </option>

~;

open(CATFILE, "$sc_log_file_directory_path/category.txt") || &errorcode(__FILE__, __LINE__, "$sc_log_file_directory_path/category.txt", "$!", "print", "FILE OPEN ERROR", "1");

while (<CATFILE>)

{

chomp $_;

$_ =~ s/\r//g;

$dcat = $_;

my $key = (split(/\!/, $form_data{'product'}))[0];

if ($dcat =~ /\!/i && $form_data{'product'} && $dcat =~ /^$key/i)

{

$dcat =~ s/.*\!//g;

$indent_it = "yes";

} else {

$indent_it = "no";

}

$dcat =~ s/_/ /g;

if ($_ =~ /\!/i)

{

if ($indent_it eq "yes")

{

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$v_category .= " - <a href=\"$sc_store_url?product=$_&cart_id=$cart_id&exact_match=on\">$dcat</a><br>\n";

push (@h_category, " - <a href=\"$sc_store_url?product=$_&cart_id=$cart_id\">$dcat</a>");

$d_category .= " - <option value=\"$sc_store_url?product=$_&cart_id=$cart_id\" target=\"_self\">$dcat</a></option>\n";

} else {

$v_category .= " - <a href=\"$_\.htm\">$dcat</a><br>\n";

push (@h_category, " - <a href=\"$_\.htm\">$dcat</a>");

$d_category .= " - <option value=\"$_\.htm=$cart_id\" target=\"_self\">$dcat</a></option>\n";

}

}

} else {

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$v_category .= "<a href=\"$sc_store_url?product=$_&cart_id=$cart_id&exact_match=on\">$dcat</a><br>\n";

push (@h_category, "<a href=\"$sc_store_url?product=$_&cart_id=$cart_id\">$dcat</a>");

$d_category .= "<option value=\"$sc_store_url?product=$_&cart_id=$cart_id\" target=\"_self\">$dcat</a></option>\n";

} else {

$v_category .= "<a href=\"$_\.htm\">$dcat</a><br>\n";

push (@h_category, "<a href=\"$_\.htm\">$dcat</a>");

$d_category .= "<option value=\"$_\.htm=$cart_id\" target=\"_self\">$dcat</a></option>\n";

}

}

}

close (CATFILE);

$h_category = join(' | ', @h_category);

$d_category .= qq~

</SELECT>

~;

return ($d_category, $v_category, $h_category);

}

############################################################

# mini_cart

############################################################

sub mini_cart

{

my ($mini_cart, $mc_count, $mc_quantity, $mc_price, $mc_total_cost);

my ($mc_product, $mc_id);

open (CART, "$sc_cart_path");

while (<CART>)

{

$mc_count++;

@mc_cart_fields = split (/\|/, $_);

$mc_quantity = $mc_cart_fields[$cart{"quantity"}];

$mc_product = $mc_cart_fields[$cart{"product"}];

$mc_price = $mc_cart_fields[$cart{"price_after_options"}];

$mc_total_cost += $mc_quantity * $mc_price;

$mc_id = $mc_cart_fields[$cart{"product_id"}];

# If using buy now button where pid is 0 then just return to home page.

if ($mc_cart_fields[$cart{"product_id"}] > 0)

{

$mc_contents.= qq~

+ <a href="$sc_store_url?pid=$mc_id&product=$mc_product&cart_id=$cart_id">

$mc_cart_fields[$cart{"name"}]</a><br>

~;

} else {

$mc_contents.= qq~

+ $mc_cart_fields[$cart{"name"}]<br>

~;

}

}

close (CART);

$cart_total = &display_price(&format_price($mc_total_cost));

if ($mc_count > 0)

{

$minicart = qq~

$mc_contents

<div> </div>

<div>Items in cart: $mc_count </div>

<div>Sub Total: $cart_total</div>

~;

} else {

$minicart = qq~

+ Your cart is empty<br><br>Items in cart: 0 <br>Sub Total: $cart_total

~;

}

return ($minicart);

}

#######################################################################

# Create links to all the pages in the pages directory

#######################################################################

sub pages

{

local ($pages, $pname, $ext);

opendir(PAGES,"$Path/pages") || &errorcode(__FILE__, __LINE__, "$Path/pages", "$!", "print", "OPENDIR ERROR", "3");

@pnames = readdir(PAGES);

for $pnames(@pnames)

{

($pname, $ext) = split (/\./, $pnames);

$pname =~ s/_/ /g;

if ($pname && $pname ne "Home" && $ext eq "htm")

{

if ($ENV{'REQUEST_URI'} =~ /commerce.cgi/i || !($use_html))

{

$pages .= "<a href=\"$sc_store_url?page=$pnames&cart_id=$cart_id\">$pname</a><br>\n";

$h_pages .= "|  <a href=\"$sc_store_url?page=$pnames&cart_id=$cart_id\">$pname</a>\n";

} else {

$pages .= "<a href=\"$html_folder\/$pnames\">$pname</a><br>\n";

$h_pages .= "|  <a href=\"$html_folder\/$pnames\">$pname</a>\n";

}

}

}

close (PAGES);

return ($pages, $h_pages);

}

#################################################################

# display_price

#################################################################

sub display_price

{

local ($price) = @_;

local ($format_price);

if ($sc_money_symbol_placement eq "front")

{

$format_price = "$sc_money_symbol $price";

} else {

$format_price = "$price $sc_money_symbol";

}

return $format_price;

}

1;

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

That is the reason I ask if someone who knew anything about commerce,cgi shopping cart software.
There is no shipping_by_category that I know of, I though someone who Had knowledge of commerce-cgi might be able to help me build one.

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

You have lost me there

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

I did not change any script this is and add on script for shipping cost per category.

I will attach a script that is a add on for shipping per subtotal, this script is all ready in the add-on fold.
it is a pl script I had to change the name to a txt file, would not take here other wise.
shipping-by-subtotal.txt

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER CERTIFIED SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

Looked in all the directories no log file and no tmp directory

ASKER

The checkout showed $1.00 added to my total

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

I made a tmp directory and set the permission to 777 and there is still no log file. and my server is not windows. This directory is in the cgi-bin folder and in the same directory as the add-0n folder which is set to 777

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

The $12.34 did show up and it wrote to the log file which I have attached
shipping-by-category.log

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER

I am already calculating the shipping cost using subtotals, but that that does it for all items in my shopping cart.

What I was looking for was to beable to set a shipping cost for each of my categories with a different shipping cost. That would include all the subcategories with in the category.

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.