|
Lines 355-360
true on success, or false on failure
Link Here
|
| 355 |
|
355 |
|
| 356 |
sub ModMember { |
356 |
sub ModMember { |
| 357 |
my (%data) = @_; |
357 |
my (%data) = @_; |
|
|
358 |
|
| 359 |
# trim whitespace from data which has some non-whitespace in it. |
| 360 |
foreach my $field_name (keys(%data)) { |
| 361 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { |
| 362 |
$data{$field_name} =~ s/^\s*|\s*$//g; |
| 363 |
} |
| 364 |
} |
| 365 |
|
| 358 |
# test to know if you must update or not the borrower password |
366 |
# test to know if you must update or not the borrower password |
| 359 |
if (exists $data{password}) { |
367 |
if (exists $data{password}) { |
| 360 |
if ($data{password} eq '****' or $data{password} eq '') { |
368 |
if ($data{password} eq '****' or $data{password} eq '') { |
|
Lines 442-447
sub AddMember {
Link Here
|
| 442 |
my $dbh = C4::Context->dbh; |
450 |
my $dbh = C4::Context->dbh; |
| 443 |
my $schema = Koha::Database->new()->schema; |
451 |
my $schema = Koha::Database->new()->schema; |
| 444 |
|
452 |
|
|
|
453 |
# trim whitespace from data which has some non-whitespace in it. |
| 454 |
foreach my $field_name (keys(%data)) { |
| 455 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { |
| 456 |
$data{$field_name} =~ s/^\s*|\s*$//g; |
| 457 |
} |
| 458 |
} |
| 459 |
|
| 445 |
# generate a proper login if none provided |
460 |
# generate a proper login if none provided |
| 446 |
$data{'userid'} = Generate_Userid( $data{'borrowernumber'}, $data{'firstname'}, $data{'surname'} ) |
461 |
$data{'userid'} = Generate_Userid( $data{'borrowernumber'}, $data{'firstname'}, $data{'surname'} ) |
| 447 |
if ( $data{'userid'} eq '' || !Check_Userid( $data{'userid'} ) ); |
462 |
if ( $data{'userid'} eq '' || !Check_Userid( $data{'userid'} ) ); |
| 448 |
- |
|
|