projects
/
eq
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
30fe961
)
Fixed bug related to preferred name mismatches with hometeaching family name.
author
Alan Jack Pippin
<ajp@pippin.(none)>
Mon, 11 Sep 2006 03:37:32 +0000
(21:37 -0600)
committer
Alan J. Pippin
<ajp@pippins.net>
Mon, 11 Sep 2006 03:37:32 +0000
(21:37 -0600)
import_ward_data
patch
|
blob
|
history
diff --git
a/import_ward_data
b/import_ward_data
index d54f8fc77d7429cce6bd0caf34fb4ec0fc4f96ce..da23ae4ed07291314712423e04d0b63c31301fac 100755
(executable)
--- a/
import_ward_data
+++ b/
import_ward_data
@@
-401,8
+401,11
@@
sub update_eq_family_table
$hashref = $hometeaching_data{$index};
foreach $key (keys %$hashref) {
if($hometeaching_data{$index}{'Household'} =~ /(\S+)\s+(\S+),\s+(\S+)\s+(.*)/) {
$hashref = $hometeaching_data{$index};
foreach $key (keys %$hashref) {
if($hometeaching_data{$index}{'Household'} =~ /(\S+)\s+(\S+),\s+(\S+)\s+(.*)/) {
- print "I: Adjusting hometeaching match from: $hometeaching_data{$index}{'Household'} to $1, $3 $4\n";
- $hometeaching_data{$index}{'Household'} = "$1, $3 $4";
+ $a = $1; $b = $2; $c = $3; $d = $4;
+ if($family_name =~ /$a/ && $hometeaching_data{$index}{'Household'} !~ /$family_name/i) {
+ print "I: Adjusting hometeaching match from: $hometeaching_data{$index}{'Household'} to $a, $c $d\n";
+ $hometeaching_data{$index}{'Household'} = "$a, $c $d";
+ }
}
if($key =~ /Quorum/i &&
$hometeaching_data{$index}{$key} =~ /Elders/i &&
}
if($key =~ /Quorum/i &&
$hometeaching_data{$index}{$key} =~ /Elders/i &&