+ if ( $item->{location} eq 'CART' ) {
+ $item->{location} = $item->{permanent_location};
+ ModItem($item, undef, $itemnumber);
+ }
+}
+
+=head2 ShelfToCart
+
+ ShelfToCart($itemnumber);
+
+Set the current shelving location of the item
+to shelving cart ('CART').
+
+=cut
+
+sub ShelfToCart {
+ my ( $itemnumber ) = @_;
+
+ unless ( $itemnumber ) {
+ croak "FAILED ShelfToCart() - no itemnumber supplied";
+ }
+
+ my $item = GetItem($itemnumber);
+ $item->{'location'} = 'CART';