|
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 |
- |
|
|