@@ -, +, @@ => 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; --