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

(-)a/svc/members/upsert (-3 / +2 lines)
Lines 199-205 sub update_borrower { Link Here
199
    my ( @f_borr, @v_borr );
199
    my ( @f_borr, @v_borr );
200
    while ( my ( $f, $v ) = each %$borr_fields ) {
200
    while ( my ( $f, $v ) = each %$borr_fields ) {
201
        next if $f =~ /^borrowernumber$/i;
201
        next if $f =~ /^borrowernumber$/i;
202
        die "Invalid fieldname provided (update): $f\n" if $f =~ /[^A-Za-z0-9]/;
202
        die "Invalid fieldname provided (update): $f\n" if $f =~ /[^A-Za-z0-9_]/;
203
        push @f_borr, $f;
203
        push @f_borr, $f;
204
        push @v_borr, $v;
204
        push @v_borr, $v;
205
    }
205
    }
Lines 274-280 sub create_borrower { Link Here
274
    # Borrower fields
274
    # Borrower fields
275
    my ( @f_borr, @v_borr );
275
    my ( @f_borr, @v_borr );
276
    while ( my ( $f, $v ) = each %$borr_fields ) {
276
    while ( my ( $f, $v ) = each %$borr_fields ) {
277
        die "Invalid fieldname provided: $f\n" if $f =~ /[^A-Za-z0-9]/;
277
        die "Invalid fieldname provided: $f\n" if $f =~ /[^A-Za-z0-9_]/;
278
        push @f_borr, $f;
278
        push @f_borr, $f;
279
        push @v_borr, $v;
279
        push @v_borr, $v;
280
    }
280
    }
281
- 

Return to bug 13607