Basic database web search implemented

[kewensis.git] / kewensis-collect.pl

diff --git a/kewensis-collect.pl b/kewensis-collect.pl
index 8fd1d54..009be1e 100755 (executable)
--- a/kewensis-collect.pl
+++ b/kewensis-collect.pl
@@ -193,8 +193,8 @@ my($tb_tree);
 
 $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";
 
@@ -214,6 +214,7 @@ eval { &db_do("drop table $tb_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"
@@ -223,7 +224,7 @@ eval { &db_do("drop table $tb_tree") };
 &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) {
@@ -234,7 +235,7 @@ 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: $!";
                }
        }