@@ -, +, @@
=> The new expected issue is created correctly
=> No feedback is show to the user
=> As before, the serial is deleted, but not the item
=> This time, an error is shown to inform the user
---
.../prog/en/modules/serials/serials-collection.tt | 6 ++++++
serials/serials-collection.pl | 7 ++++---
2 files changed, 10 insertions(+), 3 deletions(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tt
@@ -55,6 +55,12 @@
[% END %]
+[% IF ( error_delitem ) %]
+
+
Error: one or more associated items could not be deleted at this time.
+
+[% END %]
+
[% IF ( subscriptions ) %]
[% IF ( subscriptions.size == 1 ) %]
--- a/serials/serials-collection.pl
+++ a/serials/serials-collection.pl
@@ -124,14 +124,15 @@ if($op eq 'delete_confirm'){
foreach my $serialid (@serialsid){
my @itemnumbers = Koha::Serial::Items->search({serialid => $serialid})->get_column('itemnumber');
foreach my $itemnumber (@itemnumbers){
- C4::Items::DelItem({'biblionumber' => $biblionumber, 'itemnumber' => $itemnumber});
+ my $delcheck = C4::Items::DelItemCheck($biblionumber, $itemnumber);
+ $template->param(error_delitem => 1) if $delcheck != 1;
}
}
}
for my $serialid (@serialsid){
- ModSerialStatus($serialid,"","","","",6);
+ my $serial = Koha::Serials->find($serialid);
+ ModSerialStatus($serialid, $serial->serialseq, $serial->planneddate, $serial->publisheddate, $serial->publisheddatetext, 6, "");
}
- print $query->redirect('/cgi-bin/koha/serials/serials-collection.pl?subscriptionid='.$subscriptionid);
}
my $subscriptioncount;
--