my $items = &GetItemsByBiblioitemnumber($biblioitem->{biblioitemnumber});
foreach my $item (@$items){
- &DelItem($dbh,$biblionumber,$item->{itemnumber});
+ &DelItemCheck($dbh,$biblionumber,$item->{itemnumber});
}
}
print $input->redirect("/cgi-bin/koha/catalogue/moredetail.pl?biblionumber=$biblionumber");
foreach my $field (@fields) {
next if ($field->tag()<10);
- my @subf = $field->subfields || ();
+ my @subf = $field->subfields or (); # don't use ||, as that forces $field->subfelds to be interpreted in scalar context
my %this_row;
# loop through each subfield
for my $i (0..$#subf) {
C4::Context->userenv &&
C4::Context->userenv->{flags}!=1 &&
C4::Context->userenv->{branch};
-my $branches = GetBranches($onlymine); # build once ahead of time, instead of multiple times later.
+my $branches = GetBranchesLoop(undef,$onlymine); # build once ahead of time, instead of multiple times later.
foreach my $tag (sort keys %{$tagslib}) {
# loop through each subfield
itemtagsubfield => $itemtagsubfield,
op => $nextop,
opisadd => ($nextop eq "saveitem") ? 0 : 1,
+ C4::Search::enabled_staff_search_views,
);
foreach my $error (@errors) {
$template->param($error => 1);