[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