available_www_shipping —
Attribute | Pos. | Req. | Default | Description |
---|---|---|---|---|
interpolate | 0 | interpolate output? | ||
hide | 0 | Hide the tag return value? |
Interchange 5.9.0:
Source: code/UI_Tag/available_www_shipping.coretag
Lines: 61
# Copyright 2002-2007 Interchange Development Group and others # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. See the LICENSE file for details. # # $Id: available_www_shipping.coretag,v 1.5 2007-03-30 23:40:54 pajamian Exp $ UserTag available_www_shipping Order only UserTag available_www_shipping Version $Revision: 1.5 $ UserTag available_www_shipping Routine <<EOR sub { my ($only) = @_; my $ups; if(! $only or $only =~ /ups/i) { eval { require Business::UPS; }; $ups = $@ ? 0 : 1; } my @ups_modes; if($ups) { push @ups_modes, '1DM' => {type => 'UPS', description => 'Next Day Air Early AM'}, '1DML' => {type => 'UPS', description => 'Next Day Air Early AM Letter'}, '1DA' => {type => 'UPS', description => 'Next Day Air'}, '1DAL' => {type => 'UPS', description => 'Next Day Air Letter'}, '1DP' => {type => 'UPS', description => 'Next Day Air Saver'}, '1DPL' => {type => 'UPS', description => 'Next Day Air Saver Letter'}, '2DM' => {type => 'UPS', description => '2nd Day Air A.M.'}, '2DA' => {type => 'UPS', description => '2nd Day Air'}, '2DML' => {type => 'UPS', description => '2nd Day Air A.M. Letter'}, '2DAL' => {type => 'UPS', description => '2nd Day Air Letter'}, '3DS' => {type => 'UPS', description => '3 Day Select'}, 'GNDCOM' => {type => 'UPS', description => 'Ground Commercial'}, 'GNDRES' => {type => 'UPS', description => 'Ground Residential'}, 'XPR' => {type => 'UPS', description => 'Worldwide Express'}, 'XDM' => {type => 'UPS', description => 'Worldwide Express Plus'}, 'XPRL' => {type => 'UPS', description => 'Worldwide Express Letter'}, 'XDML' => {type => 'UPS', description => 'Worldwide Express Plus Letter'}, 'XPD' => {type => 'UPS', description => 'Worldwide Expedited'}, ; } if (wantarray) { return @ups_modes; } else { my $out = ''; my $i; for ($i = 0; $i < @ups_modes; $i += 2) { my $ref = $ups_modes[$i + 1]; $out .= qq{UPSE:$ups_modes[$i]\t$ref->{type}: $ref->{description}\n}; } return $out; } } EOR