[ic] Oversized shipping surcharge

kerry at basicq.com kerry at basicq.com
Sat Jan 9 00:00:50 UTC 2010


I am on 5.6.2, so I should be good to go. Will test it this weekend if
time permits.
Thanks
> 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) {
>
> _______________________________________________
> interchange-users mailing list
> interchange-users at icdevgroup.org
> http://www.icdevgroup.org/mailman/listinfo/interchange-users
>




More information about the interchange-users mailing list