Following up on a suggestion by Joe Atzberger, save
a database query by not counting the subscriptions
to delete; instead, simply fetch a list of them.
No user-visible change.
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
return $error if $error;
# We delete attached subscriptions
- if(C4::Serials::CountSubscriptionFromBiblionumber($biblionumber) != 0){
- my $subscriptions = &C4::Serials::GetFullSubscriptionsFromBiblionumber($biblionumber);
- foreach my $subscription (@$subscriptions){
- &C4::Serials::DelSubscription($subscription->{subscriptionid});
- }
+ my $subscriptions = &C4::Serials::GetFullSubscriptionsFromBiblionumber($biblionumber);
+ foreach my $subscription (@$subscriptions){
+ &C4::Serials::DelSubscription($subscription->{subscriptionid});
}
# Delete in Zebra. Be careful NOT to move this line after _koha_delete_biblio