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

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

Return to bug 14576