# Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)

# Licensed under the GNU GPL v2. See file LICENSE for details.

# $Id: assign.coretag,v 1.4 2005-11-08 18:14:35 jon Exp $

UserTag assign addAttr

UserTag assign PosNumber 0

UserTag assign Version $Revision: 1.4 $

UserTag assign Routine <<EOR

my %_assignable = (qw/

salestax 1

shipping 1

handling 1

subtotal 1

credit 1

/);

sub {

my ($opt) = @_;

if($opt->{clear}) {

delete $Vend::Session->{assigned};

return;

}

$Vend::Session->{assigned} ||= {};

for(keys %$opt) {

next unless $_assignable{$_};

my $value = $opt->{$_};

$value =~ s/^\s+//;

$value =~ s/\s+$//;

if($value =~ /^-?\d+\.?\d*$/) {

$Vend::Session->{assigned}{$_} = $value;

}

else {

logError(

"Attempted assign of non-numeric '%s' to %s. Deleted.",

$value,

$_,

);

delete $Vend::Session->{assigned}{$_};

}

}

return;

}

EOR