Changeset 32544 for main/trunk/greenstone2/perllib/gssql.pm

Timestamp:

2018-10-26T20:12:14+13:00 (5 years ago)

Author:

ak19

Message:

1. GreenstoneSQLPlugin: now sub read() calls the new lazy_get_gssql() method to only connect the first time and only if buildcol (when the processor var is a buildproc), so we don't connect in init() anymore as that got called during import.pl as well buildcol, whereas we only want to do connect/disconnet from DB stuff in this plugIN during buildcol.pl. 2. GSSQLPlugin and gssql now can delete entries from the SQL database. This can't be tested to work properly until GS SQL PlugOUT doesn't always assume removeold. At present it always does removeold: clearing the db even when incremental-import.pl is called. When there are no NEW docs in inc-import, the tables are cleared and nothing new is added, so can't test incremental behaviour during buildcol.pl/GS SQL PlugIN then either.

File:

• main/trunk/greenstone2/perllib/gssql.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/gssql.pm

@@ -401 +401 @@
 }
 
+# delete all records in metatable with specified docid
+# https://www.tutorialspoint.com/mysql/mysql-delete-query.htm
+# DELETE FROM table_name [WHERE Clause]
+# see example under 'do' at https://metacpan.org/pod/release/TIMB/DBI-1.634_50/DBI.pm
+sub delete_recs_from_metatable_with_docid {
+    my $self= shift (@_);
+    my ($oid) = @_;
+    
+    my $dbh = $self->{'db_handle'};
+    my $meta_table = $self->get_metadata_table_name();
+    
+    #my $rows_deleted = 
+    $dbh->do(qq{DELETE FROM $meta_table WHERE did = ?}, undef, $oid)
+    or warn $dbh->errstr;
+}
+
+# delete all records in metatable with specified docid
+sub delete_recs_from_texttable_with_docid {
+    my $self= shift (@_);
+    my ($oid) = @_;
+    
+    my $dbh = $self->{'db_handle'};    
+    my $fulltxt_table = $self->get_fulltext_table_name();
+    
+    $dbh->do(qq{DELETE FROM $fulltxt_table WHERE did = ?}, undef, $oid)
+    or warn $dbh->errstr;
+}
 
 # Can call this after connection succeeded to get the database handle, dbh,