|
Lines 966-971
elsif ( $op eq "delete" ) {
Link Here
|
| 966 |
exit; |
966 |
exit; |
| 967 |
} |
967 |
} |
| 968 |
|
968 |
|
|
|
969 |
#Check if there are component part records to delete |
| 970 |
my @removalErrors; |
| 971 |
foreach my $componentPartBiblionumber ( @{C4::Biblio::getComponentBiblionumbers( $record )} ) { |
| 972 |
my $error = &DelBiblio($componentPartBiblionumber); |
| 973 |
my $html = "<a href='/cgi-bin/koha/catalogue/detail.pl?biblionumber=$componentPartBiblionumber'>$componentPartBiblionumber</a>"; |
| 974 |
push(@removalErrors, $html.' : '.$error) if $error; |
| 975 |
} |
| 976 |
if (@removalErrors) { |
| 977 |
warn "ERROR when DELETING COMPONENT PART BIBLIOS: \n" . join("\n",@removalErrors); |
| 978 |
print "Content-Type: text/html\n\n<html><body><h1>ERROR when DELETING COMPONENT PART BIBLIOS:</h1>" . join("<br />",@removalErrors)."</body></html>"; |
| 979 |
exit; |
| 980 |
} |
| 981 |
#I think we got them all! |
| 982 |
|
| 969 |
print $input->redirect('/cgi-bin/koha/catalogue/search.pl'); |
983 |
print $input->redirect('/cgi-bin/koha/catalogue/search.pl'); |
| 970 |
exit; |
984 |
exit; |
| 971 |
|
985 |
|
| 972 |
- |
|
|