Name

UPS_ORIGIN — (partly documented)

SYNOPSIS

{ }

DESCRIPTION

It sets a default value for the shipping origin.

VARIABLE TYPE

Catalog variable

EXAMPLES

No examples are available at this time. We do consider this a problem and will try to supply some.

NOTES

AVAILABILITY

UPS_ORIGIN is available in Interchange versions:

4.6.0-5.7.0 (git-head)

SOURCE

Interchange 5.7.0:

Source: code/UserTag/ups_query.tag
Line 24 (context shows lines 14-28)

sub {
 my( $mode, $origin, $zip, $weight, $country, $opt) = @_;
$opt ||= {};
BEGIN {
  eval {
    require Business::UPS;
    import Business::UPS;
  };
};

$origin    = $::Variable->{UPS_ORIGIN}
        if ! $origin;
$country  = $::Values->{$::Variable->{UPS_COUNTRY_FIELD}}
        if ! $country;
$zip    = $::Values->{$::Variable->{UPS_POSTCODE_FIELD}}

Source: lib/Vend/Ship/QueryUPS.pm
Line 54 (context shows lines 44-58 in calculate():41)

unless($Have_Business_UPS) {
  do_error("Ship mode %s: Requires installation of Business::UPS", $mode);
}

$opt->{service}         ||= $opt->{table};
if(! $opt->{service} and $extra =~ /^\w+$/)  {
  $opt->{service} = $extra;
}
$opt->{service} ||= $opt->{table} || $mode;

$opt->{origin}      ||= $::Variable->{UPS_ORIGIN};
$opt->{country_field}  ||= $::Variable->{UPS_COUNTRY_FIELD} || 'country';
$opt->{geo}        ||= $::Variable->{UPS_POSTCODE_FIELD} || 'zip';

my $origin  = $opt->{origin};

AUTHORS

Interchange Development Group

SEE ALSO

DocBook! Interchange!