X-Git-Url: http://git.pippins.net/embedvideo/.git/?a=blobdiff_plain;f=bin%2Fimport_ward_data;h=da32a0d873dd05996bf3b58bb9bea2a40bfe8e35;hb=bf339f318906f8965f5b81e9e4c5eb431f57219a;hp=909f3ba9490e7a47d63a8e714b773a05f216b46c;hpb=fd3f70af9523a487a5b342501a39edad2e9b1080;p=eq%2F.git

diff --git a/bin/import_ward_data b/bin/import_ward_data
index 909f3ba..da32a0d 100755
--- a/bin/import_ward_data
+++ b/bin/import_ward_data
@@ -134,8 +134,6 @@ sub update_tc_indiv_table
 		$hashref = $membership_data{$index};
 		$id = $membership_data{$index}{'Indiv ID'};
 		$indiv_name = $membership_data{$index}{'Preferred Name'};
-		$birthday = $membership_data{$index}{'Birth'};
-		$birthday =~ /(\d+) (\S+) (\d+)/; $day=$1; $month=$monthname2num{$2}; $year=$3;
 		$address = $membership_data{$index}{'Street 1'};
 		if($membership_data{$index}{'Street 2'} ne "") { 
 			$address .= " " . $membership_data{$index}{'Street 2'};
@@ -162,7 +160,7 @@ sub update_tc_indiv_table
 		if($rows == 0) {
 			# No existing records found for this indiv, make a new entry
 			print "   Adding new indiv: $indiv_name\n";
-			$sth = $dbh->prepare("insert into tc_indiv values (NULL,'$id',\"$indiv_name\",'$year-$month-$day','$address','$phone','$email','','$hhposition','$priesthood','','$default_interview_pri','','$default_interview_pri','',$attending,1)");
+			$sth = $dbh->prepare("insert into tc_indiv values (NULL,'$id',\"$indiv_name\",'$address','$phone','$email','','$hhposition','$priesthood','','$default_interview_pri','','$default_interview_pri','',$attending,1)");
 			$sth->execute or die "-E- DB error: $DBI::errstr\n";
 		} elsif($rows == 1) {
 			# An existing record was found for this indiv, update it
@@ -175,12 +173,6 @@ sub update_tc_indiv_table
 				$sth = $dbh->prepare("update tc_indiv set phone=NULL where name=\"$indiv_name\"");
 			}
 			$sth->execute or die "-E- DB error: $DBI::errstr\n";
-			if($birthday ne "") { 
-				$sth = $dbh->prepare("update tc_indiv set birthday='$year-$month-$day' where name=\"$indiv_name\"");
-			} else {
-				$sth = $dbh->prepare("update tc_indiv set birthday=NULL where name=\"$indiv_name\"");
-			}
-			$sth->execute or die "-E- DB error: $DBI::errstr\n";
 			if($address ne "") { 
 				$sth = $dbh->prepare("update tc_indiv set address='$address' where name=\"$indiv_name\"");
 			} else {