$db_driver="mysql";
$db_host="";
-#$db_user="short";
-#$DB_PWD=$ENV{"HOME"}."/priv/mysql.${db_user}.pwd";
+$db_user="short";
+$DB_PWD=$ENV{"HOME"}."/priv/mysql.${db_user}.pwd";
$db_name="short";
$tb_tree="kewensis_tree";
."family_id char(10) not null,"
."family_order int not null,"
."name varchar(100) not null,"
+ ."PublAuthor text null,"
."Publication text null,"
."Notes text null,"
."html text null"
&db_do("alter table $tb_tree add index (name)");
&db_do("alter table $tb_tree add unique (family_id,family_order)");
-my $insert_tb_tree=$db->prepare("insert into $tb_tree (id,family_id,family_order,name,Publication,Notes,html) values (?,?,?,?,?,?,?)")
+my $insert_tb_tree=$db->prepare("insert into $tb_tree (id,family_id,family_order,name,PublAuthor,Publication,Notes,html) values (?,?,?,?,?,?,?)")
or die "Prepare fail: $!";
foreach $owner (sort { $DB{$b}{"name"} cmp $DB{$a}{"name"}; } keys %OWNS) {
my $id=$family[$family_order];
print "insert:$id,".$DB{$id}{"name"}."\n" if $D;
$insert_tb_tree->execute($id,$family_id,$family_order,
- $DB{$id}{"name"},$DB{$id}{"Publication"},$DB{$id}{"Notes"},$DB{$id}{"html"}
+ $DB{$id}{"name"},$DB{$id}{"Publ. Author"},$DB{$id}{"Publication"},$DB{$id}{"Notes"},$DB{$id}{"html"}
) or die "SQL insert failure: $!";
}
}