Bug 35329: Handle duplicate without 500

This is not perfect but way better than before!

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Author: joubu

serials/routing.pl

@@ -26,6 +26,7 @@ =head1 Routing.pl
 =cut
 
 use Modern::Perl;
+use Try::Tiny;
 use CGI qw ( -utf8 );
 use C4::Koha;
 use C4::Auth qw( get_template_and_user );
@@ -68,7 +69,13 @@ =head1 Routing.pl
 
 if ( $op eq 'cud-add_new_recipients' ) {
     for my $borrowernumber ( split ':', $borrowernumbers ) {
-        addroutingmember( $borrowernumber, $subscriptionid );
+        try {
+            addroutingmember( $borrowernumber, $subscriptionid );
+        } catch {
+            if ( $_ !~ m{Duplicate entry .* for key 'subscriptionid'} ) {
+                warn $_;
+            }
+        };
     }
 }
 if($op eq 'cud-save'){