gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(bug #2915) C4::Biblio::DelBiblio delete the serials 

This patch add the serials deletion in DelBiblio function, so now when a record is deleted all attached serials will be too.

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
This commit is contained in:
Nahuel ANGELINETTI 2009-01-15 10:15:18 +01:00 committed by Henri-Damien LAURENT
parent 239700d079
commit 44d6b2e9c6
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C4/Biblio.pm
View File

@ -33,6 +33,7 @@ use C4::Log; # logaction
use C4::ClassSource;
use C4::Charset;
require C4::Heading;
require C4::Serials;
use vars qw($VERSION @ISA @EXPORT);
@ -362,6 +363,14 @@ sub DelBiblio {
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});
}
}
# Delete in Zebra. Be careful NOT to move this line after _koha_delete_biblio
# for at least 2 reasons :
# - we need to read the biblio if NoZebra is set (to remove it from the indexes