use Date::Calc qw(Today);
use MARC::File::XML;
+
+use Koha::Items;
+
my $query = CGI->new;
# The biblio to move the item to
# If we already have the barcode of the item to move and the biblionumber to move the item to
if ($barcode && $biblionumber) {
-
- # We get his itemnumber
- my $itemnumber = GetItemnumberFromBarcode($barcode);
- if ($itemnumber) {
- # And then, we get the item
- my $item = GetItem($itemnumber);
+ my $itemnumber;
+ my $item = Koha::Items->find({ barcode => $barcode });
+
+ if ($item) {
- if ($item) {
+ $itemnumber = $item->itemnumber;
+ my $frombiblionumber = $item->biblionumber;
- my $results = GetBiblioFromItemNumber($itemnumber, $barcode);
- my $frombiblionumber = $results->{'biblionumber'};
-
my $moveresult = MoveItemFromBiblio($itemnumber, $frombiblionumber, $biblionumber);
if ($moveresult) {
$template->param(success => 1);
$template->param(error => 1,
errornoitem => 1);
}
- } else {
- $template->param(error => 1,
- errornoitemnumber => 1);
-
- }
$template->param(
barcode => $barcode,
itemnumber => $itemnumber,