Lines 119-130
if($op eq 'delete_confirm'){
Link Here
|
119 |
} |
119 |
} |
120 |
}elsif($op eq 'delete_confirmed'){ |
120 |
}elsif($op eq 'delete_confirmed'){ |
121 |
if($query->param('delitems') eq "Yes"){ |
121 |
if($query->param('delitems') eq "Yes"){ |
|
|
122 |
my @itemnumbers; |
122 |
foreach my $serialid (@serialsid){ |
123 |
foreach my $serialid (@serialsid){ |
123 |
my @itemnumbers = Koha::Serial::Items->search({serialid => $serialid})->get_column('itemnumber'); |
124 |
my @ids = Koha::Serial::Items->search({serialid => $serialid})->get_column('itemnumber'); |
124 |
foreach my $itemnumber (@itemnumbers){ |
125 |
push(@itemnumbers, @ids); |
125 |
my $delcheck = C4::Items::DelItemCheck($biblionumber, $itemnumber); |
126 |
} |
126 |
$template->param(error_delitem => 1) if $delcheck != 1; |
127 |
my $items = Koha::Items->search({ itemnumber => \@itemnumbers }); |
127 |
} |
128 |
while ( my $item = $items->next ) { |
|
|
129 |
my $error = $item->safe_delete; |
130 |
$template->param(error_delitem => 1) |
131 |
if $error eq '1'; |
128 |
} |
132 |
} |
129 |
} |
133 |
} |
130 |
for my $serialid (@serialsid){ |
134 |
for my $serialid (@serialsid){ |
131 |
- |
|
|