|
Lines 358-364
sub ModMember {
Link Here
|
| 358 |
|
358 |
|
| 359 |
# trim whitespace from data which has some non-whitespace in it. |
359 |
# trim whitespace from data which has some non-whitespace in it. |
| 360 |
foreach my $field_name (keys(%data)) { |
360 |
foreach my $field_name (keys(%data)) { |
| 361 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { |
361 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ |
|
|
362 |
&& !ref($data{$field_name}) ) { |
| 362 |
$data{$field_name} =~ s/^\s*|\s*$//g; |
363 |
$data{$field_name} =~ s/^\s*|\s*$//g; |
| 363 |
} |
364 |
} |
| 364 |
} |
365 |
} |
|
Lines 452-458
sub AddMember {
Link Here
|
| 452 |
|
453 |
|
| 453 |
# trim whitespace from data which has some non-whitespace in it. |
454 |
# trim whitespace from data which has some non-whitespace in it. |
| 454 |
foreach my $field_name (keys(%data)) { |
455 |
foreach my $field_name (keys(%data)) { |
| 455 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { |
456 |
if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ |
|
|
457 |
&& !ref($data{$field_name}) ) { |
| 456 |
$data{$field_name} =~ s/^\s*|\s*$//g; |
458 |
$data{$field_name} =~ s/^\s*|\s*$//g; |
| 457 |
} |
459 |
} |
| 458 |
} |
460 |
} |
| 459 |
- |
|
|