# along with Koha; if not, see <http://www.gnu.org/licenses>.
use CGI qw ( -utf8 );
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use C4::Auth;
use C4::Output;
use C4::Biblio;
use Koha::Biblios;
use Koha::DateUtils;
+use Koha::Items;
use Koha::ItemTypes;
+use Koha::Patrons;
my $input = new CGI;
my $dbh = C4::Context->dbh;
});
# Does the user have a restricted item edition permission?
-my $uid = $loggedinuser ? GetMember( borrowernumber => $loggedinuser )->{userid} : undef;
+my $uid = $loggedinuser ? Koha::Patrons->find( $loggedinuser )->userid : undef;
my $restrictededition = $uid ? haspermission($uid, {'tools' => 'items_batchmod_restricted'}) : undef;
# In case user is a superlibrarian, edition is not restricted
$restrictededition = 0 if ($restrictededition != 0 && C4::Context->IsSuperLibrarian());
$items_display_hashref=BuildItemsData(@itemnumbers);
} else {
# Else, we only display the barcode
- my @simple_items_display = map {{ itemnumber => $_, barcode => (GetBarcodeFromItemnumber($_) or ""), biblionumber => (GetBiblionumberFromItemnumber($_) or "") }} @itemnumbers;
+ my @simple_items_display = map {
+ my $itemnumber = $_;
+ my $item = Koha::Items->find($itemnumber);
+ {
+ itemnumber => $itemnumber,
+ barcode => $item ? ( $item->barcode // q{} ) : q{},
+ biblionumber => $item ? $item->biblio->biblionumber : q{},
+ };
+ } @itemnumbers;
$template->param("simple_items_display" => \@simple_items_display);
}
if ( $modified ) {
eval {
if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) {
- LostItem($itemnumber, 'MARK RETURNED') if $item->{itemlost} and not $itemdata->{itemlost};
+ LostItem($itemnumber, 'batchmod') if $item->{itemlost} and not $itemdata->{itemlost};
}
};
}
push @contentlist, $content if $content;
}
+ @contentlist = uniq @contentlist;
if ($filecontent eq 'barcode_file') {
foreach my $barcode (@contentlist) {
# grab title, author, and ISBN to identify bib that the item
# belongs to in the display
- my $biblio=GetBiblioData($$itemdata{biblionumber});
- $this_row{title} = $biblio->{title};
- $this_row{author} = $biblio->{author};
- $this_row{isbn} = $biblio->{isbn};
- $this_row{biblionumber} = $biblio->{biblionumber};
+ my $biblio = Koha::Biblios->find( $itemdata->{biblionumber} );
+ $this_row{title} = $biblio->title;
+ $this_row{author} = $biblio->author;
+ $this_row{isbn} = $biblio->biblioitem->isbn;
+ $this_row{biblionumber} = $biblio->biblionumber;
if (%this_row) {
push(@big_array, \%this_row);