[ic] Oversized shipping surcharge

Daniel Browning db at endpoint.com
Fri Jan 8 21:27:15 UTC 2010


On Friday 08 January 2010 1:00:31 pm kerry at basicq.com wrote:
> Would this add the say $7.50 in your example to the already in use
> shipping I am using? And would it add it to that amount in checkout?

Yes and yes. I forgot to mention that it requires Interchange 5.6.0. 
If you have an older version, the feature can be added with the 
following patch:

http://git.icdevgroup.org/?p=interchange.git;a=blobdiff_plain;f=lib/Vend/Ship.pm;h=18019dfb1aca62532d4e71d5b3b558a65ef5639e;hp=04ebe03ce12eba56e931cab2a4456dd0e062e25d;hb=5982a00211ada9c38d00e6b4b0da33bd5ed950eb;hpb=2e653b0fe1056d566cbd773fce9ac0e304a67949

--
Daniel Browning
End Point Corporation
http://www.endpoint.com/


diff --git a/lib/Vend/Ship.pm b/lib/Vend/Ship.pm
index 04ebe03..18019df 100644
--- a/lib/Vend/Ship.pm
+++ b/lib/Vend/Ship.pm
@@ -1,8 +1,8 @@
 # Vend::Ship - Interchange shipping code
 # 
-# $Id: Ship.pm,v 2.26 2007-08-09 13:40:54 pajamian Exp $
+# $Id: Ship.pm,v 2.27 2008-04-11 07:47:16 danb Exp $
 #
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
 #
 # This program was originally based on Vend 0.2 and 0.3
@@ -909,6 +909,16 @@ sub shipping {
 			}
 			undef $opt->{default};
 		}
+		if (my $callout_name = $Vend::Cfg->{SpecialSub}{shipping_callout}) {
+#::logDebug("Execute shipping callout '$callout_name(...)'");
+			my $sub = $Vend::Cfg->{Sub}{$callout_name} 
+				|| $Global::GlobalSub->{$callout_name};
+			eval {
+				my $callout_result = $sub->($final, $mode, $opt, $o);
+				$final = $callout_result if defined $callout_result;
+			};
+			::logError("Shipping callout '$callout_name' died: $@") if $@;
+		}
 		return $final unless $opt->{label};
 		my $number;
 		if($o->{free} and $final == 0) {



More information about the interchange-users mailing list