X-Git-Url: http://git.pippins.net/embedvideo/.git/static/gitweb.js?a=blobdiff_plain;ds=sidebyside;f=bin%2Fimport_ward_data;h=4f88fd928e10e8ab58c8cfbeee39e4c66a003fe4;hb=df320830596790d3601a8a693227103d1f6df11f;hp=9b830aada27441ac44ca6c56ff56bbbb3f718d05;hpb=96aa338c7566eb9eec4e2200140358166b223790;p=eq%2F.git diff --git a/bin/import_ward_data b/bin/import_ward_data index 9b830aa..4f88fd9 100755 --- a/bin/import_ward_data +++ b/bin/import_ward_data @@ -133,6 +133,7 @@ sub update_eq_aaronic_table #| elder | int(16) unsigned | | PRI | NULL | auto_increment | #| name | varchar(60) | YES | | NULL | | #| phone | varchar(12) | YES | | NULL | | +#| email | varchar(120) | YES | | NULL | | #| ppi_pri | int(10) unsigned | YES | | 1 | | #| ppi_notes | varchar(128) | YES | | NULL | | #| int_pri | int(10) unsigned | YES | | 1 | | @@ -173,7 +174,7 @@ sub update_eq_elder_table if($rows == 0) { # No existing records found for this elder, make a new entry print " Adding new Elder: $elder_name\n"; - $sth = $dbh->prepare("insert into eq_elder values (NULL,'$elder_name','$phone','1','','1','',$attending,1)"); + $sth = $dbh->prepare("insert into eq_elder values (NULL,'$elder_name','$phone','','1','','1','',$attending,1)"); $sth->execute or die "-E- DB error: $DBI::errstr\n"; } elsif($rows == 1) { # An existing record was found for this elder, update it @@ -447,16 +448,6 @@ sub update_eq_family_table $companionship = $hometeaching_data{$index}{'Comp ID'}; $sth = $dbh->prepare("update eq_family set companionship='$companionship' where name_id='$name_id'"); $sth->execute or die "-E- DB error: $DBI::errstr\n"; - - # In addition to changing the hometeaching assignment, update the eq_visit table - # so that all previous visits made by the old hometeaching companionship, get - # updated with the id of the new companionship. This will allow us to go in and - # edit the history as needed for the family being hometaught under their new - # companionship. Otherwise, we will not be able to update this history. - #$family_id = $data[0]->{family}; - #print " update eq_visit set companionship='$companionship' where family='$family_id' and companionship!='0'\n"; - #$sth = $dbh->prepare("update eq_visit set companionship='$companionship' where companionship='$old_companionship'"); - #$sth->execute or die "-E- DB error: $DBI::errstr\n"; } } }