X-Git-Url: http://git.pippins.net/embedvideo/.git/static/git-logo.png?a=blobdiff_plain;ds=sidebyside;f=bin%2Fimport_ward_data;fp=bin%2Fimport_ward_data;h=a11906b99977bef3d8201971d9be73fd9c5f0f1b;hb=c0138a3e56518fd73dfe4d93c30d8e36ce062d87;hp=6bbfe5657c72c750d25b1dd097ec60d8b06c8a03;hpb=618c7a09c5e0b99ca1ef5381aa2349802d11098b;p=eq%2F.git diff --git a/bin/import_ward_data b/bin/import_ward_data index 6bbfe56..a11906b 100755 --- a/bin/import_ward_data +++ b/bin/import_ward_data @@ -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 | @@ -694,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();