View | Details | Raw Unified | Return to bug 14576
Collapse All | Expand All

(-)a/C4/Items.pm (-23 lines)
Lines 88-94 BEGIN { Link Here
88
    GetLatestAcquisitions
88
    GetLatestAcquisitions
89
89
90
        CartToShelf
90
        CartToShelf
91
        ShelfToCart
92
91
93
	GetAnalyticsCount
92
	GetAnalyticsCount
94
93
Lines 203-229 sub CartToShelf { Link Here
203
    }
202
    }
204
}
203
}
205
204
206
=head2 ShelfToCart
207
208
  ShelfToCart($itemnumber);
209
210
Set the current shelving location of the item
211
to shelving cart ('CART').
212
213
=cut
214
215
sub ShelfToCart {
216
    my ( $itemnumber ) = @_;
217
218
    unless ( $itemnumber ) {
219
        croak "FAILED ShelfToCart() - no itemnumber supplied";
220
    }
221
222
    my $item = GetItem($itemnumber);
223
    $item->{'location'} = 'CART';
224
    ModItem($item, undef, $itemnumber);
225
}
226
227
=head2 AddItemFromMarc
205
=head2 AddItemFromMarc
228
206
229
  my ($biblionumber, $biblioitemnumber, $itemnumber) 
207
  my ($biblionumber, $biblioitemnumber, $itemnumber) 
230
- 

Return to bug 14576