AgoraCart Free User Forums

Code:

$ship_method = $form_data{'Ecom_ShipTo_Method'};
 if ($ship_method eq "") {
   $use_vform = "yes";
   $ship_method = $vform{'Ecom_ShipTo_Method'};
 }
if ($ship_method eq "Verzenden"){
  $shipping_price = 150;
#line above must be eventualy be something like:
#$shipping_price = (&calculate_pallets *150);
#where calculate pallets is a custom sub returning the number
#of pallets needed.
}
else{
  $shipping_price = 0;
}
$shipping_logic_done = "yes";

Code:

#######################################################################
sub calculate_pallets {
local (@transport,$quantity,$id,$pallets,$space1845,$space1345,$spacebig)=0;

open (CART, "$sc_cart_path")|| &file_open_error("$sc_cart_path", "display_cart_contents", __FILE__, __LINE__);
   while (<CART>)
   {
    @transport = split (/\|/, $_);
             $quantity = $transport[0];
        $id = $transport[1];
         if ($id eq "00034"){
           $pallets += $quantity;
           $space1845 += ($quantity *2);
            $space1345 += ($quantity *2);             
         }
         if ($id eq "00035"){
           $pallets += $quantity;
           $space1845 += $quantity;
            $space1345 += ($quantity *2);
         }
         if ($id eq "00036"){
           $space1845 -=$quantity;
            $space1345 -=$quantity;
            while ($space1845 <0){
             $pallets += 1;
               $space1845 += 4;
               $space1345 += 4;
               $spacebig +=1;
            }
         }   
         if ($id eq "00037"){
           $space1835 -=$quantity;
            $space1345 -=$quantity;
            while ($space1345 <0){
             $pallets += 1;
               $space1835 += 4;
               $space1345 += 4;
               $spacebig += 1;
            }
         }
   
   }
   close(CART);
   
return $pallets;
}   
1; #we are a library