AddItem
AddItemBatchFromMarc
ModItemFromMarc
- Item2Marc
+ Item2Marc
ModItem
ModDateLastSeen
ModItemTransfer
GetItemnumberFromBarcode
GetBarcodeFromItemnumber
GetHiddenItemnumbers
- DelItemCheck
- MoveItemFromBiblio
- GetLatestAcquisitions
+ DelItemCheck
+ MoveItemFromBiblio
+ GetLatestAcquisitions
+
CartToShelf
+ ShelfToCart
GetAnalyticsCount
GetItemHolds
}
my $item = GetItem($itemnumber);
- $item->{location} = $item->{permanent_location};
+ if ( $item->{location} eq 'CART' ) {
+ $item->{location} = $item->{permanent_location};
+ ModItem($item, undef, $itemnumber);
+ }
+}
+
+=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);
}
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields);
};
- $item->{'itemnumber'} = $itemnumber or return undef;
+ $item->{'itemnumber'} = $itemnumber or return;
$item->{onloan} = undef if $item->{itemlost};
my $dbh = C4::Context->dbh;
+ # Remove the 'shelving cart' location status if it is being used.
+ CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") );
+
#new entry in branchtransfers....
my $sth = $dbh->prepare(
"INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch)
my $dbh = C4::Context->dbh;
my $query = "
- SELECT *
+ SELECT title, author, lib, itemlost, authorised_value, barcode, datelastseen, price, replacementprice, homebranch,
+ itype, itemtype, holdingbranch, location, itemnotes, items.biblionumber as biblionumber
FROM items
LEFT JOIN biblio ON (items.biblionumber = biblio.biblionumber)
LEFT JOIN biblioitems ON (items.biblionumber = biblioitems.biblionumber)
# delete from items table
$sth = $dbh->prepare("DELETE FROM items WHERE itemnumber=?");
$sth->execute($itemnum);
- return undef;
+ return;
}
=head2 _marc_from_item_hash
if ( ( $tagslib->{$tag}->{$subfield}->{kohafield} eq 'items.location' )
&& $defaultvalues
&& $defaultvalues->{'location'} ) {
- my $temp = $itemrecord->field($subfield) if ($itemrecord);
+
+ my $temp; # make perlcritic happy :)
+ $temp = $itemrecord->field($subfield) if ($itemrecord);
+
unless ($temp) {
$defaultvalue = $defaultvalues->{location} if $defaultvalues;
}