View | Details | Raw Unified | Return to bug 35329
Collapse All | Expand All

(-)a/serials/routing.pl (-2 / +8 lines)
Lines 26-31 printed out Link Here
26
=cut
26
=cut
27
27
28
use Modern::Perl;
28
use Modern::Perl;
29
use Try::Tiny;
29
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
30
use C4::Koha;
31
use C4::Koha;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Auth qw( get_template_and_user );
Lines 68-74 if($op eq 'cud-delete'){ Link Here
68
69
69
if ( $op eq 'cud-add_new_recipients' ) {
70
if ( $op eq 'cud-add_new_recipients' ) {
70
    for my $borrowernumber ( split ':', $borrowernumbers ) {
71
    for my $borrowernumber ( split ':', $borrowernumbers ) {
71
        addroutingmember( $borrowernumber, $subscriptionid );
72
        try {
73
            addroutingmember( $borrowernumber, $subscriptionid );
74
        } catch {
75
            if ( $_ !~ m{Duplicate entry .* for key 'subscriptionid'} ) {
76
                warn $_;
77
            }
78
        };
72
    }
79
    }
73
}
80
}
74
if($op eq 'cud-save'){
81
if($op eq 'cud-save'){
75
- 

Return to bug 35329