removed name field from tc_district

[eq/.git] / bin / import_ward_data

diff --git a/bin/import_ward_data b/bin/import_ward_data
index 501f96324cae8567bf0a01e8e4147862d1ef042f..a11906b99977bef3d8201971d9be73fd9c5f0f1b 100755 (executable)
--- a/bin/import_ward_data
+++ b/bin/import_ward_data
@@ -157,7 +157,7 @@ sub update_tc_individual_table
                if($rows == 0) {
                        # No existing records found for this individual, make a new entry
                        print "   Adding new individual: $individual_name\n";
-                       $sth = $dbh->prepare("insert into tc_individual values (NULL,'$id',\"$individual_name\",'$address','$phone','$email','$hhposition','$priesthood',NULL,$attending,1)");
+                       $sth = $dbh->prepare("insert into tc_individual values (NULL,'$id',\"$individual_name\",'$address','$phone','$email','$hhposition','$priesthood','',NULL,$attending,1)");
                        $sth->execute or die "-E- DB error: $DBI::errstr\n";
                } elsif($rows == 1) {
                        # An existing record was found for this individual, update it
@@ -232,37 +232,6 @@ sub update_tc_calling_table()
        }
 }
 
-# TC_DISTRICT
-#+------------+------------------+------+-----+---------+-------+
-#| Field      | Type             | Null | Key | Default | Extra |
-#+------------+------------------+------+-----+---------+-------+
-#| district   | int(16) unsigned |      | PRI | 0       |       |
-#| name       | varchar(30)      | YES  |     | NULL    |       |
-#| supervisor | int(16) unsigned | YES  |     | NULL    |       |
-#| valid      | tinyint(1)       | YES  |     | NULL    |       |
-#+------------+------------------+------+-----+---------+-------+
-sub update_tc_district_table
-{
-    # Districts should be created by hand. This subroutine only
-    # updates the supervisor's ID in each district.
-    print "\n-> Updating tc_district table\n";
-    $sth = $dbh->prepare("select * from tc_district");
-    $sth->execute or die "-E- DB error: $DBI::errstr\n";
-    while($sqlhashref = $sth->fetchrow_hashref) {
-       $supervisor_name = $sqlhashref->{name};
-       $district = $sqlhashref->{district};
-       $sth2 = $dbh->prepare("select * from tc_individual where name='$supervisor_name'");
-       $sth2->execute or die "-E- DB error: $DBI::errstr\n";
-       $sqlhashref2 = $sth2->fetchrow_hashref;
-       $supervisor_id = $sqlhashref2->{individual};
-       $sth2->finish();
-       $sth2 = $dbh->prepare("update tc_district set supervisor='$supervisor_id' where district='$district'");
-       $sth2->execute or die "-E- DB error: $DBI::errstr\n";
-       $sth2->finish();
-    }
-    $sth->finish();
-}
-
 # TC_COMPANIONSHIP
 #+----------------------+------------------+------+-----+---------+-------+
 #| Field                | Type             | Null | Key | Default | Extra |
@@ -346,9 +315,12 @@ sub update_tc_family_table
        # find head of households in tc_individual
        $sth = $dbh->prepare("SELECT * FROM tc_individual WHERE hh_position='Head of Household' and valid=1");
        $sth->execute or die "-E- DB error: $DBI::errstr\n";
-       while ($sqlhashref = $sth->fetchrow_hashref) {
-               $individual = $sqlhashref{individual};
-               $name = $sqlhashref{name};
+       my @individual_data = ();
+       while ($sqlhashref = $sth->fetchrow_hashref) { push(@individual_data, $sqlhashref); }
+       my $individual_count = scalar @individual_data;
+       for($i=0;$i<$individual_count;$i++) {
+               $individual = $individual_data[$i]{'individual'};
+               $name = $individual_data[$i]{'name'};
                
                $sth2 = $dbh->prepare("SELECT * FROM tc_family WHERE individual='$individual'");
                $sth2->execute or die "-E- DB error: $DBI::errstr\n";
@@ -360,12 +332,12 @@ sub update_tc_family_table
                if($rows == 0) {
                        # No existing records found for this family, make a new entry
                        print "   Adding new Family: $name\n";
-                       $sth2 = $dbh->prepare("insert into tc_family values (NULL,'$individual','0',NULL,1)");
+                       $sth2 = $dbh->prepare("INSERT INTO tc_family VALUES (NULL,'$individual','0',NULL,1)");
                        $sth2->execute or die "-E- DB error: $DBI::errstr\n";
                } elsif($rows == 1) {
                        # An existing record was found for this family, update it
                        print "   Updating existing family: $name\n";
-                       $sth2 = $dbh->prepare("update tc_family set valid='1' where individual=$individual'");
+                       $sth2 = $dbh->prepare("UPDATE tc_family SET valid='1' WHERE individual='$individual'");
                        $sth2->execute or die "-E- DB error: $DBI::errstr\n";
                } else {
                        # More than one record was found. Error! This shouldn't happen.
@@ -432,7 +404,7 @@ sub update_tc_visit_table
                print "   Updating visit data: $family_name\n";
 
                # get family id from tc_family
-               $sth = $dbh->prepare("select * from tc_family where name=\"$family_name\" and valid=1");
+               $sth = $dbh->prepare("SELECT * FROM tc_family AS tf JOIN tc_individual AS ti WHERE tf.individual=ti.individual AND ti.name=\"$family_name\" AND tf.valid=1");
                $sth->execute or die "-E- DB error: $DBI::errstr\n";
                my @family_data = ();
                while($sqlhashref = $sth->fetchrow_hashref) { push(@family_data, $sqlhashref); }
@@ -691,7 +663,6 @@ if($opt_s) { $dbh->disconnect(); exit; }
 # Now update the various eq DB tables
 &update_tc_calling_table();
 &update_tc_individual_table();
-&update_tc_district_table();
 &update_tc_companionship_table();
 &update_tc_family_table();
 &update_tc_visit_table();