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