|
Lines 190-197
sub CartToShelf {
Link Here
|
| 190 |
} |
190 |
} |
| 191 |
|
191 |
|
| 192 |
my $item = GetItem($itemnumber); |
192 |
my $item = GetItem($itemnumber); |
| 193 |
$item->{location} = $item->{permanent_location}; |
193 |
if ( $item->{location} eq 'CART' ) { |
| 194 |
ModItem($item, undef, $itemnumber); |
194 |
$item->{location} = $item->{permanent_location}; |
|
|
195 |
ModItem($item, undef, $itemnumber); |
| 196 |
} |
| 195 |
} |
197 |
} |
| 196 |
|
198 |
|
| 197 |
=head2 AddItemFromMarc |
199 |
=head2 AddItemFromMarc |
|
Lines 542-547
sub ModItemTransfer {
Link Here
|
| 542 |
|
544 |
|
| 543 |
my $dbh = C4::Context->dbh; |
545 |
my $dbh = C4::Context->dbh; |
| 544 |
|
546 |
|
|
|
547 |
# Remove the 'shelving cart' location status if it is being used. |
| 548 |
CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") ); |
| 549 |
|
| 545 |
#new entry in branchtransfers.... |
550 |
#new entry in branchtransfers.... |
| 546 |
my $sth = $dbh->prepare( |
551 |
my $sth = $dbh->prepare( |
| 547 |
"INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) |
552 |
"INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) |