-# 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();
-}
-