GetLatestAcquisitions
CartToShelf
ShelfToCart
GetAnalyticsCount
}
=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';
ModItem($item, undef, $itemnumber);
=head2 AddItemFromMarc
my ($biblionumber, $biblioitemnumber, $itemnumber)
-