From e4621f84635990ef05f15d80da3031029306d3ec Mon Sep 17 00:00:00 2001 From: Robin Sheat Date: Mon, 9 Feb 2015 12:20:14 +1300 Subject: [PATCH] Bug 13607: fix to account for _ in fieldnames --- svc/members/upsert | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/svc/members/upsert b/svc/members/upsert index b826a8c..727bb84 100755 --- a/svc/members/upsert +++ b/svc/members/upsert @@ -199,7 +199,7 @@ sub update_borrower { my ( @f_borr, @v_borr ); while ( my ( $f, $v ) = each %$borr_fields ) { next if $f =~ /^borrowernumber$/i; - die "Invalid fieldname provided (update): $f\n" if $f =~ /[^A-Za-z0-9]/; + die "Invalid fieldname provided (update): $f\n" if $f =~ /[^A-Za-z0-9_]/; push @f_borr, $f; push @v_borr, $v; } @@ -274,7 +274,7 @@ sub create_borrower { # Borrower fields my ( @f_borr, @v_borr ); while ( my ( $f, $v ) = each %$borr_fields ) { - die "Invalid fieldname provided: $f\n" if $f =~ /[^A-Za-z0-9]/; + die "Invalid fieldname provided: $f\n" if $f =~ /[^A-Za-z0-9_]/; push @f_borr, $f; push @v_borr, $v; } -- 2.1.0