* Allow explicit setting of negative numbers in items without

raising error on quantity update. To make an item eligible, set the mv_negative attribute true. (You must also have mv_control = notoss if you wish to survive the cart toss routine.)
interchange · Sep 18, 2015 · 059f5a3 · 059f5a3
1 parent 3a8884b
commit 059f5a3
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/lib/Vend/Order.pm b/lib/Vend/Order.pm
@@ -2132,15 +2132,20 @@ sub update_quantity {
     	$quantity = $CGI::values{"quantity$i"};
     	next unless defined $quantity;
 		my $do_update;
+
+		## Allow explicit negative numbers in items
+		my $intro = '';
+		$line->{mv_negative} and $intro = '-?';
+
 		my $old_item = $old_items{$i} ||= { %$line } if $raise_event;
-    	if ($quantity =~ m/^\d*$/) {
+    	if ($quantity =~ m/^$intro\d*$/) {
         	$line->{'quantity'} = $quantity || 0;
 			$do_update = 1;
 			$altered_items{$i} = 1
 				if $quantity_raise_event
 				and $line->{quantity} != $old_item->{quantity};
     	}
-    	elsif ($quantity =~ m/^[\d.]+$/
+    	elsif ($quantity =~ m/^$intro[\d.]+$/
 				and $Vend::Cfg->{FractionalItems} ) {
         	$line->{'quantity'} = $quantity;
 			$do_update = 1;