|
Lines 48-54
BEGIN {
Link Here
|
| 48 |
AddItem |
48 |
AddItem |
| 49 |
AddItemBatchFromMarc |
49 |
AddItemBatchFromMarc |
| 50 |
ModItemFromMarc |
50 |
ModItemFromMarc |
| 51 |
Item2Marc |
51 |
Item2Marc |
| 52 |
ModItem |
52 |
ModItem |
| 53 |
ModDateLastSeen |
53 |
ModDateLastSeen |
| 54 |
ModItemTransfer |
54 |
ModItemTransfer |
|
Lines 72-81
BEGIN {
Link Here
|
| 72 |
GetItemnumberFromBarcode |
72 |
GetItemnumberFromBarcode |
| 73 |
GetBarcodeFromItemnumber |
73 |
GetBarcodeFromItemnumber |
| 74 |
GetHiddenItemnumbers |
74 |
GetHiddenItemnumbers |
| 75 |
DelItemCheck |
75 |
DelItemCheck |
| 76 |
MoveItemFromBiblio |
76 |
MoveItemFromBiblio |
| 77 |
GetLatestAcquisitions |
77 |
GetLatestAcquisitions |
|
|
78 |
|
| 78 |
CartToShelf |
79 |
CartToShelf |
|
|
80 |
ShelfToCart |
| 79 |
|
81 |
|
| 80 |
GetAnalyticsCount |
82 |
GetAnalyticsCount |
| 81 |
GetItemHolds |
83 |
GetItemHolds |
|
Lines 190-196
sub CartToShelf {
Link Here
|
| 190 |
} |
192 |
} |
| 191 |
|
193 |
|
| 192 |
my $item = GetItem($itemnumber); |
194 |
my $item = GetItem($itemnumber); |
| 193 |
$item->{location} = $item->{permanent_location}; |
195 |
if ( $item->{location} eq 'CART' ) { |
|
|
196 |
$item->{location} = $item->{permanent_location}; |
| 197 |
ModItem($item, undef, $itemnumber); |
| 198 |
} |
| 199 |
} |
| 200 |
|
| 201 |
=head2 ShelfToCart |
| 202 |
|
| 203 |
ShelfToCart($itemnumber); |
| 204 |
|
| 205 |
Set the current shelving location of the item |
| 206 |
to shelving cart ('CART'). |
| 207 |
|
| 208 |
=cut |
| 209 |
|
| 210 |
sub ShelfToCart { |
| 211 |
my ( $itemnumber ) = @_; |
| 212 |
|
| 213 |
unless ( $itemnumber ) { |
| 214 |
croak "FAILED ShelfToCart() - no itemnumber supplied"; |
| 215 |
} |
| 216 |
|
| 217 |
my $item = GetItem($itemnumber); |
| 218 |
$item->{'location'} = 'CART'; |
| 194 |
ModItem($item, undef, $itemnumber); |
219 |
ModItem($item, undef, $itemnumber); |
| 195 |
} |
220 |
} |
| 196 |
|
221 |
|
|
Lines 542-547
sub ModItemTransfer {
Link Here
|
| 542 |
|
567 |
|
| 543 |
my $dbh = C4::Context->dbh; |
568 |
my $dbh = C4::Context->dbh; |
| 544 |
|
569 |
|
|
|
570 |
# Remove the 'shelving cart' location status if it is being used. |
| 571 |
CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") ); |
| 572 |
|
| 545 |
#new entry in branchtransfers.... |
573 |
#new entry in branchtransfers.... |
| 546 |
my $sth = $dbh->prepare( |
574 |
my $sth = $dbh->prepare( |
| 547 |
"INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) |
575 |
"INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) |