Fix naming problem with shippingServices, update tests.

This commit is contained in:
Colin Kuskie 2010-10-14 19:31:04 -07:00
parent 2edec772e5
commit 499feb420b
2 changed files with 16 additions and 25 deletions

View file

@ -89,7 +89,7 @@ property shipService => (
options => \&_shippingServices_options,
default => '03',
);
sub _shipService_options {
sub _shippingServices_options {
my $session = shift->session;
my $i18n = WebGUI::International->new($session, 'ShipDriver_UPS');
tie my %shippingServices, 'Tie::IxHash';